Файл: Добавить в конец каждой строки первого файла соответствующую строку второго файла - VB
Формулировка задачи:
Даны два текстовых файла. Добавить в конец каждой строки первого файла соответствующую строку второго файла. Если второй файл короче первого, то оставшиеся строки первого файла не изменять.
Решение задачи: «Файл: Добавить в конец каждой строки первого файла соответствующую строку второго файла»
textual
Листинг программы
Sub mm()
Const FILE1 = "c:\file1.txt"
Const FILE2 = "c:\file2.txt"
Dim fso, f1, f2, f3
Set fso = CreateObject("scripting.filesystemobject")
Set f1 = fso.OpenTextFile(FILE1)
Set f2 = fso.OpenTextFile(FILE2)
Set f3 = fso.CreateTextFile(FILE1 & ".tmp", True)
While Not f1.AtEndOfStream
If f2.AtEndOfStream Then
f3.Write f1.ReadAll
Else
f3.WriteLine f1.ReadLine & f2.ReadLine
End If
Wend
f1.Close
f3.Close
fso.DeleteFile FILE1, True
fso.MoveFile FILE1 & ".tmp", FILE1
End Sub