Arbeiten mit Dateien

[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

[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.

[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

[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

[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