2 Dateien zusammenlegen & Alphabetisch sortieren

[Zero_Cool]

Hallo Zusammen

Ich habe mir ein kleines Programm geschrieben, jedoch gibt es zwei Optionen welche ich noch nicht integrieren konnte. Die Integration würde die Bedienung des Programms erheblich erleichtern.

1:

Ist es möglich den Inhalt einer TXT Datei Zeilenmässig Alphabetisch zu sortieren?

2:

Ich habe 2 TXT Datein. Den Inhalt beider Dateien würde ich gerne in einer Zusammenführen? Sozusagen aus 2 Dateien mach 1ne

MIt welchem Ansatz ist dies möglich?

Besten Dank und ein super 2006! Gruss Phil

[Donald]

Hi,

so z.B.
Datei 1 öffnen - Zeilen zählen lassen
Datei 2 öffnen - Zeilen zählen lassen
Dim text$(zählergebnis der beiden Dateien)
dann beiden Dateien einlesen in text$()
SortArray(text$(),2)
und nun in eine neue Datei speichern - fertig.

Hoffe das es dir weiter hilft.

Brauchte sowas in der Art auch mal, hab mir da mal ne lib geschrieben
die es mit max. 10 Dateien macht.

[Sylvia]

zu 1)

-Datei öffnen
-alle Sätze in eine LinkedList oder Array einlesen und sortieren
-geordnete Daten in neue Datei schreiben
-alte Datei löschen
das wars


zu 2)

-1te Datei (schreibend) öffnen
-2te Datei (lesend) öffnen
-aus 2ter Datei nacheinander alle Sätze lesen und an 1te Datei anhängen
-2te datei löschen
das wars


oder wolltest du schon vorgekauten Code ?

[Zero_Cool]

Danke für die schnelle Hilfe! Ja, so habe ich mir das auch vorgestellt ( Variante 2 ) Jedoch wird bei mir das File in welches in das andere schreibe immer ersetzt und nicht wie ich möchte weitergeführt.

[Laurin]

Du musst den Lese/Schreib-Zeiger per FileSeek() auf das Ende der Datei setzen.

z.B.

Code: Alles auswählen

FileSeek(LoF())