- 追加された行はこのように表示されます。
- 削除された行は
このように表示されます。
!!!FileSystemObject ファイルの編集出力
!!ファイルを読み込み、書式編集して出力する
*FileSystemObject http://msdn.microsoft.com/ja-jp/library/cc409798.aspx
*VBScript 関数 http://msdn.microsoft.com/ja-jp/library/cc392480.aspx
Sub ColumnFormat()
IF WScript.Arguments.Count < 1 THEN
Call WScript.Echo("対象ファイルをドロップしてください")
Exit Sub
END IF
Set fso = CreateObject("Scripting.FileSystemObject")
srcFile = WScript.Arguments(0)
IF Not fso.FileExists(srcFile) Then
Call WScript.Echo("対象ファイルが存在しません。")
Exit Sub
End If
dstFile = srcFile & ".formatted.txt"
Set inf = fso.OpenTextFile(srcFile, 1) '1:ForReading
Set outf = fso.OpenTextFile(dstFile, 2, True) '2:ForWriting
output_count = 0
Do While Not inf.AtEndOfLine
line = inf.ReadLine()
'TABで区切られているデータを分割
cols = Split(line, vbTab)
'桁数をそろえる
cols(0) = Left(cols(0) & Space(10) ,10)
cols(1) = Left(cols(1) & Space(5) , 5)
cols(2) = Left(cols(1) & Space(4) , 4)
'出力
outf.WriteLine(cols(0) & cols(1) & cols(2))
output_count = output_count + 1
Loop
Call WScript.Echo(output_count & "件処理しました。")
End Sub
Call ColumnFormat()