[正規表現を使って検索する]

正規表現を使用して、文字列を検索します。
大文字／小文字を区別せず、文字列全体を検索するように設定しています。

【ソースコード】

[tips0057.vbs]
Option Explicit

Dim objRegExp       ' 正規表現オブジェクト
Dim objMatches      ' 検索結果
Dim objMatch        ' 検索結果
Dim strMessage      ' 表示メッセージ

Set objRegExp = New RegExp
objRegExp.Pattern = "Test."
objRegExp.IgnoreCase = True
objRegExp.Global = True
Set objMatches = objRegExp.Execute("TEST1, test2, Test3, TeStX")

WScript.Echo objRegExp.Pattern & " は"
For Each objMatch In objMatches
    strMessage = "　" & objMatch.FirstIndex + 1 & _
        " 文字目に見つかりました。" & _
        "一致した文字列は " & objMatch.Value & " です。"
    WScript.Echo strMessage
Next

Set objMatches = Nothing
Set objRegExp = Nothing

【実行結果】

C:\> cscript //NoLogo tips0057.vbs
Test. は
　1 文字目に見つかりました。一致した文字列は TEST1 です。
　8 文字目に見つかりました。一致した文字列は test2 です。
　15 文字目に見つかりました。一致した文字列は Test3 です。
　22 文字目に見つかりました。一致した文字列は TeStX です。