Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
alej
Anmeldungsdatum: 02.10.2009 Beiträge: 9
|
Verfasst am: 24.12.2011, 00:07 Titel: Textdatei auslesen und speichern |
|
|
Hallo zusammen,
ich habe eine Textdatei vorliegen, die wie folgt aufgebaut ist
20110915000000001234000000DE...
Die einzelnen Teile des Textes haben immer eine feste Länge, nun möchte ich den Text "auseinandernehmen" und die einzelnen Segmente in Variablen oder ein Array schreiben um diese dann in eine neue Textdatei zu schreiben
Den ersten Teil des String auszulesen bzw. nur die ersten 8 Zeichen gelingt ohne Probleme nur die weiteren Zeichen kann ich nicht ausgeben.
Hier mein Versuch, die ersten 8 und zwei weitere Zeichen auszulesen
Code: |
dim as integer wert1
dim as integer wert2
dim as integer datei = freefile
wert1 = 8
wert2 = 2
open "DATEI.TXT" for input as #datei
print input(wert1, wert2, #datei)
close #1
sleep
|
Gruß
alej |
|
Nach oben |
|
 |
nemored

Anmeldungsdatum: 22.02.2007 Beiträge: 4699 Wohnort: ~/
|
Verfasst am: 24.12.2011, 00:29 Titel: |
|
|
Ich würde ja die komplette Zeile einlesen und anschließend mid MID zerlegen. Ansonsten müsste es so funktionieren:
Code: | print input(wert1, #datei)
print input(wert2, #datei) |
_________________ Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.
Zuletzt bearbeitet von nemored am 24.12.2011, 00:31, insgesamt einmal bearbeitet |
|
Nach oben |
|
 |
Westbeam

Anmeldungsdatum: 22.12.2009 Beiträge: 760
|
Verfasst am: 24.12.2011, 00:29 Titel: |
|
|
Ach ist doch auch egal, löscht es lieber mal ... 
Zuletzt bearbeitet von Westbeam am 24.12.2011, 01:30, insgesamt einmal bearbeitet |
|
Nach oben |
|
 |
Sebastian Administrator

Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
|
Nach oben |
|
 |
alej
Anmeldungsdatum: 02.10.2009 Beiträge: 9
|
Verfasst am: 24.12.2011, 01:17 Titel: |
|
|
Super,
vielen Dank für die Tips...
Euch allen auch ein frohes Fest
Gruß
alej |
|
Nach oben |
|
 |
|