VBAの正規表現で特定のフレーズの出現回数を数えるには？

質問

VBスクリプトでの正規表現について質問します。
例として、次のようなプログラムを作成し、メッセージボックスに"2回"と表示されるような結果を期待しているのですが、"1回"と表示されて困っています。2回と表示されるようにするには、どのようにすればよいのでしょうか？アドバイスをお願いします。

Dim objRegex, objMatches, objMatch As Object
Dim intRslt As Integer
Dim strSource,strPattern As String
Set objRegex = CreateObject("VBScript.RegExp")
strSource = "お米の国と呼ばれる日本。お米のお国処は、秋田"
strPattern ="お米.*国"

With objRegex
.Pattern = strPattern
.ignorecase = True
'.Global = True
End With

Set objMatches = objRegex.Execute(strSource)
intRslt = objMatches.Count

msgbox(intRslt & "回")

エクセルに使用するため、"VBScript.RegExp"での動作環境になります。

回答No.1

himajin100000 · ベストアンサー

Option Explicit

Sub hoge()

Dim objRegex, objMatches, objMatch As Object
Dim intRslt As Integer
Dim strSource, strPattern As String
Set objRegex = CreateObject("VBScript.RegExp")
strSource = "お米の国と呼ばれる日本。お米のお国処は、秋田"
strPattern = "お米.*?国" '最短一致

With objRegex
.Pattern = strPattern
.ignorecase = True
.Global = True 'コメント外す
End With

Set objMatches = objRegex.Execute(strSource)
intRslt = objMatches.Count

MsgBox (intRslt & "回")

End Sub

'最長一致，最短一致
'http://www.lightship.co.jp/FileVisor6/help/operation/regexp.htm

お礼

期待していた結果を求めることができました。ありがとうございました。