哪有好的转贴的工具啊??麻烦大哥们推荐下~`
同上,谢了~~~ 终极的灌水工具:HTML2UBB软件版本:N/A 软件大小:1KB
软件性质:免费软件 适用平台:Windows 9x/2000/XP
下载地址:http://www.newhua.com/cfan/200416/html2ubb.rar 谢了,大哥,我去看看 转帖工具?
还用下载软件吗?太麻烦了!
自己看吧!
http://www.52music.net/bbs/ubbchange.htm
我想要这个程序!嗷嗷~~~~~ 呵呵,谢谢各位大哥啊,这下好多了,没有那么辛苦了~~~~~
嗷嗷~~~~~~哈哈 下面是引用mengkun于2004-09-7 10:36 PM发表的 :
转帖工具?
还用下载软件吗?太麻烦了!
自己看吧!
http://www.52music.net/bbs/ubbchange.htm
我想要这个程序!嗷嗷~~~~~
另存不久行了 <script Language="JavaScript1.2">
function html_trans(str) {
str = str.replace(/\r/g,"");
str = str.replace(/on(load|click|dbclick|mouseover|mousedown|mouseup)="[^"]+"/ig,"");
str = str.replace(/<script[^>]*?>([\w\W]*?)<\/script>/ig,"");
str = str.replace(/<a[^>]+href="([^"]+)"[^>]*>(.*?)<\/a>/ig,"\n$2\n");
str = str.replace(/<font[^>]+color=([^ >]+)[^>]*>(.*?)<\/font>/ig,"\n$2\n");
str = str.replace(/<img[^>]+src="([^"]+)"[^>]*>/ig,"\n$1\n");
str = str.replace(/<([\/]?)b>/ig,"[$1b]");
str = str.replace(/<([\/]?)strong>/ig,"[$1b]");
str = str.replace(/<([\/]?)u>/ig,"[$1u]");
str = str.replace(/<([\/]?)i>/ig,"[$1i]");
str = str.replace(/ /g," ");
str = str.replace(/&/g,"&");
str = str.replace(/"/g,"\"");
str = str.replace(/</g,"<");
str = str.replace(/>/g,">");
str = str.replace(/<br>/ig,"\n");
str = str.replace(/<[^>]*?>/g,"");
str = str.replace(/\]+)\]\n(\\1\[\/img\])\n\[\/url\]/g,"$2");
str = str.replace(/\n+/g,"\n");
return str;
}
function trans(){
var str = "";
rtf.focus();
rtf.document.body.innerHTML = "";
rtf.document.execCommand("paste");
str = rtf.document.body.innerHTML;
if(str.length == 0) {
alert("剪切版不存在超文本数据!");
return "";
}
return html_trans(str);
}
</script>
<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 />
<iframe scrolling="no" id="rtf" src="about:blank" MARGINHEIGHT="0" MARGINWIDTH="0" style="width:0px; height:0px;"></iframe>
<input type="button" value="转换剪切版超文本数据" onclick="document.getElementById('text').value += trans()">
<input type="checkbox" id="x_paste"> <label for="x_paste">启用超文本粘贴转换</label>
<script>
rtf.document.designMode="On";
</script>
页:
[1]