實現內容：截斷一段含有HTML代碼的文本，但是不會出現圍堵標記沒有封閉的問題。
說明：這是PHP版的，用於在服務器端使用，如果你需要一個客戶端版的，請閱讀下一篇
我們在寫BLOG這樣的程序時經常需要顯示文章前一部分的，但是又怕不恰當的截斷破壞封閉標簽以造成整個文檔結構破壞，使用我的函數可以在要求不高的情況下解決這個問題。
大家應該考慮這個函數在服務端應用還是在客戶端應用。因為我考慮這個函數可能運行起來比較費機器，所以安全性要求不高的情況下可以放在客戶端上。
最好數據表中單獨一個字段放這個摘要，這樣相應的數據庫查詢也優化了。犧牲一點點空間換很多時間還是劃算的。
再聊一下安全性問題，主要是內容安全性。如果客戶端意圖更改正常的摘要信息的話，一般都是BLOG的主人才有這個權力，那麼他使得摘要和原文的一致性破壞就是他自己的事了。內容以外的安全性都可以在服務端解決。所以還是推薦在客戶端使用本函數。
核心代碼
復制代碼 代碼如下:
// PHP 4.3 or above needed
define("BRIEF_LENGTH", 800); //Word amount of the Briefing of an Article
function Generate_Brief($text){
global $Briefing_Length;
if(strlen($text) <= BRIEF_LENGTH ) return $text;
$Foremost = substr($text, 0, BRIEF_LENGTH);
$re = "/<(\/?)(P|DIV|H1|H2|H3|H4|H5|H6|ADDRESS|PRE|TABLE|TR|TD|TH|INPUT|SELECT|TEXTAREA|OBJECT|A|UL|OL|LI|BASE|META|LINK|HR|BR|PARAM|IMG|AREA|INPUT|SPAN)[^>]*(>?)/i";
$Single = "/BASE|META|LINK|HR|BR|PARAM|IMG|AREA|INPUT/i";
$Stack = array(); $posStack = array();
preg_match_all($re,$Foremost,$matches, PREG_SET_ORDER | PREG_OFFSET_CAPTURE);
/* [Child-matching Specification]:
$matches[$i][1] : A "/" charactor indicating whether current "<...>" Friction is Closing Part
$matches[$i][2] : Element Name.
$matches[$i][3] : Right > of a "<...>" Friction */
for($i = 0 ; $i < count($matches); $i++){
if($matches[$i][1][0] == ""){
$Elem = $matches[$i][2][0];
if(preg_match($Single,$Elem) && $matches[$i][3][0] !=""){
continue;
}
array_push($Stack, strtoupper($matches[$i][2][0]));
array_push($posStack, $matches[$i][2][1]);
if($matches[$i][3][0] =="") break;
}else{
$StackTop = $Stack[count($Stack)-1];
$End = strtoupper($matches[$i][2][0]);
if(strcasecmp($StackTop,$End)==0){
array_pop($Stack);
array_pop($posStack);
if($matches[$i][3][0] ==""){
$Foremost = $Foremost.">";
}
}
}
}
$cutpos = array_shift($posStack) - 1;
$Foremost = substr($Foremost,0,$cutpos);
return $Foremost;
};
若遇到問題（發現上面的函數對多字節字符集支持得不好） 不煩試試下面的這個！
復制代碼 代碼如下:
function Generate_Brief($text){
global $Briefing_Length;
mb_regex_encoding("UTF-8");
if(mb_strlen($text) <= BRIEF_LENGTH ) return $text;
$Foremost = mb_substr($text, 0, BRIEF_LENGTH);
$re = "<(\/?)(P|DIV|H1|H2|H3|H4|H5|H6|ADDRESS|PRE|TABLE|TR|TD|TH|INPUT|SELECT|TEXTAREA|OBJECT|A|UL|OL|LI|BASE|META|LINK|HR|BR|PARAM|IMG|AREA|INPUT|SPAN)[^>]*(>?)";
$Single = "/BASE|META|LINK|HR|BR|PARAM|IMG|AREA|INPUT|BR/i";
$Stack = array(); $posStack = array();
mb_ereg_search_init($Foremost, $re, 'i');
while($pos = mb_ereg_search_pos()){
$match = mb_ereg_search_getregs();
/* [Child-matching Formulation]:
$matche[1] : A "/" charactor indicating whether current "<...>" Friction is Closing Part
$matche[2] : Element Name.
$matche[3] : Right > of a "<...>" Friction
*/
if($match[1]==""){
$Elem = $match[2];
if(mb_eregi($Single, $Elem) && $match[3] !=""){
continue;
}
array_push($Stack, mb_strtoupper($Elem));
array_push($posStack, $pos[0]);
}else{
$StackTop = $Stack[count($Stack)-1];
$End = mb_strtoupper($match[2]);
if(strcasecmp($StackTop,$End)==0){
array_pop($Stack);
array_pop($posStack);
if($match[3] ==""){
$Foremost = $Foremost.">";
}
}
}
}
$cutpos = array_shift($posStack) - 1;
$Foremost = mb_substr($Foremost,0,$cutpos,"UTF-8");
return $Foremost;
};
