FileSystemObject ファイルの編集出力 - 版の履歴

2020年2月16日 (日) 04:25にPirotoによる

2020-02-16T04:25:53Z

2020年2月15日 (土) 08:02にPirotoによる

2020-02-15T08:02:39Z

Piroto: ページの作成:「==FileSystemObject ファイルの編集出力== ===ファイルを読み込み、書式編集して出力する=== *FileSystemObject http://msdn.microsoft.com/ja-jp/li…」

2020-02-15T07:32:22Z

ページの作成:「==FileSystemObject ファイルの編集出力== ===ファイルを読み込み、書式編集して出力する=== *FileSystemObject http://msdn.microsoft.com/ja-jp/li…」

新規ページ

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

@@ 1行目: / 1行目: @@
-==FileSystemObject ファイルの編集出力==
+==[[FileSystemObject ファイルの編集出力]]==
 ===ファイルを読み込み、書式編集して出力する===
-*FileSystemObject http://msdn.microsoft.com/ja-jp/library/cc409798.aspx
+*[[FileSystemObject]] http://msdn.microsoft.com/ja-jp/library/cc409798.aspx
-*VBScript 関数 http://msdn.microsoft.com/ja-jp/library/cc392480.aspx
+*[[VBScript]] 関数 http://msdn.microsoft.com/ja-jp/library/cc392480.aspx
   Sub ColumnFormat()
-   IF WScript.Arguments.Count &lt; 1 THEN
+   IF [[WScript]].Arguments.Count &lt; 1 THEN
-       Call WScript.Echo("対象ファイルをドロップしてください")
+       Call [[WScript]].Echo("対象ファイルをドロップしてください")
        Exit Sub
    END IF
-   Set fso = CreateObject("Scripting.FileSystemObject")
+   Set fso = CreateObject("Scripting.[[FileSystemObject]]")
-   srcFile = WScript.Arguments(0)
+   srcFile = [[WScript]].Arguments(0)
    IF Not fso.FileExists(srcFile) Then
-       Call WScript.Echo("対象ファイルが存在しません。")
+       Call [[WScript]].Echo("対象ファイルが存在しません。")
        Exit Sub
    End If
    dstFile = srcFile & ".formatted.txt"
-   Set inf  = fso.OpenTextFile(srcFile, 1)        '1:ForReading
+   Set inf  = fso.OpenTextFile(srcFile, 1)        '1:For[[R]]eading
    Set outf = fso.OpenTextFile(dstFile, 2, True)  '2:ForWriting
    output_count = 0
    Do While Not inf.AtEndOfLine
-       line = inf.ReadLine()
+       line = inf.[[R]]eadLine()
        'TABで区切られているデータを分割
@@ 39行目: / 39行目: @@
    Loop
-   Call WScript.Echo(output_count & "件処理しました。")
+   Call [[WScript]].Echo(output_count & "件処理しました。")
   End Sub
   Call ColumnFormat()