リネームツールをまたーり語るスレ 003at SOFTWAREリネームツールをまたーり語るスレ 003 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト4:名無しさん＠お腹いっぱい。 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欄をダブルクリックしてチェックオン 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch