用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
