所需阅读权限 1[转帖]简体中文转换为繁体中文的PHP函数

cnangel

感谢网友Keyes提供移植用的Delphi源代码。其调用方式为$txt=gbtobig5($txt)。
（注：源代码中的include "data_gb.php";这个文件在就是一个数组，http://caocao.oso.com.cn/data_gb.zip，请编辑下载到oso上，做一个链接，因为这个文件我过几天就要删除了。）

1. <?
2. /***********************************************************************
3. Written by caocao
4. caocao@eastday.com
5. http://caocao.oso.com.cn ;
7. With the help of Keyes
8. Keyes2000@263.net
9. http://my-wjl.scu.edu.cn/~Keyes ;
10. ***********************************************************************/
11. function isgb($code)
12. {
13. if (strlen($code)>=2)
14. {
15. $code=strtok($code,"");
16. if ((ord($code[0]) < 161)||(ord($code[0]) >= 247))
17. {
18. return (0);
19. }
20. else
21. {
22. if ((ord($code[1]) <= 161)||(ord($code[1]) >= 254))
23. {
24. return (0);
25. }
26. else
27. {
28. return (1);
29. }
30. }
31. }
32. else
33. {
34. return (1);
35. }
36. }
38. function gboffset($code)
39. {
40. if (strlen($code) >= 2)
41. {
42. $code=strtok($code,"");
43. return ((ord($code[0]) - 161) * 94 + (ord($code[1]) - 161));
44. }
45. else
46. {
47. return(-1);
48. }
49. }
51. function wordtostring($code)
52. {
53. return (chr(hexdec(substr($code,0,2))).chr(hexdec(substr($code,2,2))));
54. }
56. function gbtobig5($code)
57. {
58. include "data_gb.php";
59. $output="";
60. $length=strlen($code);
61. $code=strtok($code,"");
62. $idx=0;
63. while ($idx < $length)
64. {
65. $tmpStr=$code[$idx].$code[$idx+1];
67. if (isgb($tmpStr))
68. {
69. $offset=gboffset($tmpStr);
70. if (($offset >= 0)||($offset <= 8177))
71. {
72. $output.=wordtostring($gborder[$offset]);
73. $idx++;
74. }
75. else
76. {
77. $output.= $code[$idx];
78. }
79. }
80. else
81. {
82. $output.= $code[$idx];
83. }
84. $idx++;
85. }
86. return ($output);
87. };
88. ?>

复制代码