【UWSC】正規表現を使ってマッチした文字列を取り出す

正規表現を使ってマッチした文字列を取り出したい。

UWSCでの正規表現はVBScriptを用いる。

-------------------------------------------------------------
moji = "1234567891000520005" //対象となる文字列

re=CreateOleObj("VBScript.RegExp")
re.pattern = "1.*5" //正規表現パターン。1と5の間の文字を取り出す。
re.Global = True //文字列全体を検索。trueでする(規定)、falseでしない(マッチしたらそこで終了)。
re.IgnoreCase = True //大文字・小文字を区別。trueでしない(規定)、falseでする。
match = re.Execute(moji)

//マッチしたものをすべて出力
for i = 0 To match.Count-1
print match.Item(i).Value
next
-------------------------------------------------------------

出力結果:1234510005