求正则表达式,在线等。
发布网友
发布时间：2023-07-05 06:11
共2个回答
热心网友
时间：2024-01-25 23:31
Dim str, reg, objMatches
str = "<object height=""202"" width=""210"" classid=""CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6"" align=""center"" border=""0""><param name=""AutoStart""
value=""0""><param name=""Balance"" value=""0""><param name=""enabled"" value=""-1""><param name=""EnableContextMenu"" value=""-1""><param name=""url"" value=""这里是URL地
址""><param name=""PlayCount"" value=""1""><param name=""rate"" value=""1""><param name=""currentPosition"" value=""0""><param name=""currentMarker"" value=""0""><param
name=""defaultFrame"" value=""""><param name=""invokeURLs"" value=""0""><param name=""baseURL"" value=""""><param name=""stretchToFit"" value=""0""><param name=""volume""
value=""100""><param name=""mute"" value=""0""><param name=""uiMode"" value=""mini""><param name=""windowlessVideo"" value=""-1""><param name=""fullScreen""
value=""0""><param name=""enableErrorDialogs"" value=""-1""><param name=""SAMIStyle"" value><param name=""SAMILang"" value><param name=""SAMIFilename"" value><param
name=""captioningID"" value></object>" '这里放你从数据库中取出的代码
Set reg = new RegExp
reg.IgnoreCase = True
reg.Global = True
reg.Pattern = "<param[^>]*name=""url""[^>]*value=""([^>]*)"">"
Set objMatches = reg.Execute(str)
If objMatches.Count > 0 Then
Response.Write(objMatches(0).SubMatches(0))
End If
%>
热心网友
时间：2024-01-25 23:32
/(?<=value=")[\+\-]?\d+\b/
