怎么从txt文本中删除从表单提交的内容

如何从txt文本中删除从表单提交的内容?
现在有一个001.txt的文件，需要从表单中输入要查找的内容，然后把从001.txt文件中找到的表单内容删除，如果查找不到则提示。请问论子里的开发高手些用ASP代码要怎么写呢？请告诉小弟送分为谢！


------解决方案--------------------

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