老问题:输入汉字自动转换为首字母的拼音码 比如中国显示ZG
什么样的汉字（氧化铁） 对应 什么样的缩写（YHT）
曾经看过 在一个医保系统是可以生成的它还可以生在五笔码）
需要建立自己的汉字库了！(估计不可行)
那位仁兄有PB9中的的代码？
[解决办法]
给你个函数:f_getpy()
long no
long pyi
long len
string pytable
string py
string str
string ch1
string ch2
pytable = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" + "aaaabbbbbbbbbbbbbbbbbbbbbbbbbbbb" + "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" + "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" + "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" + "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" + "bbbbbbbbbbbbbbbbbbbbbbbbbbbbcccc" + "cccccccccccccccccccccccccccccccc" + "cccccccccccccccccccccccccccccccc" + "cccccccccccccccccccccccccccccccc" + "cccccccccccccccccccccccccccccccc" + "cccccccccccccccccccccccccccccccc" + "cccccccccccccccccccccccccccccccc" + "cccccccccccccccccccccccccccccccc" + "cccccddddddddddddddddddddddddddd" + "dddddddddddddddddddddddddddddddd" + "dddddddddddddddddddddddddddddddd" + "dddddddddddddddddddddddddddddddd" + "dddddddddddddddddddddddddddddddd" + "dddddddddddddddddddddddddddddeee" + "eeeeeeeeeeeeeeeeeeefffffffffffff" + "ffffffffffffffffffffffffffffffff" + "ffffffffffffffffffffffffffffffff" + "ffffffffffffffffffffffffffffffff" + "ffffffffffffffffgggggggggggggggg" + "gggggggggggggggggggggggggggggggg" + "gggggggggggggggggggggggggggggggg" + "gggggggggggggggggggggggggggggggg" + "gggggggggggggggggggggggggggggggg" + "ggggggggggghhhhhhhhhhhhhhhhhhhhh" + "hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh" + "hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh" + "hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh" + "hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh" + "hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh" + "jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj" + "jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj" + "jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj" + "jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj" + "jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj" + "jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj" + "jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj" + "jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj" + "jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj" + "jjjjjjjkkkkkkkkkkkkkkkkkkkkkkkkk" + "kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk" + "kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk" + "kkkkkkkkkkklllllllllllllllllllll" + "llllllllllllllllllllllllllllllll" + "llllllllllllllllllllllllllllllll" + "llllllllllllllllllllllllllllllll" + "llllllllllllllllllllllllllllllll" + "llllllllllllllllllllllllllllllll" + "llllllllllllllllllllllllllllllll" + "llllllllllllllllllllllllllllllll" + "lllmmmmmmmmmmmmmmmmmmmmmmmmmmmmm" + "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm" + "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm" + "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm" + "mmmmmmmmmmmmmmmmmmmmmmmmmmnnnnnn" + "nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn" + "nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn" + "nnnnnnnnnnnooooooooppppppppppppp" + "pppppppppppppppppppppppppppppppp" + "pppppppppppppppppppppppppppppppp" + "pppppppppppppppppppppppppppppppp" + "pppppppppppppqqqqqqqqqqqqqqqqqqq" + "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq" + "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq" + "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq" + "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq" + "qqqqqqqqqqrrrrrrrrrrrrrrrrrrrrrr" + "rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr" + "rrrrrsssssssssssssssssssssssssss" + "ssssssssssssssssssssssssssssssss" + "ssssssssssssssssssssssssssssssss" + "ssssssssssssssssssssssssssssssss" + "ssssssssssssssssssssssssssssssss" + "ssssssssssssssssssssssssssssssss" + "ssssssssssssssssssssssssssssssss" + "ssssssssssssssssssssssssssssssss" + "ssssssssssssssssssssssssssssssss" + "sssttttttttttttttttttttttttttttt" + "tttttttttttttttttttttttttttttttt" + "tttttttttttttttttttttttttttttttt" + "tttttttttttttttttttttttttttttttt" + "tttttttttttttttttttttttttttttttw" + "wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww" + "wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww" + "wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww" + "wwwwwwwwwwwwwwwwwwwwwwwxxxxxxxxx" + "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" + "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" + "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" + "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" + "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" + "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" + "xxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyy" + "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy" + "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy" + "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy" + "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy" + "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy" + "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy" + "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy" + "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy" + "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy" + "yyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzz" + "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz" + "zzzzzzzznzzzzzzzzzzzzzzzzzzzzzzz" + "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz" + "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz" + "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz" + "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz" + "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz" + "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz" + "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz" + "zzzzzzzzzzz{{{{{cjwgnspgcgne{y{b" + "tyyzdxykygt{jnnjqmbsgzscyjsyy{pg" + "kbzgy{ywykgkljswkpjqhy{w{dzlsgmr" + "ypywwcckznkyygttnjjeykkzytcjnmcy" + "lqlypyqfqrpzslwbtgkjfyxjwzltbncx" + "jjjjzxdttsqzycdxxhgck{phffss{ybg" + "mxlpbyll{hlxs{zm{jhsojnghdzqyklg" + "jhxgqzhxqgkezzwyscscjxyeyxadzpmd" + "ssmzjzqjyzc{j{wqjbdzbxgznzcpwhkx" + "hqkmwfbpbydtjzzkqhylygxfptyjyyzp" + "szlfchmqshgmxxsxj{{dcsbbqbefsjyh" + "xwgzkpylqbgldlcctnmayddkssngycsg" + "xlyzaybnptsdkdylhgymylcxpy{jndqj" + "wxqxfyyfjlejpzrxccqwqqsbzkymgplb" + "mjrqcflnymyqmsqyrbcjthztqfrxqhxm" + "jjcjlxxgjmshzkbswyemyltxfsydsgly" + "cjqxsjnqbsctyhbftdcyzdjwyghqfrxw" + "ckqkxebptlpxjzsrmebwhjlbjslyysmd" + "xlclqkxlhxjrzjmfqhxhwywsbhtrxxgl" + "hqhfnm{ykldyxzpwlgg{mtcfpajjzylj" + "tyanjgbjplqgdzyqyaxbkysecjsznsly" + "zhzxlzcghpxzhznytdsbcjkdlzayfmyd" + "lebbgqyzkxgldndnyskjshdlyxbcghxy" + "pkdqmmzngmmclgwzszxzjfznmlzzthcs" + "ydbdllscddnlkjykjsycjlkohqasdknh" + "csganhdaashtcplcpqybsdmpjlpzjoql" + "cdhjjysprchn{nnlhlyyqyhwzptczgww" + "mzffjqqqqyxaclbhkdjxdgmmydjxzlls" + "ygxgkjrywzwyclzmssjzldbydcpcxyhl" + "xchyzjq{{qagmnyxpfrkssbjlyxysygl" + "nscmhswwmnzjjlxxhchsy{{ctxrycyxb" + "yhcsmxjsznpwgpxxtaybgajcxly{dccw" + "zocwkccsbnhcpdyznfcyytyckxkybsqk" + "kytqqxfcwchcykelzqbsqyjqcclmthsy" + "whmktlkjlycxwhyqqhtqh{pq{qscfymm" + "dmgbwhwlgsllysdlmlxpthmjhwljzyhz" + "jxhtxjlhxrswlwzjcbxmhzqxsdzpmgfc" + "sglsxymqshxpjxwmyqksmyplrthbxftp" + "mhyxlchlhlzylxgsssstclsltclrpbhz" + "hxyyfhb{gdmycnqqwlqhjj{ywjzyejjd" + "hpblqxtqkwhlchqxagtlxljxmsl{htzk" + "zjecxjcjnmfby{sfywybjzgnysdzsqyr" + "sljpclpwxsdwejbjcbcnaytwgmpabcly" + "qpclzxsbnmsggfnzjjbzsfzyndxhplqk" + "zczwalsbccjx{yzhwkypsgxfzfcdkhjg" + "xdlqfsgdslqwzkxtmhsbgzmjzrglyjbp" + "mlmsxlzjqshzyj{zydjwbmjklddpmjeg" + "xyhylxhlqyqhkycwcjmyyxnatjhyccxz" + "pcqlbzwwytwbqcmlpmyrjcccxfpznzzl" + "jplxxyztzlgdldcklyrzzgqtgjhhgjlj" + "axfgfjzslcfdqzlclgjdjcsnclljpjqd" + "cclcjxmyzftsxgcgsbrzxjqqctzhgyqt" + "jqqlzxjylylbcyamcstylpdjbyregkjz" + "yzhlyszqlznwczcllwjqjjjkdgjzolbb" + "zppglghtgzxyghzmycnqsycyhbhgxkam" + "txyxnbskyzzgjzlqjdfcjxdygjqjjpmg" + "wgjjjpkqsbgbmmcjssclpqpdxcdyyky{" + "cjddyygywrhjrtgznyqldkljszzgzqzj" + "gdykshpzmtlcpwnjafyzdjcnmwescygl" + "btzcgmssllyxqsxsbsjsbbsgghfjlypm" + "zjnlyywdqshzxtyywhmzyhywdbxbtlms" + "yyyfsxjc{txxlhjhf{sxzqhfzmzcztqc" + "xzxrttdjhnnyzqqmnqdmmg{ytxmjgdhc" + "dyzbffallztdltfxmxqzdngwqdbdczjd" + "xbzgsqqddjcmbkzffxmkdmdsyyszcmlj" + "dsynsprskmkmpcklgdbqtfzswtfgglyp" + "lljzhgj{gypzltcsmcnbtjbqfkthbyzg" + "kpbbymtdssxtbnpdkleycjnyddykztdh" + "qhsdzsctarlltkzlgecllkjlqjaqnbdk" + "kghpjtzqksecshalqfmmgjnlyjbbtmly" + "zxdcjpldlpcqdhzycbzsczbzmsljflkr" + "zjsnfrgjhxpdhyjybzgdljcsezgxlblh" + "yxtwmabchecmwyjyzlljjyhlg{djlsly" + "gkdzpzxjyyzlwcxszfgwyydlyhcljscm" + "bjhblyzlycblydpdqysxqzbytdkyyjy{" + "cnrjmpdjgklcljbctbjddbblblczqrpp" + "xjcglzcshltoljnmdddlngkaqhqhjhyk" + "heznmshrp{qqjchgmfprxhjgdychghly" + "rzqlcyqjnzsqtkqjymszswlcfqqqxyfg" + "gyptqwlmcrnfkkfsyylqbmqammmyxctp" + "shcptxxzzsmphpshmclmldqfyqxszyjd" + "jjzzhqpdszglstjbckbxyqzjsgpsxqzq" + "zrqtbdkyxzkhhgflbcsmdldgdzdblzyy" + "cxnncsybzbfglzzxswmsccmqnjqsbdqs" + "jtxxmbltxzclzshzcxrqjgjylxzfjphy" + "{zqqydfqjjlzznzjcdgzygctxmzysctl" + "kphtxhtlbjxjlxscdqxcbbtjfqzfsltj" + "btkqbxxjjljchczdbzjdczjdcprnpqcj" + "pfczlclzxzdmxmphjsgzgszzqlylwtjp" + "fsyaxmcjbtzyycwmytcsjjlqcqlwzmal" + "bxyfbpnlsfhtgjwejjxxglljstgshjql" + "zfkcgnndszfdeqfhbsaqtgylbxmmygsz" + "ldydqmjjrgbjtkgdhgkblqkbdmbylxwc" + "xyttybkmrtjzxqjbhlmhmjjzmqasldcy" + "xy??????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????" + "????????????????????????????????"
str = chnstr
pyi = 1
py = ""
len = len(str)
do while pyi <= len
ch1 = mid(str,pyi,1)
pyi = pyi + 1
if asc(ch1) >= 176 and pyi <= len then
ch2 = mid(str,pyi,1)
pyi = pyi + 1
no = (asc(ch1) - 176) * 94 + asc(ch2) - 160
py = py + mid(pytable,no,1)
else
py = py + ch1
end if
loop
return lower(righttrim(py))
[解决办法]
使用函数可以获取汉字拼音首字母，不过个别汉字还是有些问题
楼主也可以使用拼音、五笔、四角码数据库获取
可从下面地址获取 http://download.csdn.net/source/1268945
nm hz py sj jh jx wb
100000 啊 A 6102 7127 62 KBSK
100001 阿 A 7122 7127 72 BSKG
100002 埃 A 4318 4313 48 FCTD
100003 挨 A 5308 5373 58 RCTD
100004 哎 A 6404 9923 64 KAQY
100005 唉 A 6308 3323 68 KCTD
100006 哀 A 0073 0023 03 YEU
100007 皑 A 2261 2277 21 RMNN
100008 癌 A 0017 0062 02 UKKM
100009 蔼 A 4472 9977 42 AYJN
100010 矮 A 8284 2224 84 TDTV
100011 艾 A 4440 9923 44 AQU
100012 碍 A 1664 3337 14 DJGF
100013 爱 A 2040 2224 24 EPDC
100014 隘 A 7821 7621 71 BUWL
100015 鞍 A 4354 9044 44 AFPV
100016 氨 A 8041 0044 82 RNPV
100017 安 A 3040 0044 04 PVF
100018 俺 A 2421 2427 21 WDJN
100019 按 A 5304 5074 54 RPVG
100020 暗 A 6006 3033 66 JUJG
100021 岸 A 2224 7224 24 MDFJ
100022 胺 A 7324 0044 74 EPVG
100023 案 A 3090 0099 09 PVSU
100024 肮 A 7021 0027 71 EYMN
100025 昂 A 6072 3377 67 JQBJ
100026 盎 A 5010 7711 51 MDLF
100027 凹 A 7777 7777 77 MMGD
100028 敖 A 5824 5824 54 GQTY
100029 熬 A 5833 5823 59 GQTO
100030 翱 A 2742 2747 22 RDFN
100031 袄 A 3228 3228 38 PUTD
100032 傲 A 2824 2824 24 WGQT
