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

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

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

7:名無しさん＠お腹いっぱい。
 05/08/12 13:20:49 CYAxM25E0
003が既に立ってるのはわかってるけど、テンプレも他人任せで貼ってないし 
スレタイの最強は抜いて欲しいので勝手に立て直し。 
こっちに人が寄りつかなければこっちが落ちるのもよろし。

8:名無しさん＠お腹いっぱい。
 05/08/12 13:56:08 14RR5RA00
またーりとかイモいんですけど・・・＾＾；；；；

9:名無しさん＠お腹いっぱい。
 05/08/12 13:57:48 fXARxte/0
>>1 
GJ！

10:名無しさん＠お腹いっぱい。
 05/08/12 14:27:26 hSbWkDuT0
>>1 乙

11:名無しさん＠お腹いっぱい。
 05/08/13 18:45:17 hulJe0BJ0
Function AddNum(sName) 
    Dim cMatch, iPos, iNum, jFig 
    Const iAdd = 1 '加算値 
    Const iFig = 0 '桁  0:桁保持  1～:桁指定 
    With regEx 
        .Pattern = "\d+" 'マッチパターン 
        .Global = True   '全体を検索する {True|False} 
        Set cMatch = .Execute(sName) 
    End With 
    If cMatch.Count = 0 Then 
        AddNum = sName 
    Else 
        iPos = 0                '最初にマッチしたものに加算 
        'iPos = cMatch.Count - 1 '最後にマッチしたものに加算 
        With cMatch(iPos) 
            iNum = .Value + iAdd 
            If iFig = 0 Then jFig = .Length - (Len(iNum) > .Length) Else jFig = iFig 
            AddNum = Left(sName, .FirstIndex) & _ 
                      Right(String(jFig, "0") & iNum, jFig) & _ 
                      Mid(sName, .FirstIndex + .Length + 1) 
        End With 
    End If 
End Function 
 
桁の指定も出来るようにしてみました。 
iAdd = 0　iFig = 5 とすれば、数値はそのままで、 
桁だけ揃えることもできます。 
　　1 → 00001 
　 10 → 00010 
0100 → 00100 
但し、既存の桁より小さい桁数を指定すると、 
指定桁以上は切られるので注意。

次ページ