PHP採集騰訊微博只留文字部分

PHP采集腾讯微博只留文字部分

header("Content-type:text/html;charset=utf-8");
$weibo = file_get_contents('http://t.qq.com/starank');

$preg = '/(.*)/Uis';
preg_match_all($preg, $weibo, $string);

foreach ($string[1] as $key=>$value){
    echo delhtml($value)."";
}

function delhtml($str) // 清除html标签
{
    $st = -1; //开始
    $et = -1; //结束
    $stmp = array();
    $stmp[] = " ";
    $len = strlen($str);
    for($i = 0;$i < $len;$i  )
    {
        $ss = substr($str, $i, 1);
        if (ord($ss) == 60) // ord("<")==60
        {
            $st = $i;
        }
        if (ord($ss) == 62) // ord(">")==62
        {
            $et = $i;
            if ($st != -1)
            {
                $stmp[] = substr($str, $st, $et - $st   1);
            }
        }
    }
    $str = str_replace($stmp, "", $str);
    return $str;
}

?>

只留, PHP