将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 代码了。