FileSystemObject ファイルの編集出力

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()