UC知道正则问题 script改为vb
来源：百度知道 编辑：UC知道 时间：2024/09/28 11:34:49
<script language="JavaScript">
<!--
var str = "[url]http://www.163.com[/url]";
var m = /\[url\](.+?)\[\/url\]/gi;
var n = '<a href="$1">$1</a>';
var newStr=str.replace(m, n);
document.write(newStr);
alert(newStr);
//-->
</script>
如何改为vb模式
Function RegUrl(TheStr)
Dim regEx, Match, Matches,RetStr ' 建立变量。
Set RegEx = New RegExp
RegEx.IgnoreCase = True
regEx.Global =true
RegEx.Pattern = "\[url\](.+?)\[\/url\]"
Set Matches = regEx.Execute(thestr) ' 执行搜索。
For Each Match in Matches ' 遍历匹配集合。
response.Write(match.value)
Next
End Function
一样的正则，得到不同的结果。我想得到js那种的结果。用的是vb语言
<!--
var str = "[url]http://www.163.com[/url]";
var m = /\[url\](.+?)\[\/url\]/gi;
var n = '<a href="$1">$1</a>';
var newStr=str.replace(m, n);
document.write(newStr);
alert(newStr);
//-->
</script>
如何改为vb模式
Function RegUrl(TheStr)
Dim regEx, Match, Matches,RetStr ' 建立变量。
Set RegEx = New RegExp
RegEx.IgnoreCase = True
regEx.Global =true
RegEx.Pattern = "\[url\](.+?)\[\/url\]"
Set Matches = regEx.Execute(thestr) ' 执行搜索。
For Each Match in Matches ' 遍历匹配集合。
response.Write(match.value)
Next
End Function
一样的正则，得到不同的结果。我想得到js那种的结果。用的是vb语言
''' <summary>
''' 获取正则搜索值(默认找到的第一个)
''' </summary>
''' <param name="Str">字符串</param>
''' <param name="Reg">正则表达式</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetrEgex(ByVal Str As String, ByVal Reg As String) As String
Try
Dim r As New Regex(Reg, RegexOptions.Compiled)
Try
Return r.Matches(Str).Item(0).ToString
Catch ex As Exception
'未找到匹配项
Return ""
End Try
Catch ex As Exception
'错误
Return ""
End Try
End Functi