Seite 1 von 1
Arbeiten mit Dateien
Verfasst: 30.07.2006 20:17
von toyman
hallo,
ich möchte eine textdatei zeile für zeile einlesen und gleichzeitig in eine neue textdatei schreiben.
beispiel:
textdatei1.txt
1111 test
2222 hallo
3333 test2
textdatei2.txt erzeugen
test
hallo
test2
hat jemand einen passende pb code für mich?
gruss
toyman
Verfasst: 30.07.2006 20:21
von ts-soft
>> hat jemand einen passende pb code für mich?
Du möchtest also garnicht Wissen wie es geht, sondern nen fertigen Code
Dann verwende mal die Boardsuche, dieselbe Frage wurde bereits mehrmals
gestellt und beantwortet.
Verfasst: 30.07.2006 20:41
von toyman
hab folgendes probiert, funktioniert aber noch nicht...
Code: Alles auswählen
testdatei1$ = "c:\testdatei1.txt"
testdatei2$ = "c:\testdatei2.txt"
if ReadFile(0, testdatei1$)
if CreateFile(1, testdatei2$)
While Eof(0) = 0
dummy$ = ReadString() ; sollte testdatei1.txt zeileweise lesen
WriteStringN( Mid(dummy$,6,Len(dummy$)-6) ) ; sollte in testdatei2.txt schreiben
Wend
CloseFile(0)
CloseFile(1)
EndIf
EndIf
die datei testdatei2.txt wird riesig gross, ich muß das programm mit dem taskmanager beenden
wer kann helfen?
gruss
toyman
Verfasst: 30.07.2006 20:46
von ts-soft
Wenn Du PB4 nutzt:
Code: Alles auswählen
If ReadFile(0, testdatei1$)
If CreateFile(1, testdatei2$)
While Eof(0) = 0
dummy$ = ReadString(0) ; sollte testdatei1.txt zeileweise lesen
WriteStringN(1, Mid(dummy$,6,Len(dummy$)-6) ) ; sollte in testdatei2.txt schreiben
Wend
CloseFile(0)
CloseFile(1)
EndIf
EndIf
Bei mir gehts
Bei älteren PB Versionen sollte ein UseFile hilfreich sein
Verfasst: 30.07.2006 20:54
von toyman
hallo ts-soft,
danke für den UseFile Tip
, jetzt funktioniert es bei mir.
mußte zusätzlich die länge bei Mid noch anpassen (5) ...
jetzt funzt es ...
Code: Alles auswählen
testdatei1$ = "c:\testdatei1.txt"
testdatei2$ = "c:\testdatei2.txt"
If ReadFile(0, testdatei1$)
If CreateFile(1, testdatei2$)
While Eof(0) = 0
UseFile(0)
dummy$ = ReadString() ; sollte testdatei1.txt zeileweise lesen
UseFile(1)
WriteStringN( Mid(dummy$,6,Len(dummy$)-5) ) ; sollte in testdatei2.txt schreiben
Wend
CloseFile(0)
CloseFile(1)
EndIf
EndIf
ausgabe der testdatei2:
test
hallo
test2
gruss
toyman