VBScript: 正規表現によるマッチングした個数を取得する Count

VBScriptの正規表現でマッチングした個数を取得する場合は、 MatchesコレクションのCount プロパティを使用します。

MatchesコレクションはMatchオブジェクトのコレクションであり、 正規表現による検索結果が格納されています。

次のサンプルプログラムでは、Countプロパティでマッチングした 数を表示しています。

' 検索対象
str = "bat,cat,but,cut"
' パターン
strPattern = "c.t"

' RegExpオブジェクト
Set objRe = New RegExp

' パターン
objRe.Pattern = strPattern
' 全体を検索
objRe.Global = True

' 検索
Set objMatch = objRe.Execute(str)

' 一致した数
WScript.Echo "一致した数: " & objMatch.Count

' 検索結果のループ
For Each m In objMatch
	' 一致した文字列を表示
	WScript.Echo m.Value
Next
実行結果
一致した数: 2
cat
cut
VBScript入門