VBS怎么删除文本指定字符所在行

Question

dim strline,str,filepath
filepath=inputbox("输入文本文件路径"& vbcrlf &"如下","删除指定字符所在行","d:\1.txt")
set fso=createobject("scripting.filesystemobject")
set fread=fso.opentextfile(filepath)
set newfile=fso.opentextfile("new.txt",8,true)
do until fread.atendofstream
strline=fread.readline
str=len(strline)
if str="删除字符" then
else
newfile.writeline strline
end if
loop
fread.close
msgbox "处理完毕!请在当前目录下查找new.txt",vbinformation,"删除指定字符所在行"
set fso=nothing

我这样写不对 请要怎么写？麻烦下大家
这个好像不行啊 我的意思是好比我有个1.txt 里面有三行字符
abc
abd
abe
现在vbs要实现的是查找每行 如果行里包含字符d 那么就删除所在行 abd
最后得到的new.txt里面只有两行
abc
abe

Answer 1

你早点解释清楚就不会有第2次麻烦了

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为忽略大小写