中国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