'#######################################
'正規表現置換
'【概要】
' 正規表現で文字列置換する
'【参照設定】
' Microsoft VBScript Regular Expressions 5.5
'【引数】
' 対象文字列 ：変更前文字列
' パターン ：検索条件
' 置き換え文字列 ：置き換える文字列
' [省略可] 大文字と小文字を区別しない ：大文字と小文字を区別しないとき：True、デフォルト：False
' [省略可] 文字列全体が対象 ：検索対象の文字列内で、文字列全体を検索する：True、デフォルト：False
'【参考サイト】
' ・https://excel-ubara.com/excelvba4/EXCEL232.html
' ・https://www.megasoft.co.jp/mifes/seiki/
'#######################################
Function 正規表現置換( _
ByRef 対象文字列 As String _
, ByRef パターン As String _
, ByRef 置き換え文字列 As String _
, Optional ByRef 大文字と小文字を区別しない As Boolean = False _
, Optional ByRef 文字列全体が対象 As Boolean = False _
) As String
With CreateObject("VBScript.RegExp")
.Global = 文字列全体が対象
.Pattern = パターン
.IgnoreCase = 大文字と小文字を区別しない
正規表現置換 = .Replace(対象文字列, 置き換え文字列)
End With
End Function
