gb,big5,utf-8互相转码

时间：2006-11-12 来源：gydoesit

在sf.net去找php news reader，把language.inc.php这段复制出来，并复制language目录下的相应码表，如gb-big5.tab。这个可以实现gb,big5,utf-8互转
function b2g( $instr ) {
$fp = fopen( 'language/big5-gb.tab', 'r' );
$len = strlen($instr);
for( $i = 0 ; $i  $len ; $i++ ) {
      $h = ord($instr[$i]);
      if( $h >= 160 ) {
         $l = ($i+1 >= $len) ? 32 : ord($instr[$i+1]);
         if( $h == 161 && $l == 64 )
            $gb = ' ';
         else {
            fseek( $fp, (($h-160)*255+$l-1)*3 );
            $gb = fread( $fp, 2 );
         }
         $instr[$i] = $gb[0];
         $instr[$i+1] = $gb[1];
         $i++;
      }
}
fclose($fp);
return $instr;
}
function g2b( $instr ) {
$fp = fopen( 'language/gb-big5.tab', 'r' );
$len = strlen($instr);
for( $i = 0 ; $i  $len ; $i++ ) {
      $h = ord($instr[$i]);
      if( $h > 160 && $h  248 ) {
         $l = ($i+1 >= $len) ? 32 : ord($instr[$i+1]);
         if( $l > 160 && $l  255 ) {
            fseek( $fp, (($h-161)*94+$l-161)*3 );
            $bg = fread( $fp, 2 );
         }
         else
            $bg = ' ';
         $instr[$i] = $bg[0];
         $instr[$i+1] = $bg[1];
         $i++;
      }
}
fclose($fp);
return $instr;
}
function b2u( $instr ) {
$fp = fopen( 'language/big5-unicode.tab', 'r' );
$len = strlen($instr);
$outstr = '';
for( $i = $x = 0 ; $i  $len ; $i++ ) {
      $h = ord($instr[$i]);
      if( $h >= 160 ) {
         $l = ( $i+1 >= $len ) ? 32 : ord($instr[$i+1]);
         if( $h == 161 && $l == 64 )
            $uni = ' ';
         else {
            fseek( $fp, ($h-160)*510+($l-1)*2 );
            $uni = fread( $fp, 2 );
         }
         $codenum = ord($uni[0])*256 + ord($uni[1]);
         if( $codenum  0x800 ) {
            $outstr[$x++] = chr( 192 + $codenum / 64 );
            $outstr[$x++] = chr( 128 + $codenum % 64 );
#             printf("[%02X%02X]
\n", ord($outstr[$x-2]), ord($uni[$x-1]) );
         }
         else {
            $outstr[$x++] = chr( 224 + $codenum / 4096 );
            $codenum %= 4096;
            $outstr[$x++] = chr( 128 + $codenum / 64 );
            $outstr[$x++] = chr( 128 + ($codenum % 64) );
#             printf("[%02X%02X%02X]
\n", ord($outstr[$x-3]), ord($outstr[$x-2]), ord($outstr[$x-1]) );
         }
         $i++;
      }
      else
         $outstr[$x++] = $instr[$i];
}
fclose($fp);
if( $instr != '' )
      return join( '', $outstr);
}
function u2b( $instr ) {
$fp = fopen( 'language/unicode-big5.tab', 'r' );
$len = strlen($instr);
$outstr = '';
for( $i = $x = 0 ; $i  $len ; $i++ ) {
      $b1 = ord($instr[$i]);
      if( $b1  0x80 ) {
         $outstr[$x++] = chr($b1);
#          printf( "[%02X]", $b1);
      }
      elseif( $b1 >= 224 ) { # 3 bytes UTF-8
         $b1 -= 224;
         $b2 = ord($instr[$i+1]) - 128;
         $b3 = ord($instr[$i+2]) - 128;
         $i += 2;
         $uc = $b1 * 4096 + $b2 * 64 + $b3 ;
         fseek( $fp, $uc * 2 );
         $bg = fread( $fp, 2 );
         $outstr[$x++] = $bg[0];
         $outstr[$x++] = $bg[1];
#          printf( "[%02X%02X]", ord($bg[0]), ord($bg[1]));
      }
      elseif( $b1 >= 192 ) { # 2 bytes UTF-8
         printf( "[%02X%02X]", $b1, ord($instr[$i+1]) );
         $b1 -= 192;
         $b2 = ord($instr[$i]) - 128;
         $i++;
         $uc = $b1 * 64 + $b2 ;
         fseek( $fp, $uc * 2 );
         $bg = fread( $fp, 2 );
         $outstr[$x++] = $bg[0];
         $outstr[$x++] = $bg[1];
#          printf( "[%02X%02X]", ord($bg[0]), ord($bg[1]));
      }
}
fclose($fp);
if( $instr != '' ) {
#       echo '##' . $instr . " becomes " . join( '', $outstr) . "
\n";
      return join( '', $outstr);
}
}
function g2u( $instr ) {
$fp = fopen( 'language/gb-unicode.tab', 'r' );
$len = strlen($instr);
$outstr = '';
for( $i = $x = 0 ; $i  $len ; $i++ ) {
      $h = ord($instr[$i]);
      if( $h > 160 ) {
         $l = ( $i+1 >= $len ) ? 32 : ord($instr[$i+1]);
         fseek( $fp, ($h-161)*188+($l-161)*2 );
         $uni = fread( $fp, 2 );
         $codenum = ord($uni[0])*256 + ord($uni[1]);
         if( $codenum  0x800 ) {
            $outstr[$x++] = chr( 192 + $codenum / 64 );
            $outstr[$x++] = chr( 128 + $codenum % 64 );
#             printf("[%02X%02X]
\n", ord($outstr[$x-2]), ord($uni[$x-1]) );
         }
         else {
            $outstr[$x++] = chr( 224 + $codenum / 4096 );
            $codenum %= 4096;
            $outstr[$x++] = chr( 128 + $codenum / 64 );
            $outstr[$x++] = chr( 128 + ($codenum % 64) );
#             printf("[%02X%02X%02X]
\n", ord($outstr[$x-3]), ord($outstr[$x-2]), ord($outstr[$x-1]) );
         }
         $i++;
      }
      else
         $outstr[$x++] = $instr[$i];
}
fclose($fp);
if( $instr != '' )
      return join( '', $outstr);
}
function u2g( $instr ) {
$fp = fopen( 'language/unicode-gb.tab', 'r' );
$len = strlen($instr);
$outstr = '';
for( $i = $x = 0 ; $i  $len ; $i++ ) {
      $b1 = ord($instr[$i]);
      if( $b1  0x80 ) {
         $outstr[$x++] = chr($b1);
#          printf( "[%02X]", $b1);
      }
      elseif( $b1 >= 224 ) { # 3 bytes UTF-8
         $b1 -= 224;
         $b2 = ($i+1 >= $len) ? 0 : ord($instr[$i+1]) - 128;
         $b3 = ($i+2 >= $len) ? 0 : ord($instr[$i+2]) - 128;
         $i += 2;
         $uc = $b1 * 4096 + $b2 * 64 + $b3 ;
         fseek( $fp, $uc * 2 );
         $gb = fread( $fp, 2 );
         $outstr[$x++] = $gb[0];
         $outstr[$x++] = $gb[1];
#          printf( "[%02X%02X]", ord($gb[0]), ord($gb[1]));
      }
      elseif( $b1 >= 192 ) { # 2 bytes UTF-8
         printf( "[%02X%02X]", $b1, ord($instr[$i+1]) );
         $b1 -= 192;
         $b2 = ($i+1>=$len) ? 0 : ord($instr[$i+1]) - 128;
         $i++;
         $uc = $b1 * 64 + $b2 ;
         fseek( $fp, $uc * 2 );
         $gb = fread( $fp, 2 );
         $outstr[$x++] = $gb[0];
         $outstr[$x++] = $gb[1];
#          printf( "[%02X%02X]", ord($gb[0]), ord($gb[1]));
      }
}
fclose($fp);
if( $instr != '' ) {
#       echo '##' . $instr . " becomes " . join( '', $outstr) . "
\n";
      return join( '', $outstr);
}
}