Accessで正規表現を使う: 常不軽のブログ（アサブロ）

Accessで正規表現を使う

正規表現を使うと、データの中にある文字列を簡単に抽出する事が出来ます。
以下のサンプルは、半角文字を抽出する例です。
使い方は、クエリで関数として使います。

Function Hankaku(STR_STR As String) As String
'参照設定「Microsoft Script Regular Expressions 5.5」
'正規表現を使って検索、抽出した文字列を返す。
On Error Resume Next
'正規表現で半角文字検索
Dim strSample
Dim regPattern
Dim colMatches
Dim objMatch
Dim Seiki_Str As String
Dim Kekka As String

'正規表現のパターンを設定
Seiki_Str = "[ -~]+"’半角文字を検索する正規表現のパターン
'文字列変数「Kekka」の初期化
Kekka = ""
strSample = STR_STR’読み込むデータ（クエリで読み込むデータ）を設定
Set regPattern = New RegExp
regPattern.Pattern = Seiki_Str '検索の正規表現
regPattern.Global = True
Set colMatches = regPattern.Execute(strSample)
For Each objMatch In colMatches
Kekka = Kekka & objMatch
Next

Dim cn As Long
cn = Len(Kekka)
If cn = 0 Then
Hankaku = "半角文字は見つかりませんでした！"
Else
Hankaku = Kekka’見つかった半角文字を返します。
End If

Exit Function
End Function

※正規表現のパターンを変更することで、メールアドレスやURL等の抽出が面倒なデータも簡単に抽出できます。