2.8w+
社区成员
由js转换成vbs语法并处理正则表达式的问题
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太陌生了。。请各位帮忙。。谢谢！
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太陌生了。。请各位帮忙。。谢谢！
...全文
当前发帖距今超过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>
<!--
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>
Notepad2_v4.1.24简体中文版(Windows7) 1 自定义语法高亮，支持HTML, XML, CSS, ...8 使用标准的正则表达式搜索和替换 9 可以使用半透明模式，cool 10 快速放大、缩小页面，不用再设定字体大小 11 可以指定ESC键最小化Notepad2到系统托盘或者关闭Notepad2
Js 正则表达式 Js正则表达式正用法整理 基本语法 在对正则表达式的功能和作用有了初步的了解之后，我们就来具体看一下正则表达式的语法格式。 正则表达式的形式一般如下： /love/ 其中位于“/”定界符之间的部分就是将要...
测试开发笔记 提高产品的适用范围和使用质量标准 1、明确进行α测试的版本 2、邀请潜在用户进行使用体验 3、针对用户提出的问题进行修复或改进 β测试 潜在用户： 1、安装软件并使用 客服人员： 记录并反馈用户的问题 提前占领...
JavaScript 各种参数 详解 1.文本框焦点问题 onBlur:当失去输入焦点后产生该事件 onFocus:当输入获得焦点后，产生该文件 Onchange:当文字值改变时，产生该事件 Onselect:当文字加亮后，产生该文件 (value=='') {value='郭强'}">点击时...
Javascript如何获取选中项的文本值TEXT不是VALUE 页面中用的DropDownList控件时,需要用javascript客户端脚本进行验证时,var ddl = document.getElementById("控件名");取得选中的列的文本值ddl.options[ddl.selectedIndex].innerText 取得选中值相对应的valueddl....
JavaScript 各种事件、方法、参数详解示例及常见问题等（全） 1.文本框焦点问题 onBlur:当失去输入焦点后产生该事件 onFocus:当输入获得焦点后，产生该文件 Onchange:当文字值改变时，产生该事件 Onselect:当文字加亮后，产生该文件 点击时文字消失，失去焦点时文字再出现 ...
强大的javascript 1.文本框焦点问题onBlur:当失去输入焦点后产生该事件onFocus:当输入获得焦点后，产生该文件Onchange:当文字值改变时，产生该事件Onselect:当文字加亮后，产生该文件点击时文字消失，失去焦点时文字再出现2....
js 常用 1.document.write(""); 输出语句 2.JS中的注释为// 3.传统的HTML文档顺序是:document->html->(head,body) 4.一个浏览器窗口中的DOM顺序是:window->(navigator,screen,histo
js技術大全 1.文本框焦点问题onBlur:当失去输入焦点后产生该事件onFocus:当输入获得焦点后，产生该文件Onchange:当文字值改变时，产生该事件Onselect:当文字加亮后，产生该文件(value==) {value=郭强}">点击时文字消失，失去...
PHP面试题目搜集 JSON采用完全独立于语言的文本格式，但是也使用了类似于C语言家族的习惯（包括C, C++, C#, Java, JavaScript, Perl, Python等） c. 这些特性使JSON成为理想的数据交换语言。易于人阅读和编写，同时也易于机器...
js技巧收集 1.文本框焦点问题onBlur:当失去输入焦点后产生该事件onFocus:当输入获得焦点后，产生该文件Onchange:当文字值改变时，产生该事件Onselect:当文字加亮后，产生该文件(value==) {value=郭强}">点击时文字消失，失去...
语料编程空手道：从 VBA，到 VBS，到 HTA 语料编程空手道：从 VBA，到 VBS，到 HTA 作者：李亮（2013 年 7 月 1 日） 谈到语料，典型的存在体是足够统计学意义的一系列文本文件；如果语料都导入了数据库管理系统（例如 Microsoft Access 或 ...
sql注入式攻击 ①大小定混合法：由于VBS并不区分大小写，而程序员在过滤时通常要么全部过滤大写字符串，要么全部过滤小写字符串，而大小写混合往往会被忽视。如用SelecT代替select,SELECT等； ②UNICODE法：在IIS中，以UNICODE...
Asp.net 用DataSet对象更新数据(SqlDataAdapter) DataTable加主键 2. ASP.NET中17种常用正则表达式(508) 3. asp中正则表达式的应用(371) 4. 使用 Asp(vbs) 来读取 XML 数据岛 来制作网站菜单(353) 5. XmlHttp.readyState属性整理（陆续加入中）(350) ...
PHP基础面试问题汇总 Smarty,jquery,ajax,memcache,div+css,js,mysqli,pdo,svn,thinkphp,brophp,yii 你所熟悉的PHP论坛系统 有哪些？ Discuz 你所熟悉的PHP商城系统 有哪些？ Ecshop 你所熟悉的PHP开发框架 有哪些？ Brophp,...
Atitit prgrmlan 编程语言主题列表 \0 it impttech topic\prgrmlan topic编程语言专题\AOP拦截器 表达式写法.docx \0 it impttec \0 it impttech topic\prgrmlan topic编程语言专题\AOP拦截器 表达式写法.docx \0 it impttech topic\prgrmlan topic编程语言专题\Atitit attilax编程艺术 艾龙著.docx \0 it impttech topic\prgrmlan topic编程...
HTML ASP VBSCRIPT JAVASCRIPT SKILLS 常见问题 5. <link rel="Shortcut Icon" href="favicon.ico"> IE地址栏前换成自己的图标 6. <link rel="Bookmark" href="favicon.ico"> 可以在收藏夹中显示出你的图标 7. <input style="ime-mode:disabled"> 关闭输入法...
ＳＱＬ注入全接触 拿一个nvarchar的值跟int的数0比较，系统会先试图将nvarchar的值转成int型，当然，转的过程中肯定会出错，SQLServer的出错提示是：将nvarchar值 ”abc” 转换数据类型为 int 的列时发生语法错误，呵呵，abc正是变量...
