韦德国际bv1946_www.bv1946com_韦德国际1946手机版
做最好的网站

如需转载

日期:2019-08-29编辑作者:韦德国际bv1946计算机

感谢网友Keyes提供移植用的Delphi源代码。其调用方式为$txt=gbtobig5($txt)。
    (注:源代码中的include "data_gb.php";这个文件在就是一个数组,在

<?
/***********************************************************************
                       Written by caocao
                       caocao@eastday.com
                       

                       With the help of Keyes
                       Keyes2000@263.net
                       
***********************************************************************/
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);
};
?>  

【本文版权归作者与奥索网共同拥有,如需转载,请注明作者及出处】    

您可能感兴趣的文章:

  • 繁体中文转换为简体中文的PHP函数
  • PHP中文乱码解决方案
  • php截取中文字符串函数实例
  • php使用iconv中文截断问题的解决方法
  • php上传中文文件名乱码问题处理方案
  • PHP实现的各种中文编码转换类分享
  • PHP中文编码小技巧
  • php中文繁体和简体相互转换的方法

本文由韦德国际bv1946手机版发布于韦德国际bv1946计算机,转载请注明出处:如需转载

关键词: