/*
我們在處理中文數據時，經常要處理一些情況，下面就是針對
這些情況，我做的一些函數，已經用在了實踐中
*/
# 判斷某個位置是中文字符的左還是右半部分，或不是中文
# 返回值 -1 左 0 不是中文字符 1 右
# 用法
/*
$a = this is 中文;
print is_chinese($a, 1); // 0
print is_chinese($a,8); // -1
print is_chinese($a,9); // 1
*/
function is_chinese(&$str, $location) {
$ch = true;
$i = $location;
while(ord($str[$i])>0xa0 && $i >= 0) {
$ch = !$ch;
$i --;
}
if($i != $location) {
$f_str = $ch ? 1: -1;
}
else {
$f_str = false;
}
return $f_str;
}
# 中文字符串倒置函數
# 如果一個將一個有中文的字符串用strrev倒過來，就會產生亂碼
/*
print cstrrev(this is 中文); // 文中 si siht
*/
function cstrrev(&$str) {
$long = strlen($str);
for($f_str=, $chinese=false, $i=$long-1; $i>=0; $i--) {
if(ord($str[$i]) > 0xa0) {
$chinese = ! $chinese;
if($chinese == false) {
$f_str .= $str[$i].$str[$i+1];
}
}
else {
$f_str .= $str[$i];
}
}
return $f_str;
}
/* 中文字符串截取函數
一些中文字符串截取函數經常有一些問題，例如在一些自動換行程序中
$a=“1中2”；
經兩次截取後，
csubstr($str,$a,0,2);
csubstr($str, $a, 2,2)
由於載取位置指向“中”的右字節，可能會是這樣的結果
1, 2
用本函數會產生正確的結果
1中, 2
*/
# start 開始位置，從0開始
# long = 0 則從start 一直取到字符串尾
# ltor = true 時從左到右取字符，false 時到右到左取字符
# $cn_len 中文字符按字節取還是字數取，如果按字數取，則一個中文當一個字節計算
function csubstr(&$str, $start=0, $long=0, $ltor=true, $cn_len=2) {
if($long == 0) $long = strlen($str);
if($ltor == false) $str = cstrrev($str);
if($cn_len == 1) {
for($i=0, $fs=0; $i<$start; $fs++)
$i += (ord($str[$fs]) <= 0xa0) ? 1 : 0.5;
for($i=0, $fe=$fs; $i<$long; $fe++)
$i += (ord($str[$fe]) <= 0xa0) ? 1 : 0.5;
$long = $fe - $fs;
}
else {
$fs = (is_chinese($str, $start) == 1) ? $start - 1 : $start;
$fe = $long + $start - 1;
$end = ( is_chinese($str, $fe) == -1 ) ? $fe -1 : $fe;
$long = $end - $fs + 1;
}
$f_str = substr($str, $fs, $long);
if($ltor == false) $f_str = cstrrev($f_str);
return $f_str;
}
# 取左字符串
# 當cn_len == 2 時 $long 取左邊多少個字,反之則取左邊多少個字節
function cleft(&$str, $long, $cn_len=2) {
$f_str = csubstr($str, 0, $long, true, $cn_len);
return $f_str;
}
# 取右字符串
function cright(&$str, $long, $cn_len=2) {
$f_str = cstrrev($str);
$f_str = csubstr($f_str, 0, $long, true, $cn_len);
$f_str = cstrrev($f_str);
return $f_str;
}
# 對含有中文字符的文章分行格式化
# 再也不會發生因換行問題而產生的種種問題啦！！！
# 注：文章的每一行必須用 n （chr(13)）進行分行
# $width 每行多少字符
# $br 將 每行用什麼字符當結束符
function ctext_wrap(&$text, $width=60, $br="
") {
