哪有好的转贴的工具啊??麻烦大哥们推荐下~`

刀巴狼

  同上,谢了~~~

疏林阁

终极的灌水工具:HTML2UBB
软件版本:N/A 软件大小:1KB
软件性质:免费软件 适用平台:Windows 9x/2000/XP
下载地址:http://www.newhua.com/cfan/200416/html2ubb.rar

刀巴狼

谢了，大哥,我去看看

百战天虫

转帖工具？
还用下载软件吗？太麻烦了！
自己看吧！
http://www.52music.net/bbs/ubbchange.htm
我想要这个程序！嗷嗷~~~~~

刀巴狼

呵呵，谢谢各位大哥啊，这下好多了，没有那么辛苦了~~~~~

嗷嗷~~~~~~哈哈

pk300

下面是引用mengkun于2004-09-7 10:36 PM发表的 :
转帖工具？
还用下载软件吗？太麻烦了！
自己看吧！
http://www.52music.net/bbs/ubbchange.htm
我想要这个程序！嗷嗷~~~~~

另存不久行了

北半球

1. <script Language="JavaScript1.2">
4. function html_trans(str) {
5.       str = str.replace(/\r/g,"");
6.       str = str.replace(/on(load|click|dbclick|mouseover|mousedown|mouseup)="[^"]+"/ig,"");
7.       str = str.replace(/<script[^>]*?>([\w\W]*?)<\/script>/ig,"");
8.       
9.       str = str.replace(/<a[^>]+href="([^"]+)"[^>]*>(.*?)<\/a>/ig,"\n[url=$1]$2[/url]\n");
10.       
11.       str = str.replace(/<font[^>]+color=([^ >]+)[^>]*>(.*?)<\/font>/ig,"\n[color=$1]$2[/color]\n");
12.       
13.       str = str.replace(/<img[^>]+src="([^"]+)"[^>]*>/ig,"\n[img]$1[/img]\n");
14.       
15.       str = str.replace(/<([\/]?)b>/ig,"[$1b]");
16.       str = str.replace(/<([\/]?)strong>/ig,"[$1b]");
17.       str = str.replace(/<([\/]?)u>/ig,"[$1u]");
18.       str = str.replace(/<([\/]?)i>/ig,"[$1i]");
19.       
20.       str = str.replace(/ /g," ");
21.       str = str.replace(/&/g,"&");
22.       str = str.replace(/"/g,"\"");
23.       str = str.replace(/</g,"<");
24.       str = str.replace(/>/g,">");
25.       
26.       str = str.replace(/<br>/ig,"\n");
27.       str = str.replace(/<[^>]*?>/g,"");
28.       str = str.replace(/\[url=([^\]]+)\]\n(\[img\]\1\[\/img\])\n\[\/url\]/g,"$2");
29.       str = str.replace(/\n+/g,"\n");
30.       
31.       return str;
32. }
34. function trans(){
35.       var str = "";
36.       rtf.focus();
37.       rtf.document.body.innerHTML = "";
38.       rtf.document.execCommand("paste");
39.       str = rtf.document.body.innerHTML;
40.       if(str.length == 0) {
41.              alert("剪切版不存在超文本数据！");
42.              return "";
43.       }
44.       return html_trans(str);
45. }
46. </script>
48. <textarea style="width:100%; height:200px" id="text" class="textarea" onbeforepaste="if(document.getElementById('x_paste').checked){window.clipboardData.setData('text',trans());this.focus();}"></textarea><br />
49. <iframe scrolling="no" id="rtf" src="about:blank" MARGINHEIGHT="0" MARGINWIDTH="0" style="width:0px; height:0px;"></iframe>
50. <input type="button" value="转换剪切版超文本数据" onclick="document.getElementById('text').value += trans()">
51. <input type="checkbox" id="x_paste"> <label for="x_paste">启用超文本粘贴转换</label>
52. <script>
53. rtf.document.designMode="On";
54. </script>

复制代码