如何利用vbs删除文本内的某行？

来源：百度知道 编辑：UC知道 时间：2024/05/29 01:45:37
比如，我想删除1.txt中第5行的所有数据，

这样的VBS怎么写？
VBS脚本啊。

set f=createobject("scripting.filesystemobject")
If Not f.FileExists("1.txt") Then WScript.Quit
Set of=f.OpenTextFile("1.txt")
Set nf=f.CreateTextFile("1_new.txt")
i=0
Do While of.AtEndOfStream <> True
i=i+1
s=of.ReadLine
If i<>5 Then
nf.WriteLine(s)
end if
Loop
of.Close
nf.Close
If f.FileExists("1.txt.bak") Then f.DeleteFile "1.txt.bak"
f.MoveFile "1.txt","1.txt.bak"
f.MoveFile "1_new.txt","1.txt"

vbs是什么？