Traditional Chinese conversion to Simplified Chinese PHP functions

A few days before the conversion I asked in the Oso forum whether this source program, no one replied. Finally determined to transplant one such function, thanks to Netizens Keyes provide the Delphi source code for the transplant. The method is called $TXT=BIG5TOGB ($txt).


(note: In source code include "data_big5.php"; This file is an array, in Http://caocao.oso.com.cn/data_big5.zip, please edit the download to Oso, do a link, because this file I will be deleted in a few days. ）





;?


/***********************************************************************


written by Caocao


caocao@eastday.com


http://caocao.oso.com.cn





with the help of Keyes


Keyes2000@263.net


Http://my-wjl.scu.edu.cn/~Keyes


***********************************************************************/


function Isbig5 ($code)


{


if (strlen ($code) >=2)


{


$code =strtok ($code, "");





if (ord ($code [0]) < 161)


{


return (0);


}


Else


{


if ((Ord ($code [1]) >=) && (Ord ($code [1]) <= 126) | | ((Ord ($code [1]) >= 161) && (Ord ($code [1]) <= 254))


{


return (1);


}


Else


{


return (0);


}


}


}


Else


{


return (0);


}


}





function Big5offset ($code)


{


if (strlen ($code) >= 2)


{


$code =strtok ($code, "");


if (Ord ($code [1]) >=) && (Ord ($code [1]) <= 126)


{


return ((Ord ($code [0])-161) * 157 + (ORD ($code [1])-64));


}


if (Ord ($code [1]) >= 161) && (Ord ($code [1]) <= 254))


{


return ((Ord ($code [0])-161) * 157 + + + (ord ($code [1])-161));


}


}


return (-1);


}





function wordtostring ($code)


{


return (Chr hexdec (substr ($code, 0,2)). Chr (Hexdec (substr ($code, 2,2)));


}





function Big5togb ($code)


{


include "data_big5.php";


$output = "";


$length =strlen ($code);


$code =strtok ($code, "");


$idx = 0;


while ($idx < $length)


{


$tmpStr = $code [$idx]. $code [$idx +1];





if (Isbig5 ($TMPSTR))


{


$offset =big5offset ($TMPSTR);


if ($offset >= 0) | | ($offset <= 14757))


{


$output. =wordtostring ($big 5order[$offset]);


$idx + +;


}


Else


{


$output. = $code [$idx];


}


}


Else


{


$output. = $code [$idx];


}


$idx + +;


}


return ($output);


}


?>