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. 重命名新文件 - ＆gt;旧文件