VBA で正規表現を使う（RegExp オブジェクトのメソッド）

RegExp オブジェクトの詳細に関しては、VBA で正規表現を使う（RegExp オブジェクト）、プロパティの詳細に関しては、RegExp オブジェクトのプロパティを参照してください。

Test メソッド

指定された文字列を正規表現で検索した結果、パターンに一致する文字列が検索されたかどうかを判定します。

【書式】

object.Test ( string )

引数・戻り値

object ・・・対象となる RegExp オブジェクトを指定します。
string ・・・正規表現による検索の対象となるテキスト文字列を指定します。
戻り値・・・ブール型（Boolean）。パターンに一致する文字列が見つかると True、見つからないと False を返します。

　
Sub Sample_RegExp_Test()

' 参照設定：Microsoft VBScript Regular Expressions 5.5
    
    Dim re As RegExp
    Dim myStr1 As String
    Dim myStr2 As String
    Dim orgStr As String
    
    Set re = New RegExp
    
    orgStr = "abc def ghi jkl abc ghi"
    
    re.Pattern = "abc"
    If re.Test(orgStr) Then
        myStr1 = "検索文字列「" & re.Pattern & "」は見つかりました。"
    Else
        myStr1 = "検索文字列「" & re.Pattern & "」は見つかりませんでした。"
    End If
    
    re.Pattern = "fgh"
    If re.Test(orgStr) Then
        myStr2 = "検索文字列「" & re.Pattern & "」は見つかりました。"
    Else
        myStr2 = "検索文字列「" & re.Pattern & "」は見つかりませんでした。"
    End If
    
    MsgBox "検索文字列=""" & orgStr & """" & vbCrLf & myStr1 & vbCrLf & myStr2
    
End Sub

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

Sub Sample_RegExp_Test()

' 参照設定：Microsoft VBScript Regular Expressions 5.5

Dim re As RegExp

Dim myStr1 As String

Dim myStr2 As String

Dim orgStr As String

Set re = New RegExp

orgStr = "abc def ghi jkl abc ghi"

re.Pattern = "abc"

If re.Test(orgStr) Then

myStr1 = "検索文字列「" & re.Pattern & "」は見つかりました。"

Else

myStr1 = "検索文字列「" & re.Pattern & "」は見つかりませんでした。"

End If

re.Pattern = "fgh"

If re.Test(orgStr) Then

myStr2 = "検索文字列「" & re.Pattern & "」は見つかりました。"

Else

myStr2 = "検索文字列「" & re.Pattern & "」は見つかりませんでした。"

End If

MsgBox "検索文字列=""" & orgStr & """" & vbCrLf & myStr1 & vbCrLf & myStr2

End Sub

実行結果

Replace メソッド

正規表現で検索して見つかった文字列を置換します。

【書式】

object.Replace ( string1, string2 )

引数・戻り値

object ・・・対象となる RegExp オブジェクトを指定します。
string1 ・・・検索および置換の対象となるテキスト文字列を指定します。
string2 ・・・置換するテキスト文字列を指定します。
戻り値・・・正規表現で検索し、マッチした文字列を引数 string2 で指定した文字列に置き換えた文字列を返します。マッチするものが見つからなかった場合は、元の文字列（引数 string1 で指定した文字列）を返します。

　
Sub Sample_RegExp_Replace()

' 参照設定：Microsoft VBScript Regular Expressions 5.5
    
    Dim re As RegExp
    Dim myStr As String
    Dim orgStr As String

    Set re = New RegExp
    
    orgStr = "abc def ghi jkl abc ghi"
    
    re.Pattern = "abc"
    re.Global = True
    
    myStr = "置換前：" & orgStr & vbCrLf
    myStr = myStr & "置換後：" & re.Replace(orgStr, "xyz")
    
    MsgBox myStr
        
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

Sub Sample_RegExp_Replace()

' 参照設定：Microsoft VBScript Regular Expressions 5.5

Dim re As RegExp

Dim myStr As String

Dim orgStr As String

Set re = New RegExp

orgStr = "abc def ghi jkl abc ghi"

re.Pattern = "abc"

re.Global = True

myStr = "置換前：" & orgStr & vbCrLf

myStr = myStr & "置換後：" & re.Replace(orgStr, "xyz")

MsgBox myStr

End Sub

実行結果

Execute メソッド

正規表現で検索した結果を Matches コレクションとして返します。

【書式】

object.Execute ( string )

引数・戻り値

object ・・・対象となる RegExp オブジェクトを指定します。
string ・・・正規表現による検索の対象となるテキスト文字列を指定します。

　
Sub Sample_RegExp_Execute1()

' 参照設定：Microsoft VBScript Regular Expressions 5.5
    
    Dim re As RegExp
    Dim mc As MatchCollection
    Dim m As Match
    Dim myStr As String
    Dim orgStr As String
    Dim i As Long

    Set re = New RegExp
    
    orgStr = "aabbcc axxyyzzc ghi jkl abbaac ghi"
    
    re.Pattern = "a.+?c"    '「a」で始まり「c」で終わる文字列（最短）に一致
    re.Global = True
    
    Set mc = re.Execute(orgStr)
    For i = 0 To mc.Count - 1
        Set m = mc.Item(i)
        myStr = myStr & m.FirstIndex & "：" & _
                vbTab & m.Value & "（" & _
                m.Length & "）" & vbCrLf
    Next i
    
    MsgBox "位置：" & vbTab & "値（長さ）" & vbCrLf & myStr
        
End Sub

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

Sub Sample_RegExp_Execute1()

' 参照設定：Microsoft VBScript Regular Expressions 5.5

Dim re As RegExp

Dim mc As MatchCollection

Dim m As Match

Dim myStr As String

Dim orgStr As String

Dim i As Long

Set re = New RegExp

orgStr = "aabbcc axxyyzzc ghi jkl abbaac ghi"

re.Pattern = "a.+?c" '「a」で始まり「c」で終わる文字列（最短）に一致

re.Global = True

Set mc = re.Execute(orgStr)

For i = 0 To mc.Count - 1

Set m = mc.Item(i)

myStr = myStr & m.FirstIndex & "：" & _

vbTab & m.Value & "（" & _

m.Length & "）" & vbCrLf

Next i

MsgBox "位置：" & vbTab & "値（長さ）" & vbCrLf & myStr

End Sub

実行結果

Count プロパティ

【書式】

＜取得＞
object.Matches.Count

引数・戻り値

object ・・・対象となる RegExp オブジェクトを指定します。
戻り値・・・ Execute メソッドにより取得した Matche オブジェクトの数。

Item プロパティ

【書式】

＜取得＞
object.Matches [.Item] (number)

引数・戻り値

object ・・・対象となる RegExp オブジェクトを指定します。
number ・・・インデックス値（0 から Matches.Count – 1 までの数値）を指定します。
戻り値・・・ Execute メソッドにより取得した Matche オブジェクト。

FirstIndex プロパティ

マッチした部分の位置を取得します。

【書式】

＜取得＞
object.FirstIndex

引数・戻り値

object ・・・対象となる Matche オブジェクトを指定します。
戻り値・・・検索文字列の最初の位置を0とするオフセット値。

Length プロパティ

マッチした文字列の長さを取得します。

【書式】

＜取得＞
object.Length

引数・戻り値

object ・・・対象となる Matche オブジェクトを指定します。

Value プロパティ

マッチした文字列を取得します。

【書式】

＜取得＞
object.Value

引数・戻り値

object ・・・対象となる Matche オブジェクトを指定します。

SubMatches コレクション

正規表現で検索を実行すると、サブ条件が取得を示す () （カッコ）で囲まれている場合にサブマッチ文字列が 0 個以上作成されます（SubMatches コレクション）。SubMatches コレクションの各項目へは、SubMatches(number) の形でアクセスします。

【書式】

＜取得＞
object.SubMatches( number )

引数・戻り値

object ・・・対象となる Matche オブジェクトを指定します。
number ・・・ 0 以上 SubMatches.Count -1 までのインデックス値を指定します。
戻り値・・・ SubMatches コレクション。SubMatches コレクションの各項目は、正規表現によって検索および取得される文字列です。

　
Sub Sample_RegExp_Execute2()

' 参照設定：Microsoft VBScript Regular Expressions 5.5
    
    Dim re As RegExp
    Dim mc As MatchCollection
    Dim m As Match
    Dim myStr As String
    Dim tmpStr As String
    Dim orgStr As String
    Dim i As Long
    
    Set re = New RegExp
    
    orgStr = "AAAAA BB001 AA202 jk345 abcde i030k X12345"
    
    '「アルファベット大文字のグループ」「数値のグループ」に一致
    re.Pattern = "([A-Z]+)([0-9]+)"
    re.Global = True
    
    Set mc = re.Execute(orgStr)
    
    For Each m In mc
    
        myStr = myStr & m.FirstIndex & ":" & vbTab
        tmpStr = ""
        For i = 0 To m.SubMatches.Count - 1
            If tmpStr <> "" Then
                tmpStr = tmpStr & " - " & m.SubMatches(i)
            Else
                tmpStr = tmpStr & m.SubMatches(i)
            End If
        Next i
        myStr = myStr & tmpStr & vbCrLf
    
    Next m
    
    MsgBox myStr
        
End Sub

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

35

36

37

38

39

40

41

42

Sub Sample_RegExp_Execute2()

' 参照設定：Microsoft VBScript Regular Expressions 5.5

Dim re As RegExp

Dim mc As MatchCollection

Dim m As Match

Dim myStr As String

Dim tmpStr As String

Dim orgStr As String

Dim i As Long

Set re = New RegExp

orgStr = "AAAAA BB001 AA202 jk345 abcde i030k X12345"

'「アルファベット大文字のグループ」「数値のグループ」に一致

re.Pattern = "([A-Z]+)([0-9]+)"

re.Global = True

Set mc = re.Execute(orgStr)

For Each m In mc

myStr = myStr & m.FirstIndex & ":" & vbTab

tmpStr = ""

For i = 0 To m.SubMatches.Count - 1

If tmpStr <> "" Then

tmpStr = tmpStr & " - " & m.SubMatches(i)

Else

tmpStr = tmpStr & m.SubMatches(i)

End If

Next i

myStr = myStr & tmpStr & vbCrLf

Next m

MsgBox myStr

End Sub

実行結果

検索内容	正規表現のパターン例
メールアドレス	^([\w]+)([\w\.-]+)@([\w_\-]+)\.([\w_\.\-]*)[a-z][a-z]$
HTMLのタグ	.*
ひらがな（5文字）	[あ-ん]{5}
カタカナ（3文字以上）	[ア-ン]{3,}
半角カタカナ（5文字以下）	[ｦ-ﾟ]{1,5}
半角英数（5文字以上10文字以下）	[a-zA-Z0-9]{5,10}
郵便番号	^(\d{3})-(\d{4})$
電話番号（市外局番含む）	^0(\d{1}-\d{4}\|\d{2}-\d{3}\|\d{3}-\d{2}\|\d{4}-\d{1})-\d{4}$
電話番号（携帯）	^0[7\|8\|9\|]0-\d{4}-\d{4}$

RegExp オブジェクトのメソッド

Test メソッド

引数・戻り値

Replace メソッド

引数・戻り値

Execute メソッド

引数・戻り値

Matches コレクション

Count プロパティ

引数・戻り値

Item プロパティ

引数・戻り値

Matche オブジェクトのプロパティ等

FirstIndex プロパティ

引数・戻り値

Length プロパティ

引数・戻り値

Value プロパティ

引数・戻り値

SubMatches コレクション

引数・戻り値

正規表現のパターン例