文本文件读一行写一行,生成新文件

Const ForReading = 1
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("转移备案号.txt", ForReading)

Set objFSO1 = CreateObject("Scripting.FileSystemObject")
Set objTextFile1 = objFSO1.OpenTextFile ("Service_Status.txt", ForAppending, True)

Do Until objTextFile.AtEndOfStream
    strComputer = objTextFile.ReadLine
if strComputer<>"" then
    objTextFile1.WriteLine(strComputer)
end if
Loop

objTextFile.Close

objTextFile1.Close