求一个PHP的HTML到BBCODE的转换代码

小强007

求一个PHP的HTML到BBCODE的转换代码
我做采集用，很多代码去除的不干净，哪位大人有比较完整的代码啊？

小强007

没人知道吗 汗

小强007

娘的　自己写　

lonestone

<?php

// --------------------------------------------------------------------------
// 文件名 :
// 描述 :
// 需求 : PHP4 (http://www.php.net)
//
// Copyright(C), www.cnfdc.com.cn, 2005, All Rights Reserved.
//
// 作者 : lonestone (wangyong.yichang@gmail.com)
//
// --------------------------------------------------------------------------

function html2ubb($html)
{
    $output=$html;
    $output=preg_replace('/\r/i',"",$output);
    $output=preg_replace('/\r/i',"",$output);
    $output=preg_replace('/on(load|click|dbclick|mouseover|mousedown|mouseup)="[^"]+"/i',"",$output);
    $output=preg_replace('/<script[^>]*?>([\w\W]*?)<\/script>/i',"",$output);

    $output=preg_replace('/<a[^>]+href="([^"]+)"[^>]*>(.*?)<\/a>/i',"\n$2\n",$output);

    $output=preg_replace('/<font[^>]+color=([^ >]+)[^>]*>(.*?)<\/font>/i',"[color=$1]$2",$output);

    $output=preg_replace('/<img[^>]+src="([^"]+)"[^>]*>/i',"\n\n",$output);

    $output=preg_replace('/<([\/]?)b>/i',"[$1b]",$output);
    $output=preg_replace('/<([\/]?)strong>/i',"[$1b]",$output);
    $output=preg_replace('/<([\/]?)u>/i',"[$1u]",$output);
    $output=preg_replace('/<([\/]?)i>/i',"[$1i]",$output);8

    $output=preg_replace('/&nbsp;/i'," ",$output);
    $output=preg_replace('/&amp;/i',"&",$output);
    $output=preg_replace('/&quot;/i',"\"",$output);
    $output=preg_replace('/&lt;/i',"<",$output);
    $output=preg_replace('/&gt;/i',">",$output);

    $output=preg_replace('/<br>/i',"\n",$output);
    $output=preg_replace('/<[^>]*?>/i',"",$output);
    $output=preg_replace('/\[url=([^\]]+)\]\n(\[img\][^\[]+?\[\/img\])\n\[\/url\]/i',"$2",$output);
    $output=preg_replace('/\n+/i',"\n",$output);

    return $output;
}
?>