Verbinden Sie mehrere text-Dateien in eine, mit abwechselnden Zeilen
Ich habe es geschafft, zum Zusammenführen von zwei text-Dateien zusammen, mit diesem code
For Each foundFile As String In
My.Computer.FileSystem.ReadAllText("path")
foundFile = foundFile
My.Computer.FileSystem.WriteAllText("path", foundFile, True)
Next
extraline = vbCrLf
My.Computer.FileSystem.WriteAllText("path", extraline, True)
My.Computer.FileSystem.WriteAllText("path", extraline, True)
For Each foundFile2 As String In
My.Computer.FileSystem.ReadAllText("path")
foundFile2 = foundFile2
My.Computer.FileSystem.WriteAllText("path", foundFile2, True)
Next
Es verschmilzt Sie jedoch möchte ich Sie zum Zusammenführen der beiden text-Dateien eine Zeile zu einem Zeitpunkt. zum Beispiel
Textdoc1 enthält
First Line
Third Line
Textdoc2 enthält
Second Line
Fourth Line
Ich würde gerne die Ausgabe-Datei zu enthalten:
First line
Second Line
Third Line
Fourth Line
jede Hilfe wird sehr geschätzt, danke!
Du musst angemeldet sein, um einen Kommentar abzugeben.
Müssen Sie die ReadAllLines statt ReadAllText. Hier ein kurzes Beispiel, um zu zeigen wie es funktionieren könnte (habe ich noch nicht getestet mit diesem code, es ist nur für Referenz)
Wenn Sie haben sehr große Datei ist, dann schlage ich vor, Sie schauen in StreadReader statt. Auf diese Weise können Sie eine Zeile Lesen ohne Belastung alles auf einmal.