vbs正则表达式 对网址
发布时间：2020-12-14 01:28:02 所属栏目：百科 来源：网络整理
导读：Dim re,s,colMatches,match Set re = New RegExp re.Global = True re.Pattern = "http://(w+[w-]*w+.)*w+" s = "http://www.kingsley-hughes.com is a valid web address. And so is " s = s vbCrLf "http://www.wrox.com. And " s = s vbCrLf "http://
|
Dim re,s,colMatches,match Set re = New RegExp re.Global = True re.Pattern = "http://(w+[w-]*w+.)*w+" s = "http://www.kingsley-hughes.com is a valid web address. And so is " s = s & vbCrLf & "http://www.wrox.com. And " s = s & vbCrLf & "http://www.pc.ibm.com - even with 4 levels." Set colMatches = re.Execute(s) For Each match In colMatches MsgBox "Found valid URL: " & match.Value Next dim re,s set re= new RegExp re.Pattern = "France" s = "The rain in France falls mainly on the plains." msgbox re.replace(s,"Spain") （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |