Function IsValidUrl(str) Dim regEx Set regEx = New RegExp regEx.Pattern = "http(s)?://([w-]+.)+[w-]+(/[w-./?%&=]*)?" IsValidUrl = regEx.Test(str) End Function
代码如下: % ' -------------------------------------------------------------- ' Match 对象 ' 匹配搜索的结果是存放在 Match 对象中,提供了对正则表达式匹配的只读属性的访问。 ' Match 对象只能通过 RegExp 对象的 Execute 方法来创建,该方法实际上返回了 Match 对象的集合。 ' 所有的 Match 对象属性都是只读的。在执行正则表...