VB脚本文本文件前置

Question

任何人都知道如何使用VB脚本或Bat文件快速添加(添加两行新文本)到现有文本文件的开头？最优雅的解决方案得到了回报.

Answer 1

这个怎么样:

Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile("test.txt", 1)
ReadAllTextFile =   f.ReadAll
Set f = fso.OpenTextFile("test.txt", 2, True)
f.WriteLine("Blaaa")
f.WriteLine("Blaaaa some more...")
f.Write(ReadAllTextFile)

资料来源: Tek Tips

Answer 2

查看JoséBasilios的答案以获取FSO的代码和参考.你将使用它.

但是:我不会去ReadAllTextFile = f.ReadAll路线,因为那可能是几千兆字节(谁知道？).

INSTEAD:

1. 打开一个新文件
2. 写前置线
3. 从旧文件逐行读取,写入新文件
4. (关闭两个文件)
5. 删除旧文件
6. 重命名新文件 - >旧文件