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

リネームツールをまた ..

40:名無しさん＠お腹いっぱい。
08/03/11 11:50:22 SI2PrJW00
ファイル名の末尾に英字連番を付けるスクリプト
桁は可変で繰り上がり

Function Proc(names)
　　ReDim rtn(UBound(names)+1)
　　tbl = Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
　　n = UBound(tbl) + 1
　　i = 0
　　For Each name In names
　　　　j = i Mod n
　　　　If j = 0 Then
　　　　　　c = ""
　　　　　　k = i
　　　　　　Do While k >= n
　　　　　　　　k = k / n - 1
　　　　　　　　c = tbl(k Mod n) & c
　　　　　　Loop
　　　　End If
　　　　rtn(i) = name & c & tbl(j)
　　　　i = i + 1
　　Next
　　Proc = rtn
End Function

練馬のスクリプトにコピペしてファイル名・一括で実行するだけ
（全角空白は半角に直しておく）
配列の内容を変更すれば何の文字連番にも対応可能なはず
例： tbl = Array("あ","い","う","え","お", ・・・ ,"わ","を","ん")

次ページ

続きを表示

1を表示