いきなりですが、正規表現って暗号にしか見えず拒否反応が出るのって私だけですか？

VBAで部分一致してるかとかならLike演算子使えばいいし、文字を抜き出すならLeft、Right、MidにInstr、InstrRevとかを組み合わせれば大抵のパターンは対応できるので目を背け続けてきましたが、先日どうしても正規表現を使わざるを得ないことになって最低限使える程度には覚えたので書き出します

そもそも正規表現とは

正規表現は、文字列の集合を一つの文字列で表現する方法の一つである。

もともと正規表現は形式言語理論において正規言語を表すための手段として導入された。

その後正規表現は単機能の文字列探索ツールやテキストエディタ、ワードプロセッサなどのアプリケーションで、マッチさせるべき対象を表すために使用されるようになり、表せるパターンの種類を増やすために本来の正規表現にはないさまざまな記法が新たに付け加えられた。このような拡張された正規表現には正規言語ではない文字列も表せるものも多く、ゆえに正規表現という名前は実態に即していない面もあるが、伝統的に正規表現と呼ばれ続けている。

https://ja.wikipedia.org/wiki/%E6%AD%A3%E8%A6%8F%E8%A1%A8%E7%8F%BE

平たく言えばパターンマッチングってやつですね

このパターンの作り方が英字数字だけではなく記号も入り乱れているから暗号のような印象を受けるわけで、一見しても意味が分からないから拒絶反応が出るわけです

基本的な正規表現

まず基本的な正規表現の文字（メタ文字）から

補足

サンプルに対して実際に正規表現のマッチ結果を補足的に書いてみる

“最長一致”と“最短一致”の違いは最後にマッチする文字か最初にマッチする文字かの違い

“(|)”と“[]”の違いは単語ベースで検索するか1文字単位で検索するか

“[]”内は“-“で繋ぐことで範囲検索できる

エスケープすると例えば“.”はドット扱いになるのでメアドとのマッチとかで使える

先頭と末尾を指定する機会はなくもないけど少ない気もする・・・

定義済みの正規表現

まず最初に「定義済み」って表現であってますか？（にわかです）

この定義済みの正規表現が便利そうな反面、難解になる原因な気がする

同等の正規表現があるものは無理して使う必要もないけど解読する時は知っておく必要があるのでよく使われるものだけ

他にもありますが私は頭の整理がつかなくなるこれだけにしてます

VBAでの正規表現

まずは参照設定

「Microsoft VBScript Regular Expressions 5.5」にチェックを入れて利用できる状態へ

参照設定ではなくてCreateObjectを使うときは”VBScript.RegExp”

Dim objReg As Object
Set objReg = CreateObject("VBScript.RegExp")

RegExpオブジェクトのプロパティとメソッド

MatchCollectionのプロパティとメソッド

Matchのプロパティ

サンプルプログラム

私が正規表現を使うときは基本的にこの関数を準備して実行してます

Public Function RegExpFunc(Target As String, strPattern As String, Optional Idx As Long = 0, Optional strDelimiter As String = "") As String
'Dim objReg As New VBScript_RegExp_55.RegExp             '---参照設定してればこれでもok
'Dim objMatchColl As VBScript_RegExp_55.MatchCollection  '---参照設定してればこれでもok
'Dim objMatch As VBScript_RegExp_55.Match                '---参照設定してればこれでもok
Dim objReg As Object
Dim objMatchColl As Object
Dim objMatch As Object


Set objReg = CreateObject("VBScript.RegExp")
With objReg
    .Pattern = strPattern   '---正規表現のパターン
    .IgnoreCase = False     '---大文字小文字の区別をする
    .Global = True          '---複数回マッチした場合は全て取得する
    Set objMatchColl = .Execute(Target)
End With

'---Idxで指定したIndexのデータを取得する
RegExpFunc = vbNullString
If objMatchColl.Count > Idx Then
    If Idx = -1 Then '---idxを-1でしていた時はobjMatchCollの結合モードにする
        For Each objMatch In objMatchColl
            RegExpFunc = RegExpFunc & strDelimiter & objMatch
        Next
        RegExpFunc = Replace(RegExpFunc, strDelimiter, "", 1, 1) '---先頭に余計なデリミタがあるから一度だけReplaceで削除する
    Else
        RegExpFunc = objMatchColl(Idx)
    End If
End If

Set objMatch = Nothing
Set objReg = Nothing
End Function

Excelでのテスト実行結果

RegExpFuncを自作関数にして引数をヘッダー部の通りにした結果なのでまで参考に

実際のファイルは下記の”ダウンロード”ボタンを押下

よくある正規表現

あとがき

なんとなくは理解したものの、まだまだ奥は深いしここに書いていないメタ文字もあるので本職の人が書いてる正規表現は相変わらず意味が分からんです

正規表現チェッカーサイトも多々あるので必要ならちゃんと調べて覚えようかな