php的漢字轉換：GBK至Big5

P>php的漢字轉換一直是比較麻煩的事
首先要說兩點：
1.GBK的繁體字並不是Big5，但一般繁體字都有對應的Big碼
2.一GBK碼並不一定有對應的Big5碼，所以一般是無法復原轉換
該類內建了三個函數
qswhStr 格式化字串
qswhFile 格式化一檔案
qswhDir 格式化目錄下所有檔案（.qswh的除外，那是原先文檔的備份）
qswhBig5.php 從這裡下載
/user/qswh/qswhBig5.zip
<?
class qswhBig5{
 var $qswhData;
 function qswhBig5($filename="qswhBig5.php"){
  $this->qswhData=file($filename);
 }
 function qswhStr($gb,$fail="??"){
  /******(qiushuiwuhen 2002-9-6)******/
  $ret="";
  for($i=0;$i<strlen($gb);$i++){
     if(($p=ord(substr($gb,$i,1)))>127){
      $q=ord(substr($gb,++$i,1));
      $tmp=$this->qswhData[$p-128];
      for($j=0;$j<strlen($tmp);$j+=6)if(($k=hexdec(substr($tmp,$j,2)))>=$q)break;
      if($k==$q)$q=chr(hexdec(substr($tmp,$j+2,2))).chr(hexdec(substr($tmp,$j+4,2)));
      else if($fail=="")$q=chr($p).chr($q); else $q=$fail;
     }
     else
      $q=chr($p);
     $ret.=$q;
  }
  return $ret;
 }
 function qswhFile($filename,$fail="??"){
  /******(qiushuiwuhen 2002-9-6)******/
  if(!file_exists($filename.".qswh"))copy($filename,$filename.".qswh");
  $fp=fopen($filename,"r+");
  $tmp=fread($fp,filesize($filename));
  rewind($fp);
  fwrite($fp,$this->qswhStr($tmp,$fail));
  fclose($fp);
 }