CODE: [Copy to clipboard]
On Error Resume next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSrcFile = objFSO.OpenTextFile("C:\a.txt",1,True)
Set objDstFile = objFSO.OpenTextFile("C:\b.txt",2,True)
Do Until objSrcFile.AtEndOfStream
text = objSrcFile.Read(1)
if text <> "" then
char = AscW(text)
end if
if char = "13" then
objDstFile.Write ""
elseif char = 10 then
objDstFile.Write "<br>"
else
objDstFile.Write "&#"&char&";"
end if
Loop
objSrcFile.close
objDstFile.close
Set objSrcFile = nothing
Set objDstFile = nothing
set objFSO = nothing
测试用例a.txt