VBScriptを使ってファイルの入出力をするための基本形を調べました。
下に示すサンプルは
「text_a.txt」というテキストファイルを1行ずつ読み込んで、
文字列変数にまとめて、
「text_b.txt」というテキストファイルに書き出す。
というものです。
これだけではまったく意味がありませんが、途中の文字列変数にまとめる段階、すなわち、サンプル中の「myline = myfile1.ReadLine」の後で何らかの加工を施す、などの工夫をすることで、テキストファイルをいろいろな形式に整形できます。
Const filename1 = "text_a.txt"
Const filename2 = "text_b.txt"
Set myfso = CreateObject("Scripting.FileSystemObject")
Set myfile1 = myfso.OpenTextFile(filename1, 1, False)
mystr = ""
Do Until myfile1.AtEndOfStream
myline = myfile1.ReadLine
mystr = mystr & myline & Chr(13)
Loop
Set myfile2 = myfso.OpenTextFile(filename2, 2, True)
myfile2.WriteLine mystr
myfile2.Close
Set myfile2 = Nothing
myfile1.Close
Set myfile1 = Nothing
Set myfso = Nothing
Const filename2 = "text_b.txt"
Set myfso = CreateObject("Scripting.FileSystemObject")
Set myfile1 = myfso.OpenTextFile(filename1, 1, False)
mystr = ""
Do Until myfile1.AtEndOfStream
myline = myfile1.ReadLine
mystr = mystr & myline & Chr(13)
Loop
Set myfile2 = myfso.OpenTextFile(filename2, 2, True)
myfile2.WriteLine mystr
myfile2.Close
Set myfile2 = Nothing
myfile1.Close
Set myfile1 = Nothing
Set myfso = Nothing
コメント