如何用vbs&bat读取文本内的内容并删除+保存 - 中国DOS联盟论坛

以下代码是读取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

第1楼　mhcxw	发表于 2009-04-09 00:25
新手上路　发帖 1　积分 1
如何用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