日期:2014-05-16 浏览次数:21144 次
v=request.form("nam1")'''''''
set fso=server.createobject("scripting.filesystemobject")
set ts=fso.OpenTextFile(server.mappath("001.txt"),1)'''''''
text=ts.readall
if instr(text,v)=0 then
response.write "找不到内容"
else
ts.close
text=trim(replace(text,v,""))
'用正则替换掉空行
set rx=new regexp
rx.Global=true
rx.Multiline=true
rx.Pattern="^[\s]+$"'这个正则不知道怎么搞最前面或者后面出现要替换的内容,替换不完全,只好再替换一次
text=rx.Replace(text,"")
rx.Multiline=false
rx.Pattern="^\s
------解决方案--------------------
\s$"
text=rx.Replace(text,"")
set rx=nothing
set ts=fso.OpenTextFile(server.mappath("001.txt"),2)
ts.write text'写回文件中
end if
ts.close
set ts=nothing
set fso=nothing