正規表現置換スクリプト
正規表現を使った置換を１回の関数呼び出しで行います。
' テスト用コード ret = ExpReplace("Test <delete string> String", "<.*>", "Replace") msgbox ret ' 正規表現を用いた置換を行う ' ' 引数 ' Source：置換元の文字列 ' TargetOld：置換対象となる正規表現文字列 ' TargetNew：置換後に変換される文字列 ' ' 戻り値 ' 置換された文字列を返す ' Function ExpReplace(Source, TargetOld, TargetNew) ' 正規表現オブジェクトを取得 Set ObjRegExp = New RegExp ' 置換対象パターンを設定 ObjRegExp.Pattern = TargetOld ' Source全体を置換対象として設定 ObjRegExp.Global = True ' 大文字・小文字を区別しない場合 ' ObjRegExp.IgnoreCase = True ' 正規表現の置換を実施 ExpReplace = ObjRegExp.Replace(Source, TargetNew) End Function
戻る