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

[表示 : 全て最新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
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


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

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
6 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/08/12(金) 13:17:53 ID:CYAxM25E0]: ファイル名内の数値に桁を保持したまま指定数を加算する汎用スクリプト用関数

Const k = 1 '加算値

Function AddNum(sName)
Dim cMatch, i, j
With regEx
.Pattern = "\d+" 'マッチパターン
.Global = True '全体を検索する {True|False}
Set cMatch = .Execute(sName)
End With
If cMatch.Count = 0 Then
AddNum = sName
Else
i = 0 '最初にマッチしたものに加算
'i = cMatch.Count - 1 '最後にマッチしたものに加算
With cMatch(i)
j = .Value + k
AddNum = Left(sName, .FirstIndex) & _
Right(String(.Length, "0") & j, .Length - (Len(j) > Len(.Value))) & _
Mid(sName, .FirstIndex + .Length + 1)
End With
End If
End Function

[ 続きを読む ] / [ 携帯版 ]

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