[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2chのread.cgiへ]
Update time : 03/23 02:03 / Filesize : 282 KB / Number-of Response : 1002
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

リネームツールをまたーり語るスレ 003

1 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/08/12(金) 13:15:41 ID:CYAxM25E0]

ここはリネームソフトや正規表現･スクリプト･マクロの記述法など、
ファイル名変更方法について『またーりと』語るスレです。


最強のリネームツール002
pc8.2ch.net/test/read.cgi/software/1066415777/
最強のリネームソフト
pc2.2ch.net/software/kako/1001/10015/1001544324.html


4 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/08/12(金) 13:16:43 ID: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欄をダブルクリックしてチェックオン


5 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/08/12(金) 13:17:04 ID:CYAxM25E0]

DnD用汎用スクリプト(別途関数部必須)

Const FolderRename = 0 '1:フォルダをリネーム  2:フォルダ内のファイルをリネーム  その他:フォルダは無視
Dim FSO, regEx, arg, oItm, oFolder, oFile

Set arg = Wscript.Arguments
If arg.Count > 0 Then
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set regEx = New RegExp
    For Each oItm In arg
        If FSO.FileExists(oItm) Then
            Call FileRename(oItm)
        ElseIf FSO.FolderExists(oItm) Then
            Select Case FolderRename
                Case 1
                    Set oFolder = FSO.GetFolder(oItm)
                    oFolder.Name = AddNum(oFolder.Name)
                Case 2
                    For Each oFile In  FSO.GetFolder(oItm).Files
                        Call FileRename(oFile.Path)
                    Next
            End Select
        End If
    Next
    Set FSO = Nothing
End If
Wscript.Quit

Sub FileRename(sPath)
    FSO.GetFile(sPath).Name = AddNum(FSO.GetBaseName(sPath)) & "." & FSO.GetExtensionName(sPath)
End Sub




[ 続きを読む ] / [ 携帯版 ]
次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（ ´∀｀）＜282KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef