Iska, Не хотел использовать WriteLine, так как при этом в конец строки автоматом пишется Cr Lf, что приводит к лишней пустой строке в конце текстового файла, меня это угнетает. Можно, конечно, объединить 2 строки и другой Do, как сделано у Вас, но это не принципиально, делал этот скрипт из старого с другими целями. Спасибо за вопрос, можете предложить иной вариант?
Код:
Do Until F1.AtEndOfStream
F2.Write BegTop + F1.ReadLine + EndBottom
BegTop = vbCrLf
Loop
Пример обрабатываемого файла
А вот вариант, где создание .bak файла сделано экономнее с точки зрения места на диске и времени
Код:
InFile = "D:\Примеры макроса\Для тестирования 10000.txt" ' Путь к текстовому файлу
Set FSO = CreateObject("Scripting.FileSystemObject")
EndBottom = "}" ' Вставляем символ(ы) в конец каждой строки
InSave = 1 ' =0 -Не сохраним копию исходного файла, не 0 -сохраним
' Читаем исходный файл, переписываем строки в tmp-файл, переименовываем tmp
Set F1 = FSO.OpenTextFile(InFile, 1, False)
On Error Resume Next
Set F2 = FSO.OpenTextFile(InFile + ".tmp", 2, True)
BegTop = ""
If Err.Number = 0 Then
Messa = CStr(Time) + " Обработка начата" + vbCrLf
Do Until F1.AtEndOfStream
iString = F1.ReadLine
F2.Write BegTop + iString + EndBottom
BegTop = vbCrLf
' F2.WriteLine F1.ReadLine + EndBottom
Loop
F1.Close
F2.Close
' Если надо сохранить исходный файл в .bak
If InSave <> 0 Then
On Error Resume Next
FSO.MoveFile InFile, InFile + ".bak"
If Err.Number = 0 Then
FSO.MoveFile InFile + ".tmp", InFile
Else
Messa = Messa + CStr(Time) + " Не удалось создать .Bak " + Err.Description + vbCrLf
End If
Else
On Error Resume Next
FSO.CopyFile InFile + ".tmp", InFile, True
If Err.Number = 0 Then
FSO.DeleteFile InFile + ".tmp", True
Else
Messa = Messa + CStr(Time) + " Не удалось скопировать TMP " + Err.Description + vbCrLf
End If
End If
Else
Messa = Messa + "Ошибка при открытии файла " + vbCrLf + InFile + ".tmp" + vbCrLf + Err.Description + vbCrLf
End If
Messa = Messa + CStr(Time) + " Обработка закончена" + vbCrLf
L = MsgBox(Messa, 0, "Обработка " + InFile)
|
