|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
rem ★正規表現による文字列置換関数(VBA) rem 引数 rem 第1 ･･･ source ･･･ 置換対象文字列 rem 第2 ･･･ pattern ･･･ 検索文字(正規表現) rem 第3 ･･･ dest ･･･ 置換文字 Public Function regexp_replace(source, pattern, dest) On Error GoTo err_proc rem On Error Resume Next Dim Reg As Object Set Reg = CreateObject("VBScript.RegExp") Reg.pattern = pattern Reg.IgnoreCase = False Reg.Global = True regexp_replace = Reg.Replace(source, dest) Exit Function err_proc: regexp_replace = "#Error" End Function |
スポンサードリンク 関連記事【yum】Error: Multilib version problems found.「ACCESS」のクエリが破損していま […]
