感谢网友Keyes提供移植用的Delphi源代码。其调用方式为$txt=gbtobig5($txt)。
（注：源代码中的include "data_gb.
php";这个文件在就是一个数组，在http://caocao.oso.com.cn/data_gb.zip，请编辑下载到oso上，做一个链接，因为这个文件我过几天就要删除了。）
/***********************************************************************Written by caocao caocao@eastday.com http://caocao.oso.com.cn With the help of 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]) = 247)){return (0);}else{if ((ord($code[1]) = 254)){return (0);}else{return (1);}}}else{return (1);}}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 {$tmpStr=$code[$idx].$code[$idx+1];if (isgb($tmpStr)){$offset=gboffset($tmpStr);if (($offset >= 0)||($offset {$output.=wordtostring($gborder[$offset]);$idx++;}else{$output.= $code[$idx];}}else{$output.= $code[$idx];}$idx++;}return ($output);};?>【本文版权归作者与奥索网共同拥有，如需转载，请注明作者及出处】http://www.bkjia.com/PHPjc/316581.html www.bkjia.com true http://www.bkjia.com/PHPjc/316581.html TechArticle感谢网友Keyes提供移植用的Delphi源代码。其调用方式为$txt=gbtobig5($txt)。 （注：源代码中的include data_gb.php;这个文件在就是一个数组，在http...