比如说
我的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