/*
* ============================== 截取含有 html標(biāo)簽的字符串 =========================
* @param (string) $str   待截取字符串
* @param (int)  $lenth  截取長(zhǎng)度
* @param (string) $repalce 超出的內(nèi)容用$repalce替換之（該參數(shù)可以為帶有html標(biāo)簽的字符串）
* @param (string) $anchor 截取錨點(diǎn)，如果截取過(guò)程中遇到這個(gè)標(biāo)記錨點(diǎn)就截至該錨點(diǎn)處
* @return (string) $result 返回值
* @demo  $res = cut_html_str($str, 256, '...'); //截取256個(gè)長(zhǎng)度，其余部分用'...'替換
* -------------------------------------------------------------------------------
* $ Author: Wang Jian.	|	Email: wj@yurendu.com	|	Date: 2014/03/16
* ===============================================================================
*/ 
function cut_html_str($str, $lenth, $replace='', $anchor='<!-- break -->'){ 
	$_lenth = mb_strlen($str, "utf-8");	// 統(tǒng)計(jì)字符串長(zhǎng)度（中、英文都算一個(gè)字符）
	if($_lenth <= $lenth){
		return $str;	// 傳入的字符串長(zhǎng)度小于截取長(zhǎng)度，原樣返回
	}
	$strlen_var = strlen($str); 	// 統(tǒng)計(jì)字符串長(zhǎng)度（UTF8編碼下-中文算3個(gè)字符，英文算一個(gè)字符）
	if(strpos($str, '<') === false){ 
		return mb_substr($str, 0, $lenth);	// 不包含 html 標(biāo)簽 ，直接截取
	} 
	if($e = strpos($str, $anchor)){ 
		return mb_substr($str, 0, $e);	// 包含截?cái)鄻?biāo)志，優(yōu)先
	} 
	$html_tag = 0; 	// html 代碼標(biāo)記 
	$result = ''; 	// 摘要字符串
	$html_array = array('left' => array(), 'right' => array()); //記錄截取后字符串內(nèi)出現(xiàn)的 html 標(biāo)簽，開(kāi)始=>left,結(jié)束=>right
	/*
	* 如字符串為：<h3><p><b>a</b></h3>，假設(shè)p未閉合，數(shù)組則為：array('left'=>array('h3','p','b'), 'right'=>'b','h3');
	* 僅補(bǔ)全 html 標(biāo)簽，<? <% 等其它語(yǔ)言標(biāo)記，會(huì)產(chǎn)生不可預(yù)知結(jié)果
	*/ 
	for($i = 0; $i < $strlen_var; ++$i) { 
		if(!$lenth) break;	// 遍歷完之后跳出
		$current_var = substr($str, $i, 1); // 當(dāng)前字符
		if($current_var == '<'){ // html 代碼開(kāi)始 
			$html_tag = 1; 
			$html_array_str = ''; 
		}else if($html_tag == 1){ // 一段 html 代碼結(jié)束 
			if($current_var == '>'){ 
				$html_array_str = trim($html_array_str); //去除首尾空格，如 <br / > < img src="" / > 等可能出現(xiàn)首尾空格
				if(substr($html_array_str, -1) != '/'){ //判斷最后一個(gè)字符是否為 /，若是，則標(biāo)簽已閉合，不記錄
					// 判斷第一個(gè)字符是否 /，若是，則放在 right 單元 
					$f = substr($html_array_str, 0, 1); 
					if($f == '/'){ 
						$html_array['right'][] = str_replace('/', '', $html_array_str); // 去掉 '/' 
					}else if($f != '?'){ // 若是?，則為 PHP 代碼，跳過(guò)
						// 若有半角空格，以空格分割，第一個(gè)單元為 html 標(biāo)簽。如：<h2 class="a"> <p class="a"> 
						if(strpos($html_array_str, ' ') !== false){ 
						// 分割成2個(gè)單元，可能有多個(gè)空格，如：<h2 class="" id=""> 
						$html_array['left'][] = strtolower(current(explode(' ', $html_array_str, 2))); 
						}else{ 
						//若沒(méi)有空格，整個(gè)字符串為 html 標(biāo)簽，如：<b> <p> 等，統(tǒng)一轉(zhuǎn)換為小寫
						$html_array['left'][] = strtolower($html_array_str); 
						} 
					} 
				} 
				$html_array_str = ''; // 字符串重置
				$html_tag = 0; 
			}else{ 
				$html_array_str .= $current_var; //將< >之間的字符組成一個(gè)字符串,用于提取 html 標(biāo)簽
			} 
		}else{ 
			--$lenth; // 非 html 代碼才記數(shù)
		} 
		$ord_var_c = ord($str{$i}); 
		switch (true) { 
			case (($ord_var_c & 0xE0) == 0xC0): // 2 字節(jié) 
				$result .= substr($str, $i, 2); 
				$i += 1; break; 
			case (($ord_var_c & 0xF0) == 0xE0): // 3 字節(jié)
				$result .= substr($str, $i, 3); 
				$i += 2; break; 
			case (($ord_var_c & 0xF8) == 0xF0): // 4 字節(jié)
				$result .= substr($str, $i, 4); 
				$i += 3; break; 
			case (($ord_var_c & 0xFC) == 0xF8): // 5 字節(jié) 
				$result .= substr($str, $i, 5); 
				$i += 4; break; 
			case (($ord_var_c & 0xFE) == 0xFC): // 6 字節(jié)
				$result .= substr($str, $i, 6); 
				$i += 5; break; 
			default: // 1 字節(jié) 
				$result .= $current_var; 
		} 
	} 
	if($html_array['left']){ //比對(duì)左右 html 標(biāo)簽，不足則補(bǔ)全
		$html_array['left'] = array_reverse($html_array['left']); //翻轉(zhuǎn)left數(shù)組，補(bǔ)充的順序應(yīng)與 html 出現(xiàn)的順序相反
		foreach($html_array['left'] as $index => $tag){ 
			$key = array_search($tag, $html_array['right']); // 判斷該標(biāo)簽是否出現(xiàn)在 right 中
			if($key !== false){ // 出現(xiàn)，從 right 中刪除該單元
				unset($html_array['right'][$key]); 
			}else{ // 沒(méi)有出現(xiàn)，需要補(bǔ)全 
				$result .= '</'.$tag.'>'; 
			} 
		} 
	} 
	return $result.$replace; 
}