WSH(WScriptHost?)の正規表現(後方参照)について

質問

最近WSHを始めたのですが、文字列の中から10桁の数字を取り出す処理(後方参照？)はどのように書けばよいのでしょうか？

str = "ああああ4104715018あああああああ"

Set fso = CreateObject("Scripting.FileSystemObject")
Set regEx = New RegExp

regEx.Pattern = "[0-9]{10}"
If regEx.Test(str) Then
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate2 "http://www.xxx.xxx.cgi?xxx="　←ここに数字列を入れたい
IE.Visible = True
End If

↑とりだした数字列をCGIのパラメータに入れてページを別ウインドウで表示したいのです。

ちなみにPerlだと↓でできるようなのですが…。

$_ = "ああああ4104715018あああああああ";
if( m{([0-9]{10})} ) {
print "$1";
}

表示結果
4104715018

よろしくお願いします。

回答No.1

noname#223623 · ベストアンサー

これってVBScriptってことでいいんですよね(違ったらどうしよう)。はっきり言ってVBScriptはよく知らないけど、マニュアル読んでがんばってみました。コードは単純化してます。

---- ここから ----------------------------
str = "ああああ4104715018あああああああ"
set regEx = new RegExp
regEx.pattern = "[0-9]{10}"
set Matches = regEx.Execute(str)

WScript.echo Matches(0) ' マッチした数字
---- ここまで ----------------------------

質問の内容を実現するんだったらこれでいける。でも、これは後方参照を使ってないので、後方参照を使うんならこんなふうにする。

---- ここから ----------------------------
'strの数字部分を取り出す
str = "abcdef0123ghi45678jkl"

set regEx = new RegExp
regEx.pattern = "([0-9]+)[^0-9]+([0-9]+)"
set Matches = regEx.Execute(str)

WScript.echo Matches(0).SubMatches(0) '最初の()
WScript.echo Matches(0).SubMatches(1) '二番目の()
---- ここまで ----------------------------

以上、間違ってたらごめんなさい。

お礼

ありがとうございます。
上の方法で実現できました。

…
set Matches = regEx.Execute(str)
…
IE.Navigate2 "http://www.xxx.xxx.cgi?xxx=" + Matches(0)
…

すぐにアドバイスいただいて助かりました。
ありがとうございました。