テキストファイルの各行の前に一括で文字を追加してください

管理者 · 掲載地 2015/02/04 13:25:21

'=================================================================
set arg=WScript.Arguments
もしarg.count=0ならば、
msgbox "Usage:"&vbcrlf&vbcrlf&" このスクリプトを直接実行せず、文字列に置き換える必要があるファイルを1つ以上ドラッグ&ドロップしてください。
wscript.quit
終了
Set FSO=wscript.createobject("scripting.filesystemobject")
Set fr=fso.opentextfile(arg(0),1)
Set FW=fso.createtextfile("temp.txt",2)
data=inputbox("行の前に追加した文字を入力してください:")
する
fw.writeline(data&fr.readline)
fr.atendofstreamまでループ
フレッシュクローズ
fw.close
Set FR=fso.opentextfile("temp.txt",1)
Set fw=fso.createtextfile(arg(0),2)
する
fw.writeline(FR.readline)
fr.atendofstreamまでループ
フレッシュクローズ
fw.close
fso.deletefile("temp.txt")
'====================================================
上記の内容をコピーしてVBSファイルとして保存し、修正したいドキュメントをこのVBSファイルにドラッグします。追加したい文字を入力し、入力後に確認し、ドキュメントを開くと、各行に入力したデータが加わっていることがわかります。

テキストファイルの各行の前に一括で文字を追加してください

関連記事

閲覧したセクション