VBスクリプトテキストファイルの先頭に追加

StackOverflow https://stackoverflow.com/questions/829897

  •  06-07-2019
  •  | 
  •  

質問

VBスクリプトまたはBatファイルを使用して、既存のテキストファイルの先頭にすばやく追加する（2行のテキストを追加する）方法を知っていますか？最もエレガントなソリューションが目を引きます。

役に立ちましたか？

解決

これについてはどうですか：

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

他のヒント

Josをチェック＆＃233; Basiliosは、コードとFSOへの参照について回答しています。これを使用します。

BUT ： ReadAllTextFile = f.ReadAll ルートは使用しません。数ギガバイトになる可能性があるためです（誰が知っていますか？）。

INSTEAD ：

  1. 新しいファイルを開く
  2. 先頭に行を追加
  3. 古いファイルから1行ずつ読み取り、新しいファイルに書き込みます
  4. （両方のファイルを閉じる）
  5. 古いファイルを削除
  6. 新しいファイルの名前を変更-＆gt;古いファイル
ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top