日期:2014-05-16  浏览次数:21129 次

如何从txt文本中删除从表单提交的内容?
本帖最后由 xzrmail 于 2013-07-23 20:55:00 编辑
现在有一个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