如何取汉字的第一个拼音字母
#region
$PBExportHeader$f_get_first_letter_2.srfglobal type f_get_first_letter_2 from function_objectend type
forward prototypesglobal function string f_get_first_letter_2 (string as_string)end prototypes
global function string f_get_first_letter_2 (string as_string);//==============================================================================// function:wf_cvt_chinese//------------------------------------------------------------------------------// description: //------------------------------------------------------------------------------// parameter: // string as_string //------------------------------------------------------------------------------// return type: string//------------------------------------------------------------------------------// Author: Jason Date: 2007-07-23//------------------------------------------------------------------------------string ls_letter, ls_rtn_string, ls_string, ls_string_hzinteger li_string_len, ilong ll_count//, QW
ls_string = trim(as_string)li_string_len = len(ls_string)ls_rtn_string = ""
ls_letter='ysx mcsdqlybjjjgczbdfyawj yhcywgj dsn xy sng lggllyj z yssgyqyd xjyydldwj wbbft xdhgbczsrfmjwyfcwdzpyddwylfaypdftzyjqxxzxnnxxzqbpysyzgmzbqbzcyzbxqsbhgxefmbhhgqcxstglygymxalelccxzrjsdnjjtzzcljdtstbnxtyxxgkwyflhyqspxmxxdjzlshxjbcfybyxhczbjyzlwlcz gtsmdzxpqglsjfzzlslhdzbwjncjysqycjrzcwybtyfdwecskdcbyhyzqyyxzcfbzmjyxxcdcztbzjwszsxyrnygmdthjxsjjccsbxyytsyfbxzgclczzbscyzqscjzqydxlbbjllmqxtydzsqjtzplcgqdzwjbhctdyfxyelbgxxmyjjqfzasyjncydk jcjszcbatcclyjqmwnqncllkbybzzsyhjqltwlccxthllzntylnzxddtceejys sd hwnly t jymrymcjgjmzgxykymsmjkmfxmtghpfmqjsmtgjqdgyalcmzsdjlxdffjczfmzffkgpkhrcjqcjdwjlfqdmlzbjjscgckdejcjdlzyckccclfcq czgbdldjjyhddwgsjdaccctllpskghzzljlgjgjjtjjjzczmlzyjklzyzmljkywxmkjlkjgmclykjqlblkmdxwyxysllpsjjjqxyjfjdjdmxxllcxqyjb bggypjyggdjgnjyjkhqfqzkhyghdkllsdjjxeyqxnzsxwwxdjlgxxjaqscsqkjex yzhydz p qyzmtstzfcyldjagylallyyygmqq ldhcssadsgbrlyjsjwrcgqc hmmxjdyohycqgbehwnjdogjlgwqwjycstwesjpwmrdsztxyqpzhyhykhtpbfyhtdwzbtxhqexzxxkhtexwltxymnx hykpmzhxlblbmlsfhyyggbhyjt'ls_letter=ls_letter+'ywlqczydqdq g l s wyqeqajdytlxanzdexqtwwdgqqdyzbchyqzlxygzgl djt tadyzzcwyzymhyhyjzwcxhdnlyskqydbcywy b qgtyhqsygxmchrwjbwqzlw s s nqbalzzmtjcjtsaxljhhgoxzcpdmhgtysjxhmrlxjkxhmqxtdxwzbkhcczdytxqhlxhyxysyydd znyxjyaykypdhdd pyzndltwxydpzjjcxmtlhbynyymhzllhnmylllmdcppxmxdkycy ltachhznxzlcclylzsxzjnzln lhyntkyjpychegttgqrgtgyhhlgcwyjkyyyttttlhyllyttplkyyqqzdqxsnmjzxyqmktfbjdjjdjptjzgtsyflqgxblzfh zadpmjhlccyhdzfgydgcyxsbhdkdhaxxbfbyyaxzqbfqyjjdljjzlhbjydyjsqwjlzkcdtctbkdzzdqjnkknjgyeglfyka ntchblwzbymjnagzyheybjmctyfzjjhgjpljhdwxxjkyykssmwctqzlpbzdtwzxzagykwxlhlspbclloqmmtslbcdzkdcz jgqjdcytzqwzqcsbptdfqdzdsddtdwfhtdyzjaqqkypdjybtljhdrqxlxaydrjlklytwhllrllcxylbw zymzzhkhxksmdsyyjpzbsqlcxxnjwwdq gqmmczggbtybygbedpjldyhkzbhfdxbawpwajldyjsfhblddqjncxfjhdyjhwzpkzypcyzynxff wdbzznytxyembsehxfzmbflzrsymzjrdjgxhjgjjnzzxhgjkymlpeyyxtwqshdscxmfwkcctxnybnzhzptxwywxyysljzqxzdlaelmcpjclxsqhfwwtfftnqjjjdxhwyznflakyyjldxhhyyncjyywdrmdnqhwqcmfjdyzhmayxjwzqtxdlmrspwwchjb xygcyyrrlmpamkqzyjrmysn'ls_letter=ls_letter+'tblnbpyyxyykyngjtznlzhhanmpgwjdzmxxmllhgdzxyhxkrycjmffyyhjfssqlqxndycannmdcjcyprneytyqymbsxndlylyljrlqysqmllyzljmxstynsmcwynzlxbnnylrktryyjzzhsytxcjgxzdphmkczyqhzjnbh qsnjntybknlqhsnswxkhjyybqcbfldpzbkjzxzddjeescmlxxkynmwwwydkzggtggxbjtdszxnx mlptfxlcxjjljsxpwxledhlrwasc ybyawjefwqqjzzyjgxpltqtpakqptlcp btxbhblefdleegqymsawhmljdwyglyjeybqfnlyxrdsctggxyyn kyqctlhjlmkkzgygllldzydhzwbjzkdyzzhyyfqytyzdezklymhjhtwyzlkyywzcskqqtdxwcdyjalwkbdqyncsrszjlkcdcdtlzzacqqzzddxyplxzbqjylzlljdzgyjyjzyxnyyynyjjkgdazwrdljyyyrjlgllyxjcykynqcclddnyyynykhjcl qzzyjsq pzdnfpzhddwbmyypqjrssqzsqdgpzjwdqjdhzxwybpdgptmjthzsbgzmbjczwbbzmqcfmbdmcjxljbgjtzgmqdybjzyctyztzxtgkmybbcljssqymscxfjwlsszbqjjlydlyctsqmcwfg kbqllljyxtyltydphnhfjyzyesesdhwdjbsjtfd czyjsyjdzjqpbsdjgfbkjbxdgjhmgwjjlhhyyyyywyycdypcbyjzwdlfwxwzzjczcdjzczlxjjtjpfwbxzbtdzbzcyhmlxbjlrdgrgytlfywwwjxjwcyqcttqhxwxkybmpkbntgjyddyfxbyxcbhxbsxtym sxlhkmzxydhwqjskqhcyxglcsqypdhxmy ybyyykzlhqtbqxmyhcwllcylnewcdcmlggqktlxkgndgzwjjlyhjdtnchxerzjydn'ls_letter=ls_letter+'ydcqcbhztbxwgwbxhmykdydmqkaqynzsyqgysqyshjgjcnxkzycxsbkxhyylcyxtymgcpmgcccccmztasgqzjlosjylstmqsqdzljqqyplcycztcqqpbqjclpkhz yyxxdtddsjcjffllxmlwcjcxtspyxndtjsjwhqqjckyylsjhaykxcyydmamdjmlmczncybzkkyflmchclhxrcjjgslnmtjggygjddcjzkzqgjyyhzhxqhheytmdjyyylfrzzdgwgscqgw rxqjyaxqz ywbgwgyqdzywnppbazybznbyzzyhnycpjmqcy zpnqtbdjkqqhngzyxchbdgddnzgjdnlzlsjljyxytbgtcskmnjbjyljzfkjhtpzsyjwbzyzlstbwwqsmmfdwjyzttbwzwqcslqgdhqswlyzlgyhydcbtckpjmgmspnkyjynhpwcnszzxybyhyzjkjdllcjthgdxxjzbyw wzggqrhzssnbeydznlqxjme dsdjbltknwqwqtzenqzwzkrscsjccgpdqslccgllzghzqthnjgyaznmckcstjckbjygqjpldxrgzyxcnhgdnlzwjjcddbcjxbfzwpqdhjtywjynlzzbcjdsjj dxyayemmjtcljyryynhjbngzjkmjxltbsllrtylclcnxpllhyllqqqljymcycxslmmc cltldwtjllggjxkygbpdkmwhccgxjczdybxdnddykyjtxdyxmaadzsloxyjsjzylbtxxxqqjz bylwsjjyjtdyqqzzzzjlzcdzjhpy qblffjzysj zfpfzksyjjhxtdxcysmmtcwbbjshfgxfqhyzfsjybxpzlhmbxhzxfywdabalktshxkkjjzthgxh jxkzxszzhhwtzzzsnxdzyawlcwxfgyyhxmyydwqmnlycyspjkgwcqhyljmzxhmcnzhhxcltjplxyjhdyylttxfszhysxsjbjyayrmlckd y'ls_letter=ls_letter+'hlrlllstyzyyhscszqxyqfpblf ntljmmtqyzwtlllpz rbdmlgjbzcrqwwxfzetdmcyggyjswjmxybdqc dhxncswjjmbafyfnhydxyezyzsdlsnxcxgbmyyysnbynlhpfzdcyfssssnydzdgbafbdbsszbfgcyjlmlrz yxqzyxzlskbrbrbzcycjzeeyfgzlyysfrykqsxdcyzyjlzxszbykjbbrxllfqwjgyqylpzdjtzabdhzrbjhwnjtjxlkcfsqdqyjhzcwjl bxftzlltlqblcqqccdfbbhczlyyggd wcfczqyyyjysqzflzzfcqnwlhjzjjczkybzzbpdccmhjgxdgdzq fgpsysdfwwjzhyxyyjyhwpbygxrylybhkjksftjmmkhyycyyzpyjydywmtjjrhlqxstws jyzfnmgjtyxyzmsjyjhhqmyrszwtrtzsskx gqgsptgcdnjgqqmxgztqydjzdlsdglhyqgggthszpyjhhgnygkggmdzllcclxqstgzslllmlcskbdlzzsmmytpzsqjcjyxexyzcpshkzsxcdfmwrllqjrfjlysdctmxdhjndnrtzfqyhqgllgxszsjdjjcdqjlnyhszxcgjzypfhdjsbcczgjjjzjqdyb sslyttmqtbhjqmnygkynqyqmzgcjkpdcgmyzgqllsllclmholzgdylfzsljcqzlylzqjesgnylljxgjqlyjyyyxnbzljsswcqqc yllzldjyllzllbnylgyhxcxqaykxhklksexcqkkkcgyyxyytjohthxpycx lcyeychbbjqzscszsslzylgezwmysx jqqsqyyycmdzywctjsydjkcddjlbdjjzkysqkyxhqjohdyxgmajpc pljsmtxerxjqd pjdbsmsstktslmltrzszmldjqynbsqxqydyyzbdslmfgbzmdycwfdtmypyytjjzqjjtjhfbgzpjhyxxy'ls_letter=ls_letter+'ydyhhnmmcpbzpzzlzfmzdlmyftskygyjyhbzkagh pzdscsjxsjfjgdypyhzcwhjsexfqzywklatmlymqpxxskjjpxzgmwqyjs cjlqwhmybdhyylhlglcfytljcjncpjlkphjntxteylsslsdyhxtcznwtdwjslhtjdjggdphcqfcljlzptynlmjllqynbhylqqzybbywrfykjdsqpxyrhjnwtfwdwrchygmm yyhsmzhngcelqqmtcwcmbxjjfyysjztybmstsyjdtjqtlhynbyqhlcyzhzmylflwxypjysylymzctdwgszslmwzwwqzsayysssapxwcmghhxdzyjgsjhyglcxyxhbbzkssmalhycfygmqyjycxjlljgczgqjcctotyxmtthlwtgpzkpzzxkjyclctjzyh xsgzkxzpjjpdhjwpjgxqyxsdmrszzyzwtxkytshbcsplwssdjhjlchhylhfghxjsxalnylmdhzxysxlozyhcldyhzmdyspj qznwjpsjwctsdszlnssmnyymjqjzwtydchqlxawbgqybkfcmjwlzllyylszydwhxpcbcmljscgbhxlqrljxyswwxzlldf hlslymjljylyjcdnjlfsyzfnllcqyqfjyyszlylmstdjcyhzllnwlqxygyygxxhhzyxczqzbnwpypkpypmlgxggbdxzzkzfbxxlzptytswhzyxhqhxxxywzyswdxzkhzphgchc lfjxptzthlyxcrhxshhkjxxzjdxj lyjlkhtxcwhjfacfpqryqxyjy gpgwsgsy gwchkzdhflxjbyzwtqxxncyjjmwyjqrhfqsyljzgynslgtcebyxxwyhhyynsqymlywgyqbbzajlpcytjzhyzwlhorjkczjxxyxchcyqyxqjddsjbxyltsxlmtyjmj yyxltcxqzlhzlwyxzhd brhxjctshlbrlmrllaxksllljlyxxlycry l'ls_letter=ls_letter+'ctgjcmtlzllyzzpcwhjyzeckzdqyqpcjcyzbbbcydcnltrmfgygbsygmdqqzmkqlpgtbqcjfkjcxbljmswldtqxldlppbxcwrcbjczggbhyyfzkzmpjyxylpnyyxdb'+space(30*56)+' kxhmzjxsttdmxxbzyshjpfxpqbyljqkyzzzyl zgfwyctygjbyysbmsmydyshqy zcgmjmcagcbbbhblytyxxsdjgjdhkxxnb'+space(93)+'hnmlngsltxmrnexqjyxlsqglbhdcgyqychwfjymbyjyjydpqyapfxcgjscrssyj lbzjjjlgxzyxyxsqyxbxxgcxpldywetdw'+space(93)+'wcjmbtxchqyxxfxlljsfwdbzcmylmwwtcbcecblgdbqzqfjdjhymcxtxdrmjwrh xcjzylqdyhlsrsywwzjymtllltqcjzbtc'+space(93)+'kzcyjjzqalmyhwwdxzxqdlljsgjfjljhjazdjgtkhsstcyjfbszlxjxrwgldlzr lzqtgslllllymxwgdzybbhl h bpfd w'+space(93)+'hy jcc dmzpbz cyqxldoclwdwyythcqsccrsslfyfpdqmblslmyfgjbtm jwfn mmjtgbdzlpyhyymjyldhdzjcctlcldljc'+space(93)+'pddjdsdnbgzxxcjqycbzxzbzfjsnttjyhtcmjxtmxspdsybzgmljdacbmdkycsz zyfyctgwhkyjxgyclndzscyzssdllqflq'+space(93)+'llxfdyhxgwnywyllsdbbbjcyjzylhljxyyytdlllb bffqbzmbclmjpgehbcqap hhhzchxyhjaxhlphjgpqqzgjjzz zdqyb'+fill('a',36)+'bbbbbbbbbbbbbp'+fill('b',34)+'pbbbbbbbbzhhbwyffq'ls_letter=ls_letter+'dlzljxjpalxzdaglgwqytxpfmmsypfmxsyzashdzkjsmmzzsdnzcbp ltddnmxzymzmmqhhczjemxxkstgwlsqlz'+fill('b',56)+'p'+fill('b',36)+'llzjphlyzyhmxxhgzcjmhxtxfwgmwkdthmfzzydkmsclcmghsxpslcjyxwgjyah jzmcsnxyymmpmlgxmhlmlgmltkzqyszjs'+fill('b',30)+'bb'+fill('c',61)+'hyzjzybddzwdkgdjlfwekzjbezswjmjyltemznplplepykkqzgeqlwakyplhqwq kkclhyxxblyccyskg hlcnszkydkcqzqcccz'+fill('c',50)+'s'+fill('c',38)+'ljbmjhqlywqlnrydtykwsadxddntqdfqqmgxelttkpwtqqlwydl yzcqapllkcc ylpqqczcljslzjxddbsqdljxzqjyzhkzlccccccccccccccccz'+fill('c',60)+'ddddddddddddddddjcyhdyppypeakjyrpcbymxkllzllfqpylllmsglcyrytmxyqbdz ysyztfbsmcl ywzgxzggljsgkdtggzlldzbchyyzhzywx'+fill('d',51)+'z'+fill('d',41)+'yzymsdbzyjgtsmtfxqyjscdgslnmdlyzzlrxtrznzxnqfmyzjzykbpnlypblnzz jhtzkgyzzrdznbgxskgjttyllgzzbjzkl'+fill('d',73)+'eeeeeeeeeeeeeeeeeeeepbzyl yqbjfbnjzzxcdljyxzgyrsrjksmtjlsjywq yhqjxpjbtzlsnshrnypjt wbhklbsjlzyysjylybbwkpdwwcyxckdzxe'+fill('f',92)+'sgzwwyqyytctdllxwkckkkcclzcqqdzlqcsfqchqhsfmkzlnbbshjdysjqplzcd cwjkjlpcmdwjsqyzyhj'//ls_letter=ls_letter+'bydsdzngqmbsplfffffffffffpffffffffffffffffffff'+fill('g',49)+'hgggggggggggnffgfsmxqmlgqcyybkjsrjhzldcftlljgjhyxzcszztjggky xblbbbgtdyjdhz zzlljfzgqjcczbxbsxpxhyyclwdxjjxmf'+fill('g',93)+'hfzhqqmqgsyhtycnznqxgpdhcszqljbhbdcyzcpbytzsgyhckpzjljnscdsllxb msdldfjmkdjzlxlszqpqpgjllydskgqlshhhhhhhhhhhhhhhhhhhhhhhhhhbhhhhhhhhhhhhhhhhhhhhhm'+fill('h',44)+'lkyyhjttmcyqtzzbszqztlljtyyllqllqyzjlbdzlslyyzyfszsnhnczqzbbwck rbcyzmthgjmzlshtclzbleqhxflyljqbz'+fill('h',86)+'jjjjjjjjhstbmzjlxfnbgxjztsfjmssnxlkbhsjhtnlzdntlsjgzjyjczxyhygwrwqnztn fjscpzshzjfyrdjfzjzbfzqchzxfysbzq'+fill('j',86)+'kjjjjjjlzsgyfttdcszxzjbqmszkjrhyjzcgbjkhcggtjkjqglxbxfgdrdylxjgdtsjxgj jjzwzlcqsbtxhqbxttxhxftsdkfjhzyjf'+fill('j',35)+'y'+fill('j',58)+'x zcdlllcqcqzqwqxswtwgwbzcgzllqzbclmqqtzgzxzxljfrmyzflxysqxxjk xrmjdzdmmyybsqbhgzmwfwtgmxlzbyytg'+fill('j',93)+'zwccdxyzxswg yjyznbgpzjcqswxsjrtfyzgrhztxszzthcbfclsyxzljqmzlmp lxzjxclbysmqhxjsxrxsjzzzsslyflczjjjxjjkkkg'+fill('k',84)+'rcrxhhzxqydshjsjjhqcjjbdynsysxjbqlpxqpy'ls_letter=ls_letter+'bydsdzngqmbsplfffffffffffpffffffffffffffffffff'+fill('g',49)+'hgggggggggggnffgfsmxqmlgqcyybkjsrjhzldcftlljgjhyxzcszztjggky xblbbbgtdyjdhz zzlljfzgqjcczbxbsxpxhyyclwdxjjxmf'+fill('g',93)+'hfzhqqmqgsyhtycnznqxgpdhcszqljbhbdcyzcpbytzsgyhckpzjljnscdsllxb msdldfjmkdjzlxlszqpqpgjllydskgqlshhhhhhhhhhhhhhhhhhhhhhhhhhbhhhhhhhhhhhhhhhhhhhhhm'+fill('h',44)+'lkyyhjttmcyqtzzbszqztlljtyyllqllqyzjlbdzlslyyzyfszsnhnczqzbbwck rbcyzmthgjmzlshtclzbleqhxflyljqbz'+fill('h',86)+'jjjjjjjjhstbmzjlxfnbgxjztsfjmssnxlkbhsjhtnlzdntlsjgzjyjczxyhygwrwqnztn fjscpzshzjfyrdjfzjzbfzqchzxfysbzq'+fill('j',86)+'kjjjjjjjzsgyfttdcszxzjbqmszkjrhyjzcgbjkhcggtjkjqglxbxfgdrdylxjgdtsjxgj jjzwzlcqsbtxhqbxttxhxftsdkfjhzyjf'+fill('j',35)+'y'+fill('j',58)+'x zcdlllcqcqzqwqxswtwgwbzcgzllqzbclmqqtzgzxzxljfrmyzflxysqxxjk xrmjdzdmmyybsqbhgzmwfwtgmxlzbyytg'+fill('j',93)+'zwccdxyzxswg yjyznbgpzjcqswxsjrtfyzgrhztxszzthcbfclsyxzljqmzlmp lxzjxclbysmqhxjsxrxsjzzzsslyflczjjjxjjkkkg'+fill('k',84)+'rcrxhhzxqydshjsjjhqcjjbdynsysxjbqlpxqpy'ls_letter=ls_letter+'mlxzkyxljcjlcysxxzzlllll hrzzdxytwxsxffqbpxzgygztcqwyltlsgkkkkkkkkkkk'+fill('l',83)+'mgzjmmgtjfsgzyafsmlbfcwbjcljmzlpjjlmdyyyfbygyzmyzyrqqhxyykqyly fsfslnqgcfhccfxblblzyxxxkhhxshjds'+fill('l',94)+'xczwhhhplhalpqahxdlgggdneztpyqjjcljzljlhyhyqydhz zczywteyt hsl jbdgwxpcd tjckllwkllcsstknzdnqntt'+fill('l',71)+'mmmmmmmmmmmmmmmmmmmmmmmzsszyqkcgbhcrrychbppyrwqbbxkdbbbqtffznpzfxmqkcypzxehzgztcmxxmx nwwxjyhlctmcsjtjjyxtctdnpglzcjlsb'+fill('m',94)+'plqhdnndszjdpgwmndclodansyzrdwjjdbcqwstszyljpxlocbgpcjfzljylxc tnlcgxtpzjwc xwfzdknjcjlltqcbxnqz'+fill('m',30)+'mmmm'+fill('n',59)+'xbxklylhzlqzlnzqwglgjjgxbngjdjxtxctyxjjxsjtstppghtxdfptffllxhpk fzflyl bnjhkbmddbcycldxyddqlyjjwqnnnnnnnnnnnnnnnnnnnnnoooooooo'+fill('p',65)+'lcsjpyycldtjpycmgyhzhsztwqwrfxhjjazmrhyyyqpddlybyznbbxyxhzddnh msgbwbzzjc xllrzcwhzlwdgcggnyzpmz'+fill('p',30)+'ppppppppppppppppppppppppppb'+fill('q',30)+'qqqqqqqzhfgdcjeaqqpjlszdcydwldfrybyscnwbxgzmzjtqscpmxjcjychcjwynxxwjn mt mcdqdzllwnkpzgglcczmlbqjqdjjqt'+fill('q',94)ls_letter=ls_letter+'hqywbzjlttdhhcchflsyytjgcztjbym pdjkxwyyflxncwcxbmaykkjmzzjrxy aqjfljphhhytzjmhsgzjwbwjdyjqqhslzqqqqqqqqqqqqqqqqqqqqqqqqqq'+fill('r',59)+'ssssssssyymyszgrx wysyscsyznlqyljxcxtlwdqjpcycyppnxfyrcmsmslxglgctlxygz gztcp sllytmtzalzpojtjwtcyyjblbzl'+fill('s',94)+'myljbghdlssdhbdcsxhamlzbjmcnhjyjygchskqmzzlwjtsmocdjlyqzhjmyby lyetfjfrfksyxfdwdsxxlwsjslyxsnxwy'+fill('s',93)+'xhahhjzxwmljcsqlkydttzslfdxgzjksxybdpwnzwpqzczenychqfjykbdmljqq qslyxxylljdzbymhbstt qwlhogwblzz'+fill('s',61)+'xssssssssssssssssssssssssssstttttlxqlterrqlstmypyxjjxqsjfbxyxyjllyqylthylymlkljdmllhfzwkhljlhlj klj tlqxylmbtxchxcfxlhhhjbyzzkbxs'+fill('t',94)+'qd jzyygzxbebcqwyyjqtqwjyqqzmwffhfrbndpcjlfzgpbxdbbztgylchbfly xlypjsywmngqlxjqjtcbhxzpxlbyyjddh'+fill('t',57)+fill('w',37)+'jqyjxlldtkhhbfwdysqwnwldebdwcm ljtmxmjsxynwfymwrxxysztzztymldq lwayyjbscqwlbrjwxhybhydnhhgmywytz'+fill('w',83)+'xxxxxxxxxxx qtsdlwdcjpyjlqyjwxmzzmylclmxcmzsqtzpjqblgxjzfljjycjnxwcxsccdl dyjdjjxsqyclzxzzxmxqrjhzjbhfljlml'+fill('x',34)+'s'ls_letter=ls_letter+fill('x',59)+'nldxzlllpypnyysxcqhcmjzzhnpzmekmxkyqlxsdlyhwdcwdzgyyfpjzdyzjtx rzjcyrtlbyzbsjkxzypbdfgzzrytngxzqxxxxxxxxxxxxxj'+fill('x',33)+'h'+fill('x',34)+'cxxxxxxxxxxymb nqkrjjbjerzgykx knsjkljsgzljybzsqlbcktylccdlpfyydzyjgkqttfc xdkdyyyfytyypdwtghrynjcbsnyjhkllsxxxxxxxxxxxxxxxxxxxxxxxx'+fill('y',71)+'dxxwbcjsbbpjjjcjdzbfxxbrmlaygcsnclddtblpz dwsbxbcllxxlzdjzsjy lyxbf bhjjjgbygjpmmmpssczjmtlyzjx'+fill('y',94)+'wxtyledqpjmygqzjgdblqjwjqllsdgytqjczcjdzhqg gjhqxnjldbxsgzhcwy ljwywydfkqjjfxdhctxjyrxysqtjxyeb'+fill('y',95)+'ssyxjnncyzxfxmsyszxyyschshxzzzgzzgfjdldynpzgyjyzdyqzpbxqbdztzc zyxxyhgsqxshcggqhjhgxwszdmmehyxge'+fill('y',30)+'yyyyyyyyyyyyyyyyyy'+fill('z',39)+'czzzzzzdylzkkwjzrcleketdbcykqqsayxcjxwwgsbhjszsdhcsjkjcxswxfltynydbzc czjqtzwjqdzzzqzljjhlnbhpydxpdxshgzzzszzzzzzzzzzzzzzzzzzn'+fill('z',35)+'s'+fill('z',36)+'dxfptjqyzzxhyagncfzyyhxgnqmywxtzspdhhgymxmxqzhtsbcqyjyxhtyyzy bclmmszmjzjllcogxzaajzyhjmzhwdxzs'+fill('z',95)+'dznleyjjzjbhqwjzsqtzpsxztdsxjjlnyazhhyysrnqdthzhay'ls_letter=ls_letter+'jyjhdzjzlsw clybzyecwcycrylcxnhzydzydtrxxbzsx'+fill('z',89)+' qhxjhhljxlgdlqfdbsxfzzyychtyyybhecykgjfxbzjfxbwhdzfyapnpgdymshk mamnbyjtmxyycthjbzyfcgtyhwphftgzzcjwgnspgcgnesypbtyyzdxykygtdjnnjqmbsgzscyjsyyqpgkbzgycywjkgkljywkpjqhytwddzlsymrypywwcckznkyygzsbzegpbmdskftycmhbllhgpzjxzjgzjyxzsbbqsczzlzc stpgxmjsfdcczjz djmcybzlfcjsazfgszlybcwzzbyzdzypsttngjeykkzytcjnmcylqlypysfqrpzslwbtgkjfyxjwzltbncxjjjjtxdttsqzycdxxhgckbphffsswybgmxlpbylllhlxyjgxzbdsy xlgzybzfyxtxccxtzlsqyxzgqdczddxzjjqcgxtdgscxzsyjjqcw ldqztqcgjqjzyezwkgcpypqtynlmkcqzjspzmyjhsojnghdzqyklgjhsgqzhxqgkezzwyscscjxyeyxadzpmdssmzjzqjyzcdjzwqjbyzbxgznzcpwhwxhqkmwfbpbybjnyjddzqzxdbzjcdqcdcknqbqmsjq jjwwjjnjnlllwjzqjdzpzydcydzcttb znztqzddjlzbclltdsxkjzqdpzlzntjxzdtjzzkqxylygxfptyjyyzpszlfchmqshgmxxsxjjsdcsbbqbefsjyhxwgzkpylqbgldlcdtnmayddkssngycsgxlyzaypncjltqjldgdbbjqdcjwynzyzcdwllxwlrxntqjczxkjldftdglrlajjk ymkqll tzytdyyczgjyxdxfrskstqdenqmrkqzhhptsdkdylhgymylcxpycjndqjwxqxfyyfjlejpzrxccqwqqsbzkymgplbmjrqcflnymyqmt'ls_letter=ls_letter+'qyrbzjthztqfrxqhxmqjcjlykdldazfkypbggpzfebzzykyqspegjjglkqzzzslysywyzwfqzylzzlzhwcgkyp qgnpgblplerjykcccyyhsbzfwbnyytgzxqgjmshzkbswyemyltxpsydswlycjqxsjnqbsctyhbftdcyzdjwyghqfsxwckqkxebptlpxjzsrmebwhjlbjslyysmdxlcyljczwhxzjzblfflgskhyjzeyjhlplllldzlwczblcybb bcbbnnzcyrfsrcgyt qzwtzdhdezcnzzwtyqhdynyjlxdjyqdjyqkxlhxjrzjmfqhxhwywsbhtrxxglhqhfnmnykldyxzpylggtmtcfpnjjzyljtyanjgbjplqgdzyqyaxbkysecjsznslyzzwlshglbcjbyzjyctdyndsactszyyegdwnycxtdzysmgzsccsddlccrqxyyelsm hztebblyylltqsyfwfkbxsychbjbwkgskzxlzcghpxzhznytdsbcjkdlzayfmytlebbgqyzkggldndnyskjshdlyxbcgyxypkdjmmzngmmclgezszxzjfznmlzzthcsxjhgxgnlycdlfwljgbqjaqqzjplnybxjyqymrbsyyhkxxstmxrczzywxyhymcf lzhqwqxdbxbzwzmldmyckfmklzcyjyczhydbdllscddnlkjykjsycjlkwhqasdknhcsgaehdaashtcplcpqybsdmpjlpcjoqlcdhjxysprchnwjnlhlyyqyhwzptdzxzlyyzmddzyftqpczcyypfhwllytzdzjdtqcyfksccyyazjpcolzyjtpnyyynrs ylmmnxjsmybssljgyldzdpqbzzblfndsjwwmzffjqqqqyxaclbhkdjxdgmmydqxzllsygxgkjrywzwyclzmssjzldbydcpcxyhlxchyzjqsfqagmnyxpfrkssbjlyxyczfywggqmrdsxycytx'ls_letter=ls_letter+'nqqjpyybfqjdyqfbnqejdgyqbxrcnfyyqbghyjdyzxgr htkyl wdzntsmpklbcgbpyszbydjzsszjsyglnscmhcwwmnzjjlxxhchsydsttxrycyxbyhzsmxjsznpwgpxxtaybgajcxlysdccwzocwkccsbnhcpdyznfcyytyckxytxzbhbscsbzczptqfzmqflypybbjgxzmnxdjmthyskkbtxhjcegbsmhyjzcjt mljyhrzzslxjqpyzhmkttxxjcljprmyygkybsqkkytqqxfcwchcykelzqbsqyjqcclmthsywhmktlkjlycxwheqqhtqkzpqsqscfymmdmgbwhwlgsllysdlmlxpthmjdyskjs dhrzkqxnyztcggydlmlwxybsycdbhjhjfcwztj wtkclxqshlyczjxe mplpdcgltbzztlnjcyjgdtcfglpllqpjmhwljzyhzjxhtxjlhxrswlwzjcbxmhzqxsdzpmgfcsglsxymqshxpjxwmyqksmyplrthbxftpmhyxlchlhlzylxgsssstczbabgyzlaktkdwczzbnzdtdyqzjyjgmctxldgcszlmlhbglkfwnwhdx hlfmkyd lgxdtwwfrjejztzhydxykshwfzcqshktqsldclrpbhzhxyyfhbbgdmycnqqwlqhjjzywjzyejjdhpblqxtqkwhlchqxagtlxljxmslxhtzkzjkcxjcjnmfbycsfywyqhtzhymjdjskhxzjqbzzxympagqmcdbxlskyynwrtsqgsdbpdbsgzwyhtlksssw gzzlyytnxjgmjszs fwnlsoztxgxlsmmljzgnysdzsqyrsljpclpwxsdwejbjcbcnaytwgmpapclyqpclzxsbnmsggfnzjjbzsfzyndxhplqkzczwalsbccjxjyzgwkwldqzyakqcqctmycfjbslxclzjclxxksbzqclhjphq lsxxckslnhpsfqqyt'ls_letter=ls_letter+'xy jzlqldtzjjzdyydjntpd zdskjfsljhylypsgxfzfcdkhjgxtlqfsgdslqwzkxtmhsbgzmjzrglyjbpmlmsxlzjqqhzyjczydjwbmjklddpmjegxyhylxhlqyqhkycwqjzlbthydgcjfdyazxdzhzjnhhqbyknxjjqczmlljzkspldsclbblxkleljlbj ycxjxgcnlcqplzlzyjtzlxyjbxmyztwyccjmyyxnatjhyccxzpcqlbzwwytwsqcmlpmyrjcccxfpznzzljplxxyztzlgdltcklyrzzgqtgjhhgjljaxfgfjzslcfdqzyhzbtrblhlczzjadjlmmmsshmybbbskkbhrsxjjmxsdznzpelbbrawggfchgm klltsjyycqlcskywyyhywhbhqywpawykqlclgjdjcznzlljpjqdcclcjxmyzftsxgcgsbrzxjqqctzhgyqtjqqlzxjylylbcyamcstylpdjbyregklzyzhlyszqlznwdq tntkhqcwdqktgpkxhcpdhtw bkdhthlxyyyydespgyzpceqdltbdsdegyjq jcwxssbzxdpydlyjclsxydyexcyyydwndczcllwjqjjjkdgjzolbbzppglghtgzxyghzmycnqsycyhbhgxkamtxyxnbskyzzgjzlqjdfcjxdygjqjjpmgwgjjjpkqsbjaydywtjdaxysrltdpsyxfnejdyzlxllhzyqjhgjhzycshwsgczyjgllnxzjjn fxmfpycyawddhdmczlqzhzyztldywllhygbmmcjssclpqpdxcdyykyfcjddyygywrhjrtgznyqldkljszzgzqzjgdykshpzmtlcpwnjyfyzdjcnmwescyglbtzcgmssmylmbwwkxydtyldjpyw xjmmllhafdllaflbhhhbjtzcqljtfmbmhydcjrddwr qnysnwzbyytbjhpbygtjahgqtystjkbtzllyxys'ls_letter=ls_letter+'xxbsjsbbsgghfjlypmzjnlyywdqshzxtyywhmcyhywdbxbtlmsyyyfsxjcstxxlhjhfssxzqhfzmzcztqcxzxrttklxb qqhqmjd ttxpgbktlgqxjjjcdhxqdwjlwrfwjgwqhckryswgbtbygbwhd wdfjxxxjzlpyyypayxhydqkxsaxyxgskkdjhnnyzqqmtqdmmgyytxmjgdhcdyzbffallztdltfxmxqzdngwqdbdczjdxbzgsqqddjcmbkzffxmkdmdsyyszcmljdsynywbdddpplcj hqeewjksyykdypltjtpkjltcyyhhjttpltzzcdlthqkzjqyste eywyyzyxpyysddjkllpwmcyhqgxyhcrmbsprskmkmpcklgdbqtfzswtfgglyplljzhgjjgypzltcsmcnbtjbqfkthbyzgkpbbymtdssxtbnpdkleycjnycdykzddhqxpllnqtjpyylfdgfxzpsbtljxxjbswyysksflxlpplbbblbsfxyzsylfffscjds tgtryycyffcyzyzbjtbctsbsdhrtjhbytsyzsctarlltkzlgecllkjlqjaqnbdkkghpjtzqksecshalqfmmgjnlyjbbtmlyzxdtjpldlpcqdhzycbzsczbzmsljflkrxyjelxbnebjdsyxyhgcjzbxbydfzwgenyhhhjhatfwgzstbgxklstywmtmbyxj skzscdyqrcwxzfhmymcxlzndtdhlxdjggzjsnfrgjhxpdhyjybzgdlqcsezgxlblhyxtwmabchecmwyjyzlljjyhlgbdjlslygkdzpzxjyyzlwcxszfgwyydlyhcljybfbnbbthfjaaxwfpxmyfhdttcxzzpjrsywzdlybbkdyqpqjpzypzjznjpzjlzt fysbttslmptzrtdxqsjehbzylzdhljsqmcmbjhblyzlycblydpdqysxqzbytdkyxjyycnrjmpdjgklclj'ls_letter=ls_letter+'bctbjddbblblczqrpyxjcjlzcshltoljnmdddlngkaqhqlhtxtjecxalzdspktlzkqqyfsygywpcpqfhqhytqxzkrsgttsqczlbtxcdyyzss qzslxlzmacbcqbzyxhbsxlzdltcdjtylzjhykheznmshrphqqjchgmfprxhjgdychgklyrzqlcyqjnzsqtkqjymszswlcfqqqxyfggyptqwlmcrnfkkfsyylybmqammyytpzylltxjsjxhlbrybxqzskswwwygyabbztjktgpysbxpbcmllxztbklgqkq lskdfxrdkbfpftbbmfeeqgypzsstlbdpsmyxctpshcptxxzzsmphpshmclmldqfyqxszyjdjjzzhqpdszglstjbckbxyqzjsgpsxqzqzrqtbdkyxzkhhgflbcsmdldzzsjdhlqlzpmsmmsxlqqnknbnddnxxdhddjyyyfqgzlgsmjqgxytqlgpbqxcyzy drjbgtdjyeeshtmjsbwblwhlsffnypmhxdzdblzyycxnncsybzbfglzzxswmsccmqnjqsbdqsjtxxmbltxzclzshzcxrqjgjylxzfjphyjzqqydfqjjlzznzjcdgzyxhpltbqpfbjwjdbygpnxtbfzjgsdddjshxeawzz lltyybwjkgxghlfkxdjtmsz sqynzggswqsbhtlsskmclzxyszqqxncjdztxmzysctlkphtxhtlbjxjlxscdqxcbbtjfqzfsltjbtkqbxxjjljchczdbzjdczjdcprnpqcjpfczlclzxzdmxmphjsgzgzdlfnyklacjllzlmzjnhydsshthxzlzjbbhqzwwy rdhlyqqjbeyfsgxwhsrx wjhwpslmssgz tyeyqqwrslal mjtqjsmgszzqlylwtjpfsyaxmcjbtzyycwmytzsjjlqcqlwzmalbxyfbpnlsfhtgjwejjxxglljstgshjqlzfkcgnndszfdeq'ls_letter=ls_letter+'fhbxqbjjzjqtyzkxbyqxbjxshztsfglxmxzxfghkzssggylclsarjyhslllmzxelgl xdjtbgyzbpktzhkzjyqsbctwwqjpjwxhgaqtgylbxmmygszldydqmjjrgbjtkgdhgkblqkbdmbylxwcxyttybkmrtjzxqjbhlmhmjjzmqasldcyxyqdlqcafywyxqhzgnyfljbyfdjfrgsfmbyzhqfbwj yfaggphzbyyzffwodgrlbftwlbzgycgxcdj ygzyyyytytydwegazahxj zyyhlrmgrxx'+space(93)+'dclhneljjthtbwjybjjbxjjtjteekhwsljplpsfazpqqbdlqjjtyyqlyzkdksqj yyqzldqcgjjyzjs cmraqthtejmbctyhy'+space(93)+'bkmhyzw dqfhyyxwshctxrljgjxhccyyyjltktsytmxgtcjtzayyoczlylbszyw jytsjyhbyshfjlygjxxtmzyyltxxypzlx'+space(93)+'yjzyzyybnhmymdyylblhlsyyggllsqxlxhdwkqgyshqywljyyhzmsljljjcjjyy cbcpzjmylcjlnjjjlxyjmlzjqlycmhcfm'+space(93)+'mfpqqmfylmcfqmmmz fhjgtthkhchydxtmjdymyydyyydydcymdydlfmycqzwzz mabtbzmdzgdfycgqyttsfwbdtzqssstjj'+space(93)+'hjytsxlywwkxexwznnqzjjjjccchyyxbzxzcyjtllcqxynjycyycynzcqyyoewy czdcjehylpwp mlgkdldgqbchjxy'
for i = 1 to li_string_len if asc(mid(ls_string,i,1)) > 128 then ls_string_hz = mid(ls_string,i,2) ll_count = 190 * (asc(left(ls_string_hz,1)) - 129) + asc(right(ls_string_hz,1)) - 64 + 1
if ll_count < 1 then ls_rtn_string = ls_rtn_string + "Z"//"?" else if ll_count>len(ls_letter) then ls_rtn_string = ls_rtn_string + "Z"//"?" default Z if not found else ls_rtn_string = ls_rtn_string + mid(ls_letter,ll_count,1) end if end if i = i + 1 else ls_rtn_string = ls_rtn_string + mid(ls_string,i,1) end ifnext
return trim(upper(ls_rtn_string))
end function
#endregion
