首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > asp.net >

哪位能把这个函数改为asp.net下可以运行的函数,多谢

2012-01-13 
哪位能把这个函数改为asp.net下可以运行的函数,谢谢!FunctionRegExpExecute(ByValstrng)DimregEx,Match,Ma

哪位能把这个函数改为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楼的,你编译出错应该是没装正则表达式的工具吧


LZ你在VS中用VB.NET建立ASP.NET程序,把这段代码copy到里面就可以了。

热点排行