28,391
社区成员
发帖
与我相关
我的任务
分享
s = "<span style='font-size:4px'>asfsfsdfs</span>"
Dim RegEx, RegMatches
Set RegEx = New RegExp
RegEx.Pattern = "<span([^>]+?)>([^<]+?)<\/span>"
RegEx.Global = True
Set RegMatches = RegEx.Execute(s)
For Each RegMatch In RegMatches
Response.Write RegMatch.SubMatches(1)
Next
str = "<span>hello,world</span><span>hello,world_2</span><span>hello,world_3</span>"
Set RegEx = New RegExp
RegEx.Global = True
RegEx.IgnoreCase = True
RegEx.Pattern = "<span>([^<]+?)<\/span>"'"[a-z](\d+)[a-z]{3}"
str = regex.Replace(str,"<input type=hidden value='$1'>")
Set RegEx = Nothing
Response.Write str