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

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
6:名無しさん＠お腹いっぱい。 05/08/12 13:17:53 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

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5065日前に更新/282 KB
担当:undef