哪位能把这个函数改为asp.net下可以运行的函数,谢谢!
Function RegExpExecute(ByVal strng)
Dim regEx, Match, Matches '建立变量。
regEx = New RegExp '建立正则表达式。
regEx.Pattern = "(src=)( '| " & CHR(34) & "| )?(.[^ '|\s| " & CHR(34) & "]*)(\.)(jpg|gif|png|bmp|jpeg)( '| " & CHR(34) & "|\s|> )? " '设置模式。
' regEx.Pattern = "(src=)( '| "&CHR(34)& "| )?(.[^ '| | "&CHR(34)& "]*)(\.)(jpg|gif|png|bmp|jpeg)( '| "&CHR(34)& "| |> )? " '设置模式。
'regEx.Pattern = "(s|S)(r|R)(c|C)=( '| "+CHR(34)+ ")(\w|\\|\/|\.)+( '| "+CHR(34)+ "| *|> )? " '设置模式。
regEx.IgnoreCase = True '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Matches = regEx.Execute(strng) '执行搜索。
For Each Match In Matches '遍历匹配集合。
values=values&Match.SubMatches(2)&Match.SubMatches(3)&Match.SubMatches(4)& " <BR> "
Next
RegExpExecute = values
End Function
------解决方案--------------------asp.net 可以直接使用 VB.net 开发的
------解决方案--------------------VB.net的东西了解的比较少,但还是来帮顶一下!
------解决方案--------------------试试:
Function RegExpExecute(ByVal strng) As String
Dim values As String = String.Empty
Dim pattern As String = "(src=)( '| " & Chr(34) & "| )?(.[^ '|\s| " & Chr(34) & "]*)(\.)(jpg|gif|png|bmp|jpeg)( '| " & Chr(34) & "|\s|> )? " '设置模式。
' regEx.Pattern = "(src=)( '| "&CHR(34)& "| )?(.[^ '| | "&CHR(34)& "]*)(\.)(jpg|gif|png|bmp|jpeg)( '| "&CHR(34)& "| |> )? " '设置模式。
'regEx.Pattern = "(s|S)(r|R)(c|C)=( '| "+CHR(34)+ ")(\w|\\|\/|\.)+( '| "+CHR(34)+ "| *|> )? " '设置模式。
Dim Matches = System.Text.RegularExpressions.Regex.Matches(strng, pattern, RegexOptions.IgnoreCase)
Dim mat As System.Text.RegularExpressions.Match
For Each mat In Matches '遍历匹配集合。
values = values & mat.Groups(2).Value & mat.Groups(3).Value & mat.Groups(4).Value & " <BR> "
Next
RegExpExecute = values
End Function
------解决方案--------------------2楼的,你编译出错应该是没装正则表达式的工具吧