移植用の 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]) {
return (0) );
}
else
{
if ((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)
{
"data_gb.php";
$length=strlen ($code);
$idx=0; $length)
{
$tmpStr=$code[$idx].$code[$idx+1]
if (isgb($tmpStr))
{
$offset=gboffset($tmpStr); ($offset >= 0)||($offset $output.=wordtostring($gborder[$offset]); x];
}
}
else
{
$output .= $code[$idx];
$idx++;
};
?> [この記事の著作権は、著者と Oso.com が共有します。転載する必要がある場合は、著者と出典を明記してください]