VBScript.RegExpを使ってマッチさせようとしています。

Question

VBScriptでCreateObject("VBScript.RegExp")を使ってマッチさせようとしています。
Perlでは正規表現でマッチした文字列の前後を「$`」や「$'」で取りだす事ができますが、
VBScriptで取り出す方法はありますか？

Answer 1

Execute メソッド (VBScript)

RegExp.Executeメソッドを使用すると、Matchオブジェクトの集合であるMatchCollectionを取得できます。

Matchオブジェクトからは、マッチした文字列やその出現位置、()によりグループ化された文字列などを取得できます。

Matchオブジェクトから得られる各種情報を使えば、元の文字列から必要な文字列を取り出せると思います。

'Extract "AB" and "FG"
Const SAMPLE_STRING = "ABCDEFG"
Dim matchPattern 'As String
matchPattern = "[C-E]+"

'Init RegExp
'VBScript_RegExp_55 = Microsoft VBScript Regular Expressions 5.5
Dim regEx 'As VBScript_RegExp_55.RegExp
Set regEx = CreateObject("VBScript.RegExp")
regEx.Pattern = matchPattern


Dim mc 'As VBScript_RegExp_55.MatchCollection
Set mc = regEx.Execute(SAMPLE_STRING)
If mc.Count = 0 Then Err.Raise 5 'not match


Dim m 'As VBScript_RegExp_55.Match
Set m = mc.Item(0) '0 start

Dim headTxt 'As String
Dim tailTxt 'As String
'FirstIndex：出現位置（0スタート）
headTxt = Left(SAMPLE_STRING, m.FirstIndex)
tailTxt = Mid(SAMPLE_STRING, m.FirstIndex + m.Length + 1)

Call MsgBox(headTxt & vbLf & tailTxt)