由js转换成vbs语法并处理正则表达式的问题

[roaddust2000]

HTML=HTML.replace(/\-\s<\/font><a\sclass=fl.*类似网页<\/a>(<\/font>|(<br>.*<\/font>))/gi, "</font>");

HTML=HTML.replace(/(onmousedown\=\"return clk)/gi, "target=_blank onmousedown=\"return clk");

Footer=Footer.replace(/\/intl\/zh\-CN\//ig,"images/");

Footer=Footer.replace(/\/search\?q\=/ig,"google.asp?keyword="+Request("keyword")+"&q=");

Footer=Footer.match(/<br clear=all><div class=n><table.*<\/span><\/a><\/table>/);

以上五个语句均要从js转换成 vbs 的语法。。。对js太陌生了。。请各位帮忙。。谢谢！

[bzscs]

<script language="vbScript">
<!--
Function ReplaceTest(patrn, sStr1, sStr2)
Dim regEx ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
ReplaceTest = regEx.Replace(sStr1, sStr2) ' 作替换。
End Function

sPatrn = "\-\s<\/font><a\sclass=fl.*类似网页<\/a>(<\/font>|(<br>.*<\/font>))"
sTest = "bzyum- </font><a class=fl href=www.163.com>类似网页</a></font>"
msgbox(ReplaceTest(sPatrn,sTest,"</font>"))

sPatrn = "onmousedown\=\""return clk"
sTest = "<a href=""####"" onmousedown=""return clk"">bzyum</a>"
msgbox(ReplaceTest(sPatrn,sTest,"target=_blank onmousedown=\""return clk"))

sPatrn = "\/intl\/zh\-CN\/"
sTest = "bzyum- /intl/zh-CN/sdfsdf"
msgbox(ReplaceTest(sPatrn,sTest,"images/"))

sPatrn = "\/search\?q\="
sTest = "/search?q=bzyum"
msgbox(ReplaceTest(sPatrn,sTest,"google.asp?keyword=""+Request(""keyword"")+""&q="))

Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局替换。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 遍历 Matches 集合。
RetStr = RetStr & "Match " & I & " found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is "'
RetStr = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function

sTest = "bzyum<br clear=all><div class=n><table border=0><a href=bzscs><span>bzyum</span></a></table>"
msgbox(RegExpTest("<br clear=all><div class=n><table.*<\/span><\/a><\/table>",sTest))
//-->
</script>

[roaddust2000]

没有用啊。。。。。

[roaddust2000]

语法还不对吧？

[roaddust2000]

好了，解决了。。
谢谢了！ 他原来的正则表达式写的就有问题呵