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

roaddust2000 2004-12-07 08:02:52
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太陌生了。。请各位帮忙。。谢谢!
...全文
88 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
roaddust2000 2004-12-10
好了,解决了。。
谢谢了! 他原来的正则表达式写的就有问题呵
回复
roaddust2000 2004-12-07
语法还不对吧?
回复
roaddust2000 2004-12-07
没有用啊。。。。。
回复
bzscs 2004-12-07
<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>
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-12-07 08:02
社区公告
暂无公告