使用PHP實現繁體與簡體互轉

<?
/**** 繁體<==>簡體 ****/

/**
  碼表的取得：
    http://netcity.hinet.net/kstchieh/table.zip
  包中有兩個文件：big5-gb.table，gb-big5.table
  函數gb2big5由于沒有big5環境，故未能詳細測試
*/

// 將碼表予裝入內存
$filename = "big5-gb.table";
$fp = fopen($filename, "rb");
$big5 = fread($fp,filesize($filename));
fclose($fp);
$filename = "gb-big5.table";
$fp = fopen($filename, "rb");
$gb = fread($fp,filesize($filename));
fclose($fp);

/**
  Big5碼轉換成GB碼
*/
function big52gb($Text) {
  global $big5;
  $max = strlen($Text)-1;
  for($i=0;$i<$max;$i++) {
    $h = ord($Text[$i]);
    if($h>=160) {
      $l = ord($Text[$i+1]);
      if($h==161 && $l==64) {
        $gb = "　";
      }else{
        $p = ($h-160)*510+($l-1)*2;
        $gb = $big5[$p].$big5[$p+1];
      }
      $Text[$i] = $gb[0];
      $Text[$i+1] = $gb[1];
      $i++;
    }
  }
  return $Text;
}

/**
  GB碼轉換成Big5碼
*/
function gb2big5($Text) {
  global $gb;
  $max = strlen($Text)-1;
  for($i=0;$i<$max;$i++) {
    $h = ord($Text[$i]);
    if($h>=160) {
      $l = ord($Text[$i+1]);
      if($h==161 && $l==64) {
        $big = "　";
      }else{
        $p = ($h-160)*510+($l-1)*2;
        $big = $gb[$p].$gb[$p+1];
      }
      $Text[$i] = $big[0];
      $Text[$i+1] = $big[1];
      $i++;
    }
  }
  return $Text;
}

?>
<?
/**** 測試 ****/
$a = "啊阿埃挨哎唉哀皚癌藹矮艾礙愛隘鞍氨";
echo "原簡體 $a<br>";
$a = "擺?甁?玼?玸絁礫魔窯︺錨稲筰綽?";
echo "原繁體 $a<br>";
$a=big52gb($a);
echo "轉簡體 $a<br>";
$a=gb2big5($a);
echo "轉繁體 $a<br>";
?>

原文轉自：http://www.anti-gravitydesign.com