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!

InformationsquelleAutor user3003346 | 2013-11-18
Schreibe einen Kommentar