on error resume next
set open=createobject("scripting.filesystemobject")
files="1.txt" ' 文件路径
public function openfile(find,ignore)
read=open.opentextfile(files).readall
if ignore=0 then
for each i in split(read,vbcrlf)
for j = 1 to len(i)
if mid(i,j,len(find))=find then read=replace(read,i,"")
next
next
else
for each i in split(read,vbcrlf)
for j = 1 to len(i)
if lcase(mid(i,j,len(find)))=lcase(find) then read=replace(read,i,"")
next
next
end if
openfile=read
end function
open.createtextfile("new_"&files).write openfile("d",0)
' "d"为删除的文字.0是不忽略大小写,1为忽略大小写









    复制代码