12,504
回編集
差分
ナビゲーションに移動
検索に移動
編集の要約なし
==[[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:ForReadingFor[[R]]eading
Set outf = fso.OpenTextFile(dstFile, 2, True) '2:ForWriting
output_count = 0
Do While Not inf.AtEndOfLine
line = inf.ReadLine[[R]]eadLine()
'TABで区切られているデータを分割
Loop
Call [[WScript]].Echo(output_count & "件処理しました。")
End Sub
Call ColumnFormat()
© 2006 矢木浩人
