Zusammenfügen von *.txt Dateien

[Thatsanee]

Hi zusammen,

Konnte in der Hilfe keinen passenden Befehl finden oder habs
zumindest nicht gefunden.

Suche soetwas wie einen Merge-Befehl.
Er soll aus 2, 3, 4, ..... *.txt Dateien eine große machen.

[ts-soft]

Hier mal ein einfaches Beispiel, damit du den Ablauf erkennst. Solltest Du eventuell noch durch Verwendung einer Procedure optimieren:

Code: Alles auswählen

NewText = CreateFile(#PB_Any, "Text.txt") ; Neue Textdatei erstellen
If NewText
  ReadT1 = ReadFile(#PB_Any, "Text1.txt") ; Erste Textdatei zum lesen öffnen
  While Eof(ReadT1) = #False ; Ende noch nicht erreicht
    UseFile(ReadT1) ; Text1 lesen
    Text.s = ReadString()
    UseFile(NewText)
    WriteStringN(Text.s) ; Text schreiben
  Wend
  CloseFile(ReadT1) ; Erste Textdatei wieder schließen
  ReadT2 = ReadFile(#PB_Any, "Text2.txt") ; Die nächste Textdatei zum lesen öffnen
  While Eof(ReadT2) = #False
    UseFile(ReadT2)
    Text.s = ReadString()
    UseFile(NewText)
    WriteStringN(Text.s)
  Wend
  CloseFile(ReadT2)
  ; usw.
EndIf
CloseFile(NewText) ; Neue Textdatei schließen
End

Gruß
Thomas

[ts-soft]

Wenn Du Dich nur ans Ende der Datei bewegen willst um etwas anzufügen kannst Du dies mit:

Code: Alles auswählen

FileSeek(Lof())

machen

[Thatsanee]

Hallo TS,

danke.

[Froggerprogger]

Statt ReadString/WriteStringN kann man auch einfach ReadData/WriteData jeweils mit der Längenangabe der anzufügenden Datei nutzen.
Das geht fixer und man kann auch beliebige Binärdateien aneinanderhängen.

[Donald]

Hi zusammen,

Konnte in der Hilfe keinen passenden Befehl finden oder habs
zumindest nicht gefunden.

Suche soetwas wie einen Merge-Befehl.
Er soll aus 2, 3, 4, ..... *.txt Dateien eine große machen.

Hi, na TS hat dir ja schon eine Lösung gezeigt.
In meiner nächsten Userlib ist soetwas mit drin.
Damit kannste bis zu 10 Dateien auf einen Rutsch zusammenfügen,
oder an eine bereits bestehende Datei anhängen.
Kannst mir ja mal Deine eMail als PN schicken, dann sende ich Dir
mal die Beta der Lib.