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