gf_getfirstletter.srf

2万字库的拼音首字母查询,纯pb代码, 方便大家嵌入到自己的程序中

LETTER=LETTER+'xy jzlqldtzjjzdyydjntpd zdskjfsljhylypsgxfzfcdkhjgxtlqfsgdslqwzkxtmhsbgzmjzrglyjbpmlmsxlzjqqhzyjczydjwbmjklddpmjegxyhylxhlqyqhkycwqjzlbthydgcjfdyazxdzhzjnhhqbyknxjjqczmlljzkspldsclbblxkleljlbj ycxjxgcnlcqplzlzyjtzlxyjbxmyztwyccjmyyxnatjhyccxzpcqlbzwwytwsqcmlpmyrjcccxfpznzzljplxxyztzlgdltcklyrzzgqtgjhhgjljaxfgfjzslcfdqzyhzbtrblhlczzjadjlmmmsshmybbbskkbhrsxjjmxsdznzpelbbrawggfchgm  klltsjyycqlcskywyyhywhbhqywpawykqlclgjdjcznzlljpjqdcclcjxmyzftsxgcgsbrzxjqqctzhgyqtjqqlzxjylylbcyamcstylpdjbyregklzyzhlyszqlznwdq tntkhqcwdqktgpkxhcpdhtw bkdhthlxyyyydespgyzpceqdltbdsdegyjq jcwxssbzxdpydlyjclsxydyexcyyydwndczcllwjqjjjkdgjzolbbzppglghtgzxyghzmycnqsycyhbhgxkamtxyxnbskyzzgjzlqjdfcjxdygjqjjpmgwgjjjpkqsbjaydywtjdaxysrltdpsyxfnejdyzlxllhzyqjhgjhzycshwsgczyjgllnxzjjn fxmfpycyawddhdmczlqzhzyztldywllhygbmmcjssclpqpdxcdyykyfcjddyygywrhjrtgznyqldkljszzgzqzjgdykshpzmtlcpwnjyfyzdjcnmwescyglbtzcgmssmylmbwwkxydtyldjpyw xjmmllhafdllaflbhhhbjtzcqljtfmbmhydcjrddwr qnysnwzbyytbjhpbygtjahgqtystjkbtzllyxys'
LETTER=LETTER+'xxbsjsbbsgghfjlypmzjnlyywdqshzxtyywhmcyhywdbxbtlmsyyyfsxjcstxxlhjhfssxzqhfzmzcztqcxzxrttklxb qqhqmjd ttxpgbktlgqxjjjcdhxqdwjlwrfwjgwqhckryswgbtbygbwhd wdfjxxxjzlpyyypayxhydqkxsaxyxgskkdjhnnyzqqmtqdmmgyytxmjgdhcdyzbffallztdltfxmxqzdngwqdbdczjdxbzgsqqddjcmbkzffxmkdmdsyyszcmljdsynywbdddpplcj hqeewjksyykdypltjtpkjltcyyhhjttpltzzcdlthqkzjqyste eywyyzyxpyysddjkllpwmcyhqgxyhcrmbsprskmkmpcklgdbqtfzswtfgglyplljzhgjjgypzltcsmcnbtjbqfkthbyzgkpbbymtdssxtbnpdkleycjnycdykzddhqxpllnqtjpyylfdgfxzpsbtljxxjbswyysksflxlpplbbblbsfxyzsylfffscjds tgtryycyffcyzyzbjtbctsbsdhrtjhbytsyzsctarlltkzlgecllkjlqjaqnbdkkghpjtzqksecshalqfmmgjnlyjbbtmlyzxdtjpldlpcqdhzycbzsczbzmsljflkrxyjelxbnebjdsyxyhgcjzbxbydfzwgenyhhhjhatfwgzstbgxklstywmtmbyxj skzscdyqrcwxzfhmymcxlzndtdhlxdjggzjsnfrgjhxpdhyjybzgdlqcsezgxlblhyxtwmabchecmwyjyzlljjyhlgbdjlslygkdzpzxjyyzlwcxszfgwyydlyhcljybfbnbbthfjaaxwfpxmyfhdttcxzzpjrsywzdlybbkdyqpqjpzypzjznjpzjlzt fysbttslmptzrtdxqsjehbzylzdhljsqmcmbjhblyzlycblydpdqysxqzbytdkyxjyycnrjmpdjgklclj'
LETTER=LETTER+'bctbjddbblblczqrpyxjcjlzcshltoljnmdddlngkaqhqlhtxtjecxalzdspktlzkqqyfsygywpcpqfhqhytqxzkrsgttsqczlbtxcdyyzss qzslxlzmacbcqbzyxhbsxlzdltcdjtylzjhykheznmshrphqqjchgmfprxhjgdychgklyrzqlcyqjnzsqtkqjymszswlcfqqqxyfggyptqwlmcrnfkkfsyylybmqammyytpzylltxjsjxhlbrybxqzskswwwygyabbztjktgpysbxpbcmllxztbklgqkq lskdfxrdkbfpftbbmfeeqgypzsstlbdpsmyxctpshcptxxzzsmphpshmclmldqfyqxszyjdjjzzhqpdszglstjbckbxyqzjsgpsxqzqzrqtbdkyxzkhhgflbcsmdldzzsjdhlqlzpmsmmsxlqqnknbnddnxxdhddjyyyfqgzlgsmjqgxytqlgpbqxcyzy drjbgtdjyeeshtmjsbwblwhlsffnypmhxdzdblzyycxnncsybzbfglzzxswmsccmqnjqsbdqsjtxxmbltxzclzshzcxrqjgjylxzfjphyjzqqydfqjjlzznzjcdgzyxhpltbqpfbjwjdbygpnxtbfzjgsdddjshxeawzz lltyybwjkgxghlfkxdjtmsz sqynzggswqsbhtlsskmclzxyszqqxncjdztxmzysctlkphtxhtlbjxjlxscdqxcbbtjfqzfsltjbtkqbxxjjljchczdbzjdczjdcprnpqcjpfczlclzxzdmxmphjsgzgzdlfnyklacjllzlmzjnhydsshthxzlzjbbhqzwwy rdhlyqqjbeyfsgxwhsrx wjhwpslmssgz tyeyqqwrslal mjtqjsmgszzqlylwtjpfsyaxmcjbtzyycwmytzsjjlqcqlwzmalbxyfbpnlsfhtgjwejjxxglljstgshjqlzfkcgnndszfdeq'
LETTER=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 LETTERLEN
	IF ASC(MID(THISLETTER,I,1)) > 128 THEN
		HZ = MID(THISLETTER,I,2)
		QW = 190 * (ASC(LEFT(HZ,1)) - 129) + ASC(RIGHT(HZ,1)) - 64 + 1
		IF QW < 1 THEN
			PYSTRING = PYSTRING + "?"
		ELSE
			if QW>len(LETTER) then
				PYSTRING = PYSTRING + "?"
			else
				PYSTRING = PYSTRING + MID(LETTER,QW,1)
			end if
		END IF
		I = I + 1
	ELSE
		PYSTRING = PYSTRING + MID(THISLETTER,I,1)
	END IF
NEXT

RETURN TRIM(lower(PYSTRING))


end function