用fso怎样删除文本文件中的一行
作者：佚名 时间：2012-04-13
比如说
我的test文件内容如下
1111
2222
3333
4444
我用如下代码删除test.txt中的“2222”
代码执行后，“2222”被删除了
但是只是删除了这个值
这一行并没有删除
文本文件内容成了
1111
3333
4444
请问大家
我要怎么修改程序
才能将那个空白行删除掉
谢谢了
PathInfo = Mid(Request.ServerVariables( "PATH_TRANSLATED ") , 1, Location)
filename = PathInfo & "test.txt "
Set fso = CreateObject( "Scripting.FileSystemObject ")
Const ForReading = 1
Set fs = fso.OpenTextFile(filename, ForReading)
t_data=fs.ReadAll
fs.Close
'------------------------------------修改数据
val= "2222 "&vbcrlf
t_data=Replace(t_data,val, " ")
'------------------------------------重新写文件
Set fso = CreateObject( "Scripting.FileSystemObject ")
Const ForWriting = 2
Set fs = fso.OpenTextFile(filename, ForWriting, True)
fs.Write t_data
fs.Close
