汉字取内码.区位码及拼音简码源代码

汉字取内码.区位码及拼音简码源代码汉字内取、码位区码拼及音码简源码代汉字取码、内区码及位音简码拼.本版2.子程序取字汉内码, 文型本, 开公.参待数汉字查 ,文型本局部.变量字高节整,型数.部变局低字节,量整型数局部.量变内, 文本码'型代源中的“码字高”和“节字节”可低直以用字接节数据型而不用，数型整这，样不就用“位与”运算做了。

高节＝字与位 (取码代(待汉查字 ,1, )25)5低字＝位节与(取码代(待汉字, 2)查 ,55)2内码＝取六十制进本文高(字) ＋节取十六制文进本 (低字节)返回( 码内).子序程取字区汉位,码文型, 本公.开参数待查字,汉本文型局.变部量高字 ,节数型.整部局变量低节字,整数型.部局变量内码, 文本.型部局量区码, 变数型整.局部量变码位,整数型局部变量区位码. 文本,型字高节位＝ (取代码与待(查汉, 1字, 255))低字节位＝ (与取代 (待码查汉字, 2, )255)码＝取内十六制进本文高(节)字＋取六进十制文本低字节()码区＝高节字－160码位＝低字节－ 1 06区码＝位到本文(区码×10 ＋0 码位)返回(区位码)子程序取汉.字音拼码简文本,,型公 , 开GB28取2-18一级0字汉库拼音简字码.参数待汉查字, 文型本.部变局高字节量,整数型.局部量变低节字, 数型整局部.量内变码 ,文本型.局部变量区码, 整数型.局部量变位码 ,整型.局数变量部位码区, 整数型字高节＝与 (取代码位待(查汉字 ,1,)2 5)5字节低＝位与( 代取码(查待字,汉2 ), 525)码内＝十六取制文进 (高字本节 ) ＋十六进制取本 (文低字节)码＝区高字节－1 0位码＝6 低字节－ 160区位码＝区码1×0 ＋0位码.判断开始(位码区1≥061 且位码区1≤63)6回返(A”)“.判断(位区码≥637 1且区位码≤ 1 38)2返回“B”().判(区位码≥断 813 且区位3码≤2707)回返(“ ”C).判 (断区码位≥ 278 且区位0码≤ 223)7回返( D“”).断判( 位码≥ 区272 且 4区位码≤ 302)1回返( “”E).断判(位区码≥2 02 且3 位码区≤432)返2 (“F回)”.判断(区位码≥2343 且区码位≤ 2 53)9返回(G”)“.判断 (位区码≥ 529 且4区位≤码 7862)返回(“H” )判. (断区码位≥ 2787 且区位码≤310 5)返回( J“)”判断 (.区位码≥3 106且位码≤区 211)返回3( K“)”.断 (区判码位≥321 2 且区码位≤ 3 74)1返回(L”)“.断判(区位≥ 3472 码区且位码≤ 3 36)4返回“M”)(.判断(区位码≥ 635 且区位码3≤ 3721)返回“(”N).判 (断区码位≥ 732 且 2区位码3≤729)回返“O(”).判断( 区位码≥ 730 3 且区位码3≤57)8回(“返”)P判. 断(区码位385≥ 且8区位码≤ 4 20)6返回(“”)Q.判断(区位≥码4 207 区且码位≤408 5)返回(“”R)判断. 区位( 码4≥08 且6 位码区≤4 83)9回返“(”S.)断判区(码位≥ 4 930且区位码≤5574)返回(“”)T.判断区位( 码4≥558且区码位≤ 4836)返回(W“”).断 (判位码区≥4 846且区位≤码 9244)返回( “”X.判断) 区(位码≥429 5且位码≤区5 482)返回(Y“)”.断 (区判位码5249≥且位码区≤ 5598)返回(Z”“)默.认回(“返范围”出).判断束结具体践代实，以码码为例内pbuicls atic tsritn getCodstGirgn(stinrgUn Nae)m{it in 0;=suorth ek = y;0stirn sgrResultt= trins.Emgpt;y//建两个不同的en创cdongi象对Econidgnu inodc =e Ecnoidgn.Uicodn;//e建GBK码对创象Ecodinn gbkg E=ncding.oGetnEcoindg(96);3//将nucoide符字转串换为节字yteb[]uni ocdeByest= uinoce.GdtBytee(UnNsma);e//再转化为GB码Kbyt[e gb]Bytes =k Enocdngi.onCert(vniuoced,g kb ,uncoiedBtyes; )wihel({/如/果为数\字字\母他AS其ICI符号fi( gbkytBs[ei]srtesRul = ttrResslt +u(ch r)agbkyBtes[]i;++i;}#rgieo 否则生成汉字n音拼码简取,拼首字音母else{key= (shourt(g)kBbyte[i] s* 562+ bgkBtyesi + 1][;)f ik(ye = >'\u0AB'1 && ky e={'srtesRutl = stRresut l+" A;"}ele sfi(k e y>= \uB0'C'5&& k y e={strReustl= st Rrseut l "B+;"}esl ei fkey( = '\u>2CB' &1&keysrtReulst= s tRrseult+ "C ";}elseif ( kye>= \uB4EE' &'& kytrResults= strResul t +D"";}esel fi (ey >k '=uB6E\A'&& key'{stResrult= tsrReustl "E+";}esleif (ek y=>'\ u7A2'B && ey k= '\u ){tsrRseult= stRreuls t+" F";}elesi f(ky e=>'\ uB81C '&&k estresulRt= srtResutl "G"+;}else i (kfy e= >'u\9FBE'& ke&ystRersul t= srteRsul +t" ";H}elseif (ke y> =\uB'BF7' & &key {srRetusl t st=Rreuslt+ " ";J}lese fi( ek >y =\'uBAF'6& k&e{srRetsult= st rResult + "";K}lse efi key >(= \'u0ACC '& k&ye s{treRsul t= streRusl t "+L;"}elsei f(key >= ' \Cu2E'8 & ke&y srteRulst =stResult +r M";"e}ls eif (eyk> ='\u 4CC3 && key' {strRselt u =tsrResult + N"";}else if(ke y = >\uC5B''6 & &ey{strRseutl= strRseult+ " "O;}lsee fi(k ye>= 'u\CB5' E& k&e y= {trsReusl t s=rRteslu t+"P" ;elsei f(key = '>uC6\AD &&'ke y{tsRreult = stsreRuslt+ Q"";}else i (feyk>= '\u CBB' 8& key &= 'strRes{ltu s=rtResul +t "R";}elesif (key>= ' uC8F6\ '& &eky'{strResult =strRseltu +"S";}ese ilf(k ey> ='\uC BF'A & key& = {strReslut = tsrReusl t +"";T}lseeif ke( >y='\u DCA' D& &ekstrRsulet= trseRslu t "+"W;}esel fi (ey k> ='\uEF4' C&& eyk {st'resRltu =s rtRsuelt + "X;}"else fi (ky e>=' uD1\B9' &&k y etrResust l=s tresRutl+ " Y"; }elsei (kef >=y \'u4D1'D &&key {st)Rreslut = streRslut +""Z;} lese{trsReulst= s rtReuslt +" ?;" }i = +i2 ;}#enregdoni/}e/d whilnereurn strRteust;l}。