繁体字中国語を簡体字中国語に変換する PHP 関数

関数|中国語|変換

数日前、私は oso フォーラムでそのようなソースプログラムがあるかどうか尋ねましたが、誰も答えませんでした。移植用の Delphi ソース コードを提供してくれた netizen Keyes に感謝します。呼び出しメソッドは $txt=big5togb($txt) です。
(注: ソース コードに「data_big5.php」を含めてください。このファイルは http://caocao.oso.com.cn/data_big5.zip にある配列です。編集して oso にダウンロードし、リンクを作成してください。このファイルは数日以内に削除します)

/*************************************************** *******************
caocao によって書かれました
caocao@eastday.com
http://caocao.oso.com.cn

Keyes の協力を得て
Keyes2000 @263.net
http://my-wjl.scu.edu.cn/~キーズ
**************************** ******************************************/
function isbig5($code)
{
if (strlen($code)>=2)
{
$ code=strtok($code,"");

if (ord($code[0]) < 161)
{
return (0)
}
else
{
if (((ord ($code) [1]) >= 64)&&(ord($code[1]) <= 126))||((ord($code[1]) >= 161)&&(ord($ code[1] ]) <= 254)))
{
return (1);
}
else
{
}
}

関数 big5offset($code)
{
if (strlen($code) >= 2)
{
$code=strtok($code,"")
if ((ord($code[1 ]) > ;= 64)&&(ord($code[1]) {
return ((ord($code[0]) - 161) * 157 + (ord($code[1 ]) - 64));
}
if ((ord($code[1]) >= 161)&&(ord($code[1]) {
return ((ord( $code[ 0]) - 161) * 157 + 63 + (ord($code[1]) - 161));
}
}
return (-1);

function wordtostring($code)
{
return (chr(hexdec(substr($code,0,2))).chr(hexdec(substr($code,2,2))));
}

関数 big5togb($code)
{
include "data_big5" .php";
$output="";
$length=strlen($code);
$code=strtok($code,"");
$idx=0;
while ($idx < $length)
{
$tmpStr=$code[$idx].$code[$idx+1]

if (isbig5($tmpStr))
{
$offset=big5offset($tmpStr); >= 0)||($offset {
$output.=wordtostring($big5order[$offset]);
}
else
{ = $code; [$idx];
}
}
else
{
$output.= $code[$idx];
}
return ($output)

;