3

VB スクリプトまたは Bat ファイルを使用して、既存のテキスト ファイルの先頭にすばやく追加する (2 つの新しいテキスト行を追加する) 方法を知っている人はいますか? 最もエレガントなソリューションがカチカチ音をたてます。

4

2 に答える 2

5

これはどう：

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)

出典: テックのヒント

于 2009-05-06T14:51:24.513 に答える
5

コードと FSO への参照については、José Basilios の回答を確認してください。あなたはそれを使用します。

しかしReadAllTextFile = f.ReadAll、それは数ギガバイトになる可能性があるため、私はそのルートに行きません（誰が知っていますか？）。

代わりに：

  1. 新しいファイルを開く
  2. 前に追加された行を書く
  3. 古いファイルから 1 行ずつ読み取り、新しいファイルに書き込む
  4. (両方のファイルを閉じます)
  5. 古いファイルを削除
  6. 新しいファイルの名前を変更 -> 古いファイル
于 2009-05-06T15:01:59.747 に答える