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

移植用の Delphi ソース コードを提供してくれたネチズン Keyes に感謝します。呼び出しメソッドは $txt=gbtobig5($txt) です。
(注: ソース コードに「data_gb.php」を含めてください。このファイルは http://caocao.oso.com.cn/data_gb.zip にある配列です。編集して oso にダウンロードし、リンクを作成してください。このファイルは数日以内に削除します。 )
/*************************************************** *******************
執筆者：caocao
caocao@eastday.com
http://caocao.oso .com.cn
Keyes の協力を得て
Keyes2000@ 263.net
http://my-wjl.scu.edu.cn/~Keyes
**************************** *****************************************/
function isgb($code)
{
if (strlen($code)>=2)
{
$ code = strtok（$ code、 ""）; if（ord（$ code [0]）＆lt; 161）||（ord（$ code [0]）＆gt; = 247））
（0）;
}
else
{
if ((ord($code[1]) <= 161)||(ord($code[1]) >= 254))
{
return (0 ;
}
) }
function gboffset($code)
{
if (strlen($code ) >= 2)
{
$code=strtok($code,"")
return ((ord($code[0]); - 161) * 94 + (ord($code[1]) - 161 ));
}
else
{
return(-1);
}
function wordtostring($code)
{
return (chr) (hexdec(substr($code,0,2)))).chr( hexdec(substr($code,2,2))));
}
function gbtobig5($code)
{
include "data_gb.php" ";
$output="";
$length=strlen($code) ;
$code=strtok($code,"");
$idx=0;
while ($idx < $length)
{
$tmpStr=$code[$idx].$code[$idx+1 ];
if (isgb($tmpStr))
{
$offset=gboffset($tmpStr)
if (($offset >= 0）||（$ offset＆lt; = 8177）{$ output。= $ gborder [$ offset]）; idx++;
}
を返します?>
;
上記では、繁体字中国語の言語パックと、簡体字中国語を繁体字中国語に変換するための PHP 関数を紹介しました。これには、繁体字中国語の言語パックの内容も含まれており、PHP チュートリアルに興味のある友人に役立つことを願っています。