感谢网友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]) < 161)||(ord($code[0]) >= 247)) { return (0); } else { if ((ord($code[1]) <= 161)||(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 < $length) { $tmpStr=$code[$idx].$code[$idx+1]; if (isgb($tmpStr)) { $offset=gboffset($tmpStr); if (($offset >= 0)||($offset <= 8177)) { $output.=wordtostring($gborder[$offset]); $idx++; } else { $output.= $code[$idx]; } } else { $output.= $code[$idx]; } $idx++; } return ($output); }; ?> |
|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )
GMT+8, 2024-9-30 11:41 , Processed in 0.143056 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.