VBAによる正規表現置換関数

[VB]
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
[/VB]

タイトルとURLをコピーしました