如何取汉字的第一个拼音字母(一)

如何取汉字的第一个拼音字母

 

#region

$PBExportHeader$f_get_first_letter_2.srf
global type f_get_first_letter_2 from function_object
end type

forward prototypes
global 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_hz
integer li_string_len, i
long 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 if
next

return trim(upper(ls_rtn_string))

end function

#endregion