正規表現で文字列中から指定の文字列を検索し、見つかったら、その文字列を返す
パラメータ| 対象文字列 | 検索対象文字列 |
| パターン | 検索する文字列を正規表現で指定（正規表現の記述方法） |
| 取得位置 | 複数ある場合に、その番目を指定（１～）、省略時は１番目 |
見つかった文字列、見つからなかった場合は空白。
ＶＢＡコード
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | Function MyRegText(対象文字列 As String, パターン As String, Optional 取得位置 As Integer = 1) As String'' 正規表現による検索'' 入力' 対象文字列:対象文字列' パターン :検索正規表現パターン' 取得位置 :取得するマッチ番号（1～)'' 戻り値 :見つかった文字列' MyRegText = "" Dim reMatch As MatchCollection 'マッチ結果格納用オブジェクト Dim reSubMatches As SubMatches 'サブマッチコレクション格納用 With re .Pattern = パターン .IgnoreCase = True '大小文字の区別無し .Global = True '文字列全体を検索 If re.Test(対象文字列) Then 'テスト マッチ？ Set reMatch = .Execute(対象文字列) If reMatch.Count >= 取得位置 Then Set reSubMatches = reMatch.Item(取得位置 - 1).SubMatches If reSubMatches.Count > 0 Then MyRegText = reSubMatches(0) Else MyRegText = reMatch.Item(取得位置 - 1) 'マッチ文字列 End If End If End If End With End Function |
正規表現オブジェクトを使用するため、「参照設定」をしておく必要があります。
（CreateObjectで作成すれば参照設定の必要は無いが、入力チェックや支援が行われないので設定した方が便利。）
MyRegText(E15,"^.{2,3} [都道府県]")
^ ：行頭を表す。この場合、対象文字列の先頭
. ：任意の１文字
{2,3} ：直前に指定した正規表現（本例では「.」）が２文字以上３文字以内で連続
[都道府県]：[ ]内に記述されたいずれかの１文字
^.{2,3}[都道府県]：対象文字列の先頭から２、３文字の後に続く、都道府県のいずれかの１文字まで
MyRegText(E15,"^.{2,3} [都道府県](.*)")
これは、都道府県の後に続く文字列を取り出している。
( )：グループ化。括弧がある場合、その括弧の内側の文字列が取り出される。
* ：０個以上の繰り返し
.* ：任意の文字が０個以上続く
MyRegText("0"&$B8&"0","0([^0]{4})0",2)
この例は、０以外の文字が４個連続する文字列の２番目の文字列を取り出している。
下図の例では、4441 , 4442 , 4443 の３個が存在するので、２番目は、4442 となる。
[^0]
：０以外の１文字。[]内の「^」は否定を表す。
[^0]{4} ：０以外の文字が４個連続
0([^0]{4})0 ：両端が「０」である「０」以外の連続する４文字
対象文字列を"0"&$B7&"0"
としているのは、探す文字列が先頭、または末尾にある場合の対処。
端にある場合は「０」で挟まれていないので、対象文字列の両端に「０」を付加している。
