从字符串行中查找域名的VBScript正则表达式

Question

我正在尝试创建一个正则表达式，以便在一行中找到域名。

目前，我试过这个，但不起作用。

Set objDomainEx = CreateObject("VBScript.RegExp")
objDomainEx.Global = True   
objDomainEx.Pattern = "((?:[A-Z0-9-]+\.)+[A-Z]{2,4})$"
Set matches = objDomainEx.Execute(strSearchString) 
If matches.Count > 0 Then
    For Each strMatch in matches    
       Wscript.Echo strMatch.Value
    Next
End If

这是怎么回事。我的域名看起来像www.aaaaa.sssss.vvvvv.domain之类的

Answer 1

您的角色类不包括小写字母。您还应该包括[a-z]。

((?:[a-zA-Z0-9-]+\.)+[a-zA-Z]{2,4})$

或者，您可以将Regex对象的大小写不区分为

objDomainEx.IgnoreCase = True

Answer 2

objDomainEx.Pattern = "((?:[A-Z0-9-]+\.)+[A-Z]{2,4})$"

我的域名看起来像www.aaaaa.sssss.vvvvv.domain

所以这里的问题是：

1. 您的regex似乎只匹配大写字母。
2. 您的regex假设域的最后部分只有4个字符长。(有些域的后缀比这个长)。