意外的声明结束

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