05/08/12 13:16:43 CYAxM25E0
練馬用汎用スクリプト(別途関数部必須)
Dim FSO, regEx, sPath, sLines, tsR, tsW, l
Set FSO = CreateObject("Scripting.FileSystemObject")
Set regEx = New RegExp
sPath = Wscript.Arguments(0)
Set tsR = FSO.OpenTextFile(sPath)
sLines = Split(tsR.ReadAll, vbNewLine)
tsR.Close
Set tsW = FSO.CreateTextFile(sPath)
For l = 0 To Ubound(sLines) - 1
tsW.WriteLine AddNum(sLines(l))
Next
tsW.Close
Set FSO = Nothing
Wscript.Quit
･練馬への組み込み
1. スクリプトをテキストファイルにコピペ（全角スペース→半角スペース）
2. ○○○.vbs のファイル名で適当なフォルダに保存（○○○は適当に）
3. 練馬のメニューで 編集→外部ツール→登録 を開く
4. 参照で作成したスクリプトファイルを選択（ツールパスに設定）
5. 処理名をダブルクリックして適当な名前を入力（例：連番+1）
6. パラメータをダブルクリックして "%f" と入力
7. P欄をダブルクリックして %f と入力
8. F欄をダブルクリックしてチェックオン