中文XML论坛 - 专业的XML技术讨论区--显示贴子

以文本方式查看主题

-  中文XML论坛 - 专业的XML技术讨论区  (http://bbs.xml.org.cn/index.asp)
--  『 Dot NET,C#,ASP,VB 』  (http://bbs.xml.org.cn/list.asp?boardid=43)
----  有没有高手能将它改成vb？我是猪~[求助]  (http://bbs.xml.org.cn/dispbbs.asp?boardid=43&rootid=&id=10691)

--  作者：david888
--  发布时间：9/29/2004 2:19:00 PM

--  有没有高手能将它改成vb？我是猪~[求助]
搞了3天，不会。看有没有高手能将它改成vb：

function word()
{
HtmlEdit.document.execCommand("Paste",false);
var editBody=HtmlEdit.document.body;
for(var intLoop=0;intLoop<editBody.all.length;intLoop++){
 el=editBody.all[intLoop];
 el.removeAttribute("className","",0);
 el.removeAttribute("style","",0);
 el.removeAttribute("font","",0);
}
var html=HtmlEdit.document.body.innerHTML;
html=html.replace(/<o:p> <\/o:p>/g,"");
html=html.replace(/o:/g,"");
html=html.replace(//g, "");
html=html.replace(//g, "");
html=html.replace(//g, "");
html=html.replace(//g, "");
html=html.replace(//g, "");
html=html.replace(//g, "");
html=html.replace(/<\/P>/g, "");
 html=html.replace(/<\/SPAN>/g, "");
HtmlEdit.document.body.innerHTML = html;
format('selectall');
format('RemoveFormat');
}

--  作者：阳光小虾
--  发布时间：9/30/2004 9:16:00 AM

--
这段代码很象js啊，js转vb？
而且后边的format应该是另一个子函数。。。

W 3 C h i n a ( since 2003 ) 旗下站点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》

8,695.313ms