set fso=CreateObject("Scripting.FileSystemObject")
Set RegExp = New RegExp
file="1.txt"
find="需要剔除的字符"
read=fso.opentextfile(file).readall
With RegExp
.Global=-1:.ignorecase=-1:.multiline=-1
.pattern="(.*"&find&"*)[\r\n]{0,2}"
if .test(read) then
read=.Replace(read,empty)
fso.createtextfile("new.txt").write read
end if
End With
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024