感謝網友Keyes提供移植用的Delphi原始碼。其呼叫方式為$txt=gbtobig5($txt)。
(註:原始碼中的include "data_gb.php";這個檔案在就是一個數組,在http://caocao.oso.com.cn/data_gb.zip,請編輯下載到oso上,做一個鏈接,因為這個文件我過幾天就要刪除了。 if (strlen($code)>=2)
{
$code=strtok($code,"");
if ((ord($code[0]) = 247))
{
return (0);
} = 254))
{
return (0) {
return ( 1);
}
}
}
else
unction gboffset($code )
{
if (strlen($code) >= 2)
{
$code=strtok($code,""); }
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=""
;
($code);
$code=strtok($code,"");
$idx=0;
while ($idx
if (isgb($tmpStr))
{
$offset >= 0)||($offset {
$output.=wordtostring($gborder[$offset]); }
else
{
$output.= $code[$idx];
🎜> $output.= $code[$idx];
}
$idx ;
}
return ($output);
};
【?> return ($output);
};
【?> return ($output);
};
【?> 如需轉載,請註明作者及出處】