Get Chinese character string pinyin first letters
'Return to the first letters of a given string
Function Indexcode (Byval Indextxt As String) AS String
DIM I as integer
For i = 1 to indextxt.length
Indexcode = Indexcode & GetoneIndex (MID (INDExtXT, I, 1))
NEXT
END FUNCTION
'Get a single character of a single character
Private function getoneIndex (Byval OneIndextXT AS String) AS String
IF ASC (OneIndextXT)> = 0 And ASC (OneIndextxt) <256 THEN
GetoneIndex = OneIndextxt
Else
GetoneIndex = Getx (CINT (Format (ASC (ONEIDextxt) 65536) / 256 - 160, "00") & format ((ASC (OneIndextxt) 65536) MOD 256 - 160, "00"))))))))
END IF
END FUNCTION
'Get the first letter based on the location
Private function getx (Byval GBCode As Integer) AS String
'Judgment a first-class Chinese character
IF GBCODE> = 1601 and gbcode <1637 Then getx = "a"
IF gbcode> = 1637 and gbcode <1833 Then getx = "b"
IF gbcode> = 1833 and gbcode <2078 Then getX = "c"
IF gbcode> = 2078 and gbcode <2274 Then getX = "d"
IF gbcode> = 2274 and gbcode <2302 Then getx = "e"
IF gbcode> = 2302 and gbcode <2433 Then getx = "f"
IF gbcode> = 2433 and gbcode <2594 Then getx = "g"
IF gbcode> = 2594 and gbcode <2787 Then getX = "h"
IF gbcode> = 2787 and gbcode <3106 Then getx = "j"
IF gbcode> = 3106 and gbcode <3212 Then getx = "k"
IF gbcode> = 3212 and gbcode <3472 Then getx = "l"
IF gbcode> = 3472 and gbcode <3635 Then getx = "m"
IF gbcode> = 3635 and gbcode <3722 Then getx = "n"
IF gbcode> = 3722 and gbcode <3730 the getx = "o"
IF gbcode> = 3730 and gbcode <3858 Then getx = "p" if gbcode> = 3858 and gbcode <4027 Then getx = "q"
IF gbcode> = 4027 and gbcode <4086 Then getx = "r"
IF gbcode> = 4086 and gbcode <4390 the getx = "s"
IF GBCODE> = 4390 and gbcode <4558 THEN getX = "t"
IF gbcode> = 4558 and gbcode <4684 Then getx = "w"
IF gbcode> = 4684 and gbcode <4925 the getx = "x"
IF gbcode> = 4925 and gbcode <5249 Then getx = "y"
IF gbcode> = 5249 and gbcode <= 5589 THEN getx = "z"
'Judging the secondary Chinese character
IF GBCODE> = 5601 and gbcode <= 8794 then
Dim CodeData As String
Codedata = "
cjwgnspgcenegypbtwxzdxykygtpjnmjqmbsgzscyjsyyfpggbzgydywjkgaljswkbjqhyjwpdzlsgmrybywwccgznkydgttngjeyekzydcjnmcylqlypyqbqrpzslwbdgkjfyxjwcltbncxjjjjcxdtqsqzycdxxhgckbphffsspybgmxjbbyglbhlssmzmpjhsojnghdzcdklgjhsgqzhxqgkezzwymcscjnyetxadzpmdssmzjjqjyzcjjfwqjbdzbjgdnzcbwhgxhqkmwfbpbqdtjjzkqhylcgxfptyjyyzpsjlfchmqshgmmxsxjpkdcmbbqbefsjwhwwgckpylqbgldlcctnmaeddksjngkcsgxlhzaybdbtsdkdylhgymylcxpycjndqjwxqxfyyfjlejbzrwccqhqcsbzkymgplbmcrqcflnymyqmsqtrbcjthztqfrxchxmcjcjlxqgjmshzkbswxemdlckfsydsglycjjssjnqbjctyhbftdcyjdgwyghqfrxwckqkxebpdjpxjqsrmebwgjlbjslyysmdxlclqkxlhtjrjjmbjhxhwywcbhtrxxglhjhfbmgykldyxzpplggpmtcbbajjzyljtyanjgbjflqgdzyqcaxbkclecjsznslyzhlxlzcghbxzhznytdsbcjkdlzayffydlabbgqszkggldndnyskjshdlxxbcghxyggdjmmzngmmccgwzszxsjbznmlzdthcqydbdllscddnlkjyhjsycjlkohqasdhnhcsgaehdaashtcplcpqybsdmpjlpcjaqlcdhjjasprchngjnlhlyyqyhwzpnccgwwmzffjqqqqxxaclbhkdjxdgmmydjxzllsygxgkjrywzwyclzmcsjzldbndcfcxyhlschycjqppqagmnyxpfrkssbjlyxyjjglnscmhcwwmnzjjlhmhchsyppttxrycsxbyhcsmxjsxnbwgpxxtaybgajc xlypdccwqocwkccsbnhcpdyznbcyytyckskybsqkkytqqxfcwchcwkelcqbsqyjqcclmthsywhmktlkjlychwheqjhtjhppqpqscfymmcmgbmhglgsllysdllljpchmjhwljcyhzjxhdxjlhxrswlwzjcbxmhzqxsdzpmgfcsglsdymjshxpjxomyqknmyblrthbcftpmgyxlchlhlzylxgsssscclsldclepbhshxyyfhbmgdfycnjqwlqhjjcywjztejjdhfblqxtqkwhdchqxagtlxljxmsljhdzkzjecxjcjnmbbjcsfywkbjzghysdcpqyrsljpclpwxsdwejbjcbcnaytmgmbapclyqbclzxcbnmsggfnzjjbzsfqyndxhpcqkzczwalsbccjxpozgwkybsgxfcfcdkhjbstlqfsgdslqwzkxtmhsbgzhjcrglyjbpmljsxlcjqqhzmjczydjwbmjklddpmjegxyhylxhlqyqhkycwcjmyhxnatjhyccxzpcqlbzwwwtwbqcmlbmynjcccxbbsnzzljpljxyztzlgcldcklyrzzgqtgjhhgjljaxfgfjzslcfdqzlclgjdjcsnclljpjqdcclcjxmyzftsxgcgsbrzxjqqcczhgyjdjqqlzxjyldlbcyamcstylbdjbyregklzdzhldszchznwczcllwjqjjjkdgjcolbbzppglghtgzcygezmycnqcycyhbhgxkamtxyxnb
skyzzgjzlqjdfcjxdygjqjjpmgwgjjjpkjsbgbmmcjssclpqpdxcdyykypcjddyygywchjrtgcnyqldkljczzgzccjgdyksgpzmdlcphnjafyzdjcnmwescsglbtzcgmsdllyxqsxsbljsbbsgghfjlwpmzjnlyywdqshzxtyywhmcyhywdbxbtlmswyyfsbjcbdxxlhjhfpsxzqhfzmqcztqcxzxrdkdjhnnyzqqfnqdmmgnydxmjgdhcdycbffallztdltfkmxqzdngeqdbdczjdxbzgsqqddjcmbkxffxmkdmcsychzcmljdjynhprsjmkmpcklgdbqtfzswtfgglyplljzhgjjgypzltcsmcnbtjbhfkdhbyzgkpbbymtdlsxsbnpdkleycjnycdykzddhqgsdzsctarlltkzlgecllkjljjaqnbdggghfjtzqjsecshalqfmmgjnlyjbbtmlycxdcjpldlpcqdhsycbzsckbzmsljflhrbjsnbrgjhxpdgdjybzgdlgcsezgxlblgyxtwmabchecmwyjyzlljjshlgndjlslygkdzpzxjyyzlpcxszfgwyydlyhcljscmbjhblyjlycblydpdqysxktbytdkdxjypcnrjmfdjgklccjbctbjddbblblcdqrppxjcglzcshltoljnmdddlngkaqakgjgyhheznmshrphqqjchgmfprxcjgdychghlyrzqlcngjnzsqdkqjymszswlcfqjqxgbggxmdjwlmcrnfkkfsyyljbmqammmycctbshcptxxzzsmphfshmclmldjfyqxsdyjdjjzzhqpdszglssjbckbxyqzjsgpsxjzqznqtbdkwxjkhhgflbcsmdldgdzdblzkycqnncsybzbfglzzxswmsccmqnjqsbdqsjtxxmbldxcclzshzcxrqjgjylxzfjphymzqqydfqjjlcznzjcdgzygcdxmzysctlkphtxhtlbjxjlx scdqccbbqjfqzfsltjbtkqbsxjjljchczdbzjdczjccprnlqcgpfczlclcxzdmxmphgsgzgszzqjxlwtjpfsyaslcjbtckwcwmytcsjjljcqlwzmalbxyfbpnlschtgjwejjxxglljstgshjqlzfkcgnndszfdeqfhbsaqdgylbxmmygszldydjmjjrgbjgkgdhgkblgkbdmbylxwcxyttybkmrjjzxqjbhlmhmjjzmqasldcyxyqdlqcafywyxqhz "GetX = Mid (CodeData, (Microsoft.VisualBasic.Left (CStr (GBCode), 2) - 56) * 94 (Microsoft.VisualBasic.Right (CStr (GBCode), 2)), 1)
END IF
END FUNCTION
