正規表現マッチ確認スクリプト
指定した文字列が正規表現にマッチしているかを確認する関数。
' テスト用コード ret = ExpMatch("Test <delete string> String", "T.*g") msgbox ret ' 文字列と正規表現とのマッチングを行う ' ' 引数 ' Source：マッチング対象の文字列 ' Exp：置換後に変換される文字列 ' ' 戻り値 ' マッチしている場合はTrue、マッチしていない場合はFalseを返す ' Function ExpMatch(Source, Exp) ' 正規表現オブジェクトを取得 Set ObjRegExp = New RegExp ' 置換対象パターンを設定 ObjRegExp.Pattern = Exp ' Source全体を置換対象として設定 ObjRegExp.Global = True ' 大文字・小文字を区別しない場合 ' ObjRegExp.IgnoreCase = True ' 正規表現の置換を実施 Set Matches = ObjRegExp.Execute(Source) ' マッチングの確認 If (Matches.Count <> 1) Then ExpMatch = False ElseIf (Matches.item(0).FirstIndex <> 0) Then ExpMatch = False ElseIf (Len(Matches.item(0).Value) <> Len(Source)) Then ExpMatch = False Else ExpMatch = True End If End Function
戻る