您的位置：首页 → 网页设计 → HTML/CSS  → 将HTML转成UBB代码的小脚本

将HTML转成UBB代码的小脚本

时间：2004/11/7 2:40:00来源：本站整理作者：蓝点我要评论(0)

　

将HTML转成UBB代码的小脚本

只写了几个常用的标签，如果要添加其他标签，按照已有的正则照猫画虎 （存储于剪切板的超文本和源文件有可能是不同的！！也就是说浏览器已经对原有 html 进行了规范化） <script Language="JavaScript1.2"><BR> //coded by windy_sk <windy_sk@126.com> 20031218<BR> <BR> function html_trans(str) {<BR> str = str.replace(/\r/g,"");<BR> str = str.replace(/on(load|click|dbclick|mouseover|mousedown|mouseup)="[^"]+"/ig,"");<BR> str = str.replace(/<script[^>]*?>([\w\W]*?)<\/script>/ig,"");<BR> <BR> str = str.replace(/<a[^>]+href="([^"]+)"[^>]*>(.*?)<\/a>/ig,"\n<A HREF="$1" TARGET=_blank>$2</A>\n");<BR> <BR> str = str.replace(/<font[^>]+color=([^ >]+)[^>]*>(.*?)<\/font>/ig,"\n<font color=$1>$2</font>\n");<BR> <BR> str = str.replace(/<img[^>]+src="([^"]+)"[^>]*>/ig,"\n<a href="$1" target=_blank><IMG SRC="$1" border=0 alt=按此在新窗口浏览图片 onload='javascript:if(this.width>screen.width-300)this.width=screen.width-300'></a>\n");<BR> <BR> str = str.replace(/<([\/]?)b>/ig,"[$1b]");<BR> str = str.replace(/<([\/]?)strong>/ig,"[$1b]");<BR> str = str.replace(/<([\/]?)u>/ig,"[$1u]");<BR> str = str.replace(/<([\/]?)i>/ig,"[$1i]");<BR> <BR> str = str.replace(/&nbsp;/g," ");<BR> str = str.replace(/&amp;/g,"&");<BR> str = str.replace(/&quot;/g,"\"");<BR> str = str.replace(/&lt;/g,"<");<BR> str = str.replace(/&gt;/g,">");<BR> <BR> str = str.replace(/<br>/ig,"\n");<BR> str = str.replace(/<[^>]*?>/g,"");<BR> str = str.replace(/\[url=([^\]]+)\]\n(\[img\]\1\[\/img\])\n\[\/url\]/g,"$2");<BR> str = str.replace(/\n+/g,"\n");<BR> <BR> return str;<BR> }<BR> <BR> function trans(){<BR> var str = "";<BR> rtf.focus();<BR> rtf.document.body.innerHTML = "";<BR> rtf.document.execCommand("paste");<BR> str = rtf.document.body.innerHTML;<BR> if(str.length == 0) {<BR> alert("剪切版不存在超文本数据！");<BR> return "";<BR> }<BR> return html_trans(str);<BR> }<BR> </script><BR> <BR> <textarea style="width:100%; height:200px" id="text" class="textarea" onbeforepaste="if(document.getElementById('x_paste').checked){window.clipboardData.setData('text',trans());this.focus();}"> 启用超文本粘贴转换 [Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行] 使用说明 在别的网页中选择HTML内容，比如有链接，或者颜色的拷贝。 点击运行代码按钮 直接点击转换 出来的就是论坛专用的 ubb 代码了。

相关阅读 Mac访问Windows共享文件夹Windows 7正版系统验证方法windows 8.1系统版本号查看方法Windows 8.1系统电话激活时无法输入微软返回代码解决方法Windows 8如何调整屏幕分辨率windows8.1磁盘占用100%解决方法Mac双系统如何删除Boot Camp安装的Windows分区Apple教你如何在Mac 上运行 Windows

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论