意外的聲明結束

Question

我越過以下消息錯誤「第2行中語句的意外結束」我看不到任何錯誤嗎？什麼是我做錯了..

Sub Main() 
    Dim regex As Regex = New Regex("\d+") 
    Dim match As Match = regex.Match("Dot 77 Perls") 
    If match.Success Then 
     MessageBox.Show(match.Value) 
    End If 
End Sub 

Answer 1

你混合VB.NET語法使用VBScript，上面的代碼應該這樣寫這樣：

Dim regex 
Set regex = CreateObject("VBScript.RegExp") 

    regex.Pattern = "\d+" 

    If regex.Test("Dot 77 Perls") Then 
     WScript.Echo regex.Execute("Dot 77 Perls")(0) 
    End If 

更多關於VBScript的正則表達式引擎信息可以this MSDN page