标题: 如何用vbs&bat读取文本内的内容并删除+保存 [打印本页]

---

作者: mhcxw     时间: 2009-4-9 00:25    标题: 如何用vbs&bat读取文本内的内容并删除+保存

以下代码是读取c盘1.txt文件的内容，并一行行显示出来，我想做到读取一行内容就删除一行并把删除的内容按读取的顺序保存（不要保存一个替换一个那一种，要自动换行保存在一起的），不知那位高手可以做得到！

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\1.txt", ForReading)

Do Until objTextFile.AtEndOfStream
    strline = objTextFile.ReadLine 'read(x)读取x个字符,readline读取一行,readall读取全部
    wscript.echo strline
Loop
objTextFile.Close