感谢半空烟雨的回复，对我们很有帮助！！ 但是这段代码有些问题 对于非汉字会转换成“zun”，还有就是待转换的汉子是“zuo”的时候都会转换成“zun” 我把修正的地方说一下啊： 1、Const PY_Combination As Long = 395行改为Const PY_Combination As Long = 396 2、Public Sub InitDictinary()函数中最后一行加入 PY_Spell(396) = "N\A": PY_Num(396) = 0 一行，否则不能判别“zuo” 3、GetPY函数内改为 Dim PA As Long, PZ As Long Dim PM As Long, Bingo As Boolean If Len(PY_Spell(0)) = 0 Then InitDictinary If ChnAsc >= 0 Then GetPY = "" Else PA = 0: PZ = PY_Combination PM = PZ / 2: Bingo = False While (Not Bingo And (PZ - PA) > 1) Select Case ChnAsc Case Is < PY_Num(PM) PZ = PM: PM = PA + (PZ - PA) / 2 Case Is = PY_Num(PM) Bingo = True Case Is > PY_Num(PM) PA = PM: PM = PA + (PZ - PA) / 2 End Select Wend GetPY = PY_Spell(IIf(Bingo, PM, PA)) End If 这样，输入的asc不是中文的时候就不转换了当然这只是我的建议，还有其他的问题再说了
' Module : PY
' DateTime : 2007-4-21 10:44
' Author : MaDaHa
' Purpose : 汉字字符串 转换为 汉语拼音码
'---------------------------------------------------------------------------------------Const PY_Combination As Long = 395Public PY_Spell(PY_Combination) As String, PY_Num(PY_Combination) As IntegerPublic Sub InitDictinary()
PY_Spell(0) = "A": PY_Num(0) = -20319
PY_Spell(1) = "Ai": PY_Num(1) = -20317
PY_Spell(2) = "An": PY_Num(2) = -20304
PY_Spell(3) = "Ang": PY_Num(3) = -20295
PY_Spell(4) = "Ao": PY_Num(4) = -20292
PY_Spell(5) = "Ba": PY_Num(5) = -20283
PY_Spell(6) = "Bai": PY_Num(6) = -20265
PY_Spell(7) = "Ban": PY_Num(7) = -20257
PY_Spell(8) = "Bang": PY_Num(8) = -20242
PY_Spell(9) = "Bao": PY_Num(9) = -20230
PY_Spell(10) = "Bei": PY_Num(10) = -20051
PY_Spell(11) = "Ben": PY_Num(11) = -20036
PY_Spell(12) = "Beng": PY_Num(12) = -20032
PY_Spell(13) = "Bi": PY_Num(13) = -20026
PY_Spell(14) = "Bian": PY_Num(14) = -20002
PY_Spell(15) = "Biao": PY_Num(15) = -19990
PY_Spell(16) = "Bie": PY_Num(16) = -19986
PY_Spell(17) = "Bin": PY_Num(17) = -19982
PY_Spell(18) = "Bing": PY_Num(18) = -19976
PY_Spell(19) = "Bo": PY_Num(19) = -19805
PY_Spell(20) = "Bu": PY_Num(20) = -19784
PY_Spell(21) = "Ca": PY_Num(21) = -19775
PY_Spell(22) = "Cai": PY_Num(22) = -19774
PY_Spell(23) = "Can": PY_Num(23) = -19763
PY_Spell(24) = "Cang": PY_Num(24) = -19756
PY_Spell(25) = "Cao": PY_Num(25) = -19751
PY_Spell(26) = "Ce": PY_Num(26) = -19746
PY_Spell(27) = "Ceng": PY_Num(27) = -19741
PY_Spell(28) = "Cha": PY_Num(28) = -19739
PY_Spell(29) = "Chai": PY_Num(29) = -19728
PY_Spell(30) = "Chan": PY_Num(30) = -19725
PY_Spell(31) = "Chang": PY_Num(31) = -19715
PY_Spell(32) = "Chao": PY_Num(32) = -19540
PY_Spell(33) = "Che": PY_Num(33) = -19531
PY_Spell(34) = "Chen": PY_Num(34) = -19525
PY_Spell(35) = "Cheng": PY_Num(35) = -19515
PY_Spell(36) = "Chi": PY_Num(36) = -19500
PY_Spell(37) = "Chong": PY_Num(37) = -19484
PY_Spell(38) = "Chou": PY_Num(38) = -19479
PY_Spell(39) = "Chu": PY_Num(39) = -19467
PY_Spell(40) = "Chuai": PY_Num(40) = -19289
PY_Spell(41) = "Chuan": PY_Num(41) = -19288
PY_Spell(42) = "Chuang": PY_Num(42) = -19281
PY_Spell(43) = "Chui": PY_Num(43) = -19275
PY_Spell(44) = "Chun": PY_Num(44) = -19270
PY_Spell(45) = "Chuo": PY_Num(45) = -19263
PY_Spell(46) = "Ci": PY_Num(46) = -19261
PY_Spell(47) = "Cong": PY_Num(47) = -19249
PY_Spell(48) = "Cou": PY_Num(48) = -19243
PY_Spell(49) = "Cu": PY_Num(49) = -19242
PY_Spell(50) = "Cuan": PY_Num(50) = -19238
PY_Spell(51) = "Cui": PY_Num(51) = -19235
PY_Spell(52) = "Cun": PY_Num(52) = -19227
PY_Spell(53) = "Cuo": PY_Num(53) = -19224
PY_Spell(54) = "Da": PY_Num(54) = -19218
PY_Spell(55) = "Dai": PY_Num(55) = -19212
PY_Spell(56) = "Dan": PY_Num(56) = -19038
PY_Spell(57) = "Dang": PY_Num(57) = -19023
PY_Spell(58) = "Dao": PY_Num(58) = -19018
PY_Spell(59) = "De": PY_Num(59) = -19006
PY_Spell(60) = "Deng": PY_Num(60) = -19003
PY_Spell(61) = "Di": PY_Num(61) = -18996
PY_Spell(62) = "Dian": PY_Num(62) = -18977
PY_Spell(63) = "Diao": PY_Num(63) = -18961
PY_Spell(64) = "Die": PY_Num(64) = -18952
PY_Spell(65) = "Ding": PY_Num(65) = -18783
PY_Spell(66) = "Diu": PY_Num(66) = -18774
PY_Spell(67) = "Dong": PY_Num(67) = -18773
PY_Spell(68) = "Dou": PY_Num(68) = -18763
PY_Spell(69) = "Du": PY_Num(69) = -18756
PY_Spell(71) = "Dui": PY_Num(71) = -18735
PY_Spell(72) = "Dun": PY_Num(72) = -18731
PY_Spell(73) = "Duo": PY_Num(73) = -18722
PY_Spell(74) = "E": PY_Num(74) = -18710
PY_Spell(75) = "En": PY_Num(75) = -18697
PY_Spell(76) = "Er": PY_Num(76) = -18696
PY_Spell(77) = "Fa": PY_Num(77) = -18526
PY_Spell(78) = "Fan": PY_Num(78) = -18518
PY_Spell(79) = "Fang": PY_Num(79) = -18501
PY_Spell(80) = "Fei": PY_Num(80) = -18490
PY_Spell(81) = "Fen": PY_Num(81) = -18478
PY_Spell(82) = "Feng": PY_Num(82) = -18463
PY_Spell(83) = "Fo": PY_Num(83) = -18448
PY_Spell(84) = "Fou": PY_Num(84) = -18447
PY_Spell(85) = "Fu": PY_Num(85) = -18446
PY_Spell(86) = "Ga": PY_Num(86) = -18239
PY_Spell(87) = "Gai": PY_Num(87) = -18237
PY_Spell(88) = "Gan": PY_Num(88) = -18231
PY_Spell(89) = "Gang": PY_Num(89) = -18220
PY_Spell(90) = "Gao": PY_Num(90) = -18211
PY_Spell(91) = "Ge": PY_Num(91) = -18201
PY_Spell(92) = "Gei": PY_Num(92) = -18184
PY_Spell(93) = "Gen": PY_Num(93) = -18183
PY_Spell(94) = "Geng": PY_Num(94) = -18181
PY_Spell(95) = "Gong": PY_Num(95) = -18012
PY_Spell(96) = "Gou": PY_Num(96) = -17997
PY_Spell(97) = "Gu": PY_Num(97) = -17988
PY_Spell(98) = "Gua": PY_Num(98) = -17970
PY_Spell(99) = "Guai": PY_Num(99) = -17964
PY_Spell(100) = "Guan": PY_Num(100) = -17961
PY_Spell(101) = "Guang": PY_Num(101) = -17950
PY_Spell(102) = "Gui": PY_Num(102) = -17947
PY_Spell(103) = "Gun": PY_Num(103) = -17931
PY_Spell(104) = "Guo": PY_Num(104) = -17928
PY_Spell(105) = "Ha": PY_Num(105) = -17922
PY_Spell(106) = "Hai": PY_Num(106) = -17759
PY_Spell(107) = "Han": PY_Num(107) = -17752
PY_Spell(108) = "Hang": PY_Num(108) = -17733
PY_Spell(109) = "Hao": PY_Num(109) = -17730
PY_Spell(110) = "He": PY_Num(110) = -17721
PY_Spell(111) = "Hei": PY_Num(111) = -17703
PY_Spell(112) = "Hen": PY_Num(112) = -17701
PY_Spell(113) = "Heng": PY_Num(113) = -17697
PY_Spell(114) = "Hong": PY_Num(114) = -17692
PY_Spell(115) = "Hou": PY_Num(115) = -17683
PY_Spell(116) = "Hu": PY_Num(116) = -17676
PY_Spell(117) = "Hua": PY_Num(117) = -17496
PY_Spell(118) = "Huai": PY_Num(118) = -17487
PY_Spell(119) = "Huan": PY_Num(119) = -17482
PY_Spell(120) = "Huang": PY_Num(120) = -17468
PY_Spell(121) = "Hui": PY_Num(121) = -17454
PY_Spell(122) = "Hun": PY_Num(122) = -17433
PY_Spell(123) = "Huo": PY_Num(123) = -17427
PY_Spell(124) = "Ji": PY_Num(124) = -17417
PY_Spell(125) = "Jia": PY_Num(125) = -17202
PY_Spell(126) = "Jian": PY_Num(126) = -17185
PY_Spell(127) = "Jiang": PY_Num(127) = -16983
PY_Spell(128) = "Jiao": PY_Num(128) = -16970
PY_Spell(129) = "Jie": PY_Num(129) = -16942
PY_Spell(130) = "Jin": PY_Num(130) = -16915
PY_Spell(131) = "Jing": PY_Num(131) = -16733
PY_Spell(132) = "Jiong": PY_Num(132) = -16708
PY_Spell(133) = "Jiu": PY_Num(133) = -16706
PY_Spell(134) = "Ju": PY_Num(134) = -16689
PY_Spell(135) = "Juan": PY_Num(135) = -16664
PY_Spell(136) = "Jue": PY_Num(136) = -16657
PY_Spell(137) = "Jun": PY_Num(137) = -16647
PY_Spell(138) = "Ka": PY_Num(138) = -16474
PY_Spell(139) = "Kai": PY_Num(139) = -16470
PY_Spell(140) = "Kan": PY_Num(140) = -16465
PY_Spell(141) = "Kang": PY_Num(141) = -16459
PY_Spell(142) = "Kao": PY_Num(142) = -16452
PY_Spell(143) = "Ke": PY_Num(143) = -16448
PY_Spell(144) = "Ken": PY_Num(144) = -16433
PY_Spell(145) = "Keng": PY_Num(145) = -16429
PY_Spell(146) = "Kong": PY_Num(146) = -16427
PY_Spell(147) = "Kou": PY_Num(147) = -16423
PY_Spell(148) = "Ku": PY_Num(148) = -16419
PY_Spell(149) = "Kua": PY_Num(149) = -16412
PY_Spell(150) = "Kuai": PY_Num(150) = -16407
PY_Spell(151) = "Kuan": PY_Num(151) = -16403
PY_Spell(152) = "Kuang": PY_Num(152) = -16401
PY_Spell(153) = "Kui": PY_Num(153) = -16393
PY_Spell(154) = "Kun": PY_Num(154) = -16220
PY_Spell(155) = "Kuo": PY_Num(155) = -16216
PY_Spell(156) = "La": PY_Num(156) = -16212
PY_Spell(157) = "Lai": PY_Num(157) = -16205
PY_Spell(158) = "Lan": PY_Num(158) = -16202
PY_Spell(159) = "Lang": PY_Num(159) = -16187
PY_Spell(160) = "Lao": PY_Num(160) = -16180
PY_Spell(161) = "Le": PY_Num(161) = -16171
PY_Spell(162) = "Lei": PY_Num(162) = -16169
PY_Spell(163) = "Leng": PY_Num(163) = -16158
PY_Spell(164) = "Li": PY_Num(164) = -16155
PY_Spell(165) = "Lia": PY_Num(165) = -15959
PY_Spell(166) = "Lian": PY_Num(166) = -15958
PY_Spell(167) = "Liang": PY_Num(167) = -15944
PY_Spell(168) = "Liao": PY_Num(168) = -15933
PY_Spell(169) = "Lie": PY_Num(169) = -15920
PY_Spell(170) = "Lin": PY_Num(170) = -15915
PY_Spell(171) = "Ling": PY_Num(171) = -15903
PY_Spell(172) = "Liu": PY_Num(172) = -15889
PY_Spell(173) = "Long": PY_Num(173) = -15878
PY_Spell(174) = "Lou": PY_Num(174) = -15707
PY_Spell(175) = "Lu": PY_Num(175) = -15701
PY_Spell(176) = "Lv": PY_Num(176) = -15681
PY_Spell(177) = "Luan": PY_Num(177) = -15667
PY_Spell(178) = "Lue": PY_Num(178) = -15661
PY_Spell(179) = "Lun": PY_Num(179) = -15659
PY_Spell(180) = "Luo": PY_Num(180) = -15652
PY_Spell(181) = "Ma": PY_Num(181) = -15640
PY_Spell(182) = "Mai": PY_Num(182) = -15631
PY_Spell(183) = "Man": PY_Num(183) = -15625
PY_Spell(184) = "Mang": PY_Num(184) = -15454
PY_Spell(185) = "Mao": PY_Num(185) = -15448
PY_Spell(186) = "Me": PY_Num(186) = -15436
PY_Spell(187) = "Mei": PY_Num(187) = -15435
PY_Spell(188) = "Men": PY_Num(188) = -15419
PY_Spell(189) = "Meng": PY_Num(189) = -15416
PY_Spell(190) = "Mi": PY_Num(190) = -15408
PY_Spell(191) = "Mian": PY_Num(191) = -15394
PY_Spell(192) = "Miao": PY_Num(192) = -15385
PY_Spell(193) = "Mie": PY_Num(193) = -15377
PY_Spell(194) = "Min": PY_Num(194) = -15375
PY_Spell(196) = "Miu": PY_Num(196) = -15363
PY_Spell(197) = "Mo": PY_Num(197) = -15362
PY_Spell(198) = "Mou": PY_Num(198) = -15183
PY_Spell(199) = "Mu": PY_Num(199) = -15180
PY_Spell(200) = "Na": PY_Num(200) = -15165
PY_Spell(201) = "Nai": PY_Num(201) = -15158
PY_Spell(202) = "Nan": PY_Num(202) = -15153
PY_Spell(203) = "Nang": PY_Num(203) = -15150
PY_Spell(204) = "Nao": PY_Num(204) = -15149
PY_Spell(205) = "Ne": PY_Num(205) = -15144
PY_Spell(206) = "Nei": PY_Num(206) = -15143
PY_Spell(207) = "Nen": PY_Num(207) = -15141
PY_Spell(208) = "Neng": PY_Num(208) = -15140
PY_Spell(209) = "Ni": PY_Num(209) = -15139
PY_Spell(210) = "Nian": PY_Num(210) = -15128
PY_Spell(211) = "Niang": PY_Num(211) = -15121
PY_Spell(212) = "Niao": PY_Num(212) = -15119
PY_Spell(213) = "Nie": PY_Num(213) = -15117
PY_Spell(214) = "Nin": PY_Num(214) = -15110
PY_Spell(215) = "Ning": PY_Num(215) = -15109
PY_Spell(216) = "Niu": PY_Num(216) = -14941
PY_Spell(217) = "Nong": PY_Num(217) = -14937
PY_Spell(218) = "Nu": PY_Num(218) = -14933
PY_Spell(219) = "Nv": PY_Num(219) = -14930
PY_Spell(220) = "Nuan": PY_Num(220) = -14929
PY_Spell(221) = "Nue": PY_Num(221) = -14928
PY_Spell(222) = "Nuo": PY_Num(222) = -14926
PY_Spell(223) = "O": PY_Num(223) = -14922
PY_Spell(224) = "Ou": PY_Num(224) = -14921
PY_Spell(225) = "Pa": PY_Num(225) = -14914
PY_Spell(226) = "Pai": PY_Num(226) = -14908
PY_Spell(227) = "Pan": PY_Num(227) = -14902
PY_Spell(228) = "Pang": PY_Num(228) = -14894
PY_Spell(229) = "Pao": PY_Num(229) = -14889
PY_Spell(230) = "Pei": PY_Num(230) = -14882
PY_Spell(231) = "Pen": PY_Num(231) = -14873
PY_Spell(232) = "Peng": PY_Num(232) = -14871
PY_Spell(233) = "Pi": PY_Num(233) = -14857
PY_Spell(234) = "Pian": PY_Num(234) = -14678
PY_Spell(235) = "Piao": PY_Num(235) = -14674
PY_Spell(236) = "Pie": PY_Num(236) = -14670
PY_Spell(237) = "Pin": PY_Num(237) = -14668
PY_Spell(238) = "Ping": PY_Num(238) = -14663
PY_Spell(239) = "Po": PY_Num(239) = -14654
PY_Spell(240) = "Pu": PY_Num(240) = -14645
PY_Spell(241) = "Qi": PY_Num(241) = -14630
PY_Spell(242) = "Qia": PY_Num(242) = -14594
PY_Spell(243) = "Qian": PY_Num(243) = -14429
PY_Spell(244) = "Qiang": PY_Num(244) = -14407
PY_Spell(245) = "Qiao": PY_Num(245) = -14399
PY_Spell(246) = "Qie": PY_Num(246) = -14384
PY_Spell(247) = "Qin": PY_Num(247) = -14379
PY_Spell(248) = "Qing": PY_Num(248) = -14368
PY_Spell(249) = "Qiong": PY_Num(249) = -14355
PY_Spell(250) = "Qiu": PY_Num(250) = -14353
PY_Spell(251) = "Qu": PY_Num(251) = -14345
PY_Spell(252) = "Quan": PY_Num(252) = -14170
PY_Spell(253) = "Que": PY_Num(253) = -14159
PY_Spell(254) = "Qun": PY_Num(254) = -14151
PY_Spell(255) = "Ran": PY_Num(255) = -14149
PY_Spell(256) = "Rang": PY_Num(256) = -14145
PY_Spell(257) = "Rao": PY_Num(257) = -14140
PY_Spell(258) = "Re": PY_Num(258) = -14137
PY_Spell(259) = "Ren": PY_Num(259) = -14135
PY_Spell(260) = "Reng": PY_Num(260) = -14125
PY_Spell(261) = "Ri": PY_Num(261) = -14123
PY_Spell(262) = "Rong": PY_Num(262) = -14122
PY_Spell(263) = "Rou": PY_Num(263) = -14112
PY_Spell(264) = "Ru": PY_Num(264) = -14109
PY_Spell(265) = "Ruan": PY_Num(265) = -14099
PY_Spell(266) = "Rui": PY_Num(266) = -14097
PY_Spell(267) = "Run": PY_Num(267) = -14094
PY_Spell(268) = "Ruo": PY_Num(268) = -14092
PY_Spell(269) = "Sa": PY_Num(269) = -14090
PY_Spell(270) = "Sai": PY_Num(270) = -14087
PY_Spell(271) = "San": PY_Num(271) = -14083
PY_Spell(272) = "Sang": PY_Num(272) = -13917
PY_Spell(273) = "Sao": PY_Num(273) = -13914
PY_Spell(274) = "Se": PY_Num(274) = -13910
PY_Spell(275) = "Sen": PY_Num(275) = -13907
PY_Spell(276) = "Seng": PY_Num(276) = -13906
PY_Spell(277) = "Sha": PY_Num(277) = -13905
PY_Spell(278) = "Shai": PY_Num(278) = -13896
PY_Spell(279) = "Shan": PY_Num(279) = -13894
PY_Spell(280) = "Shang": PY_Num(280) = -13878
PY_Spell(282) = "She": PY_Num(282) = -13859
PY_Spell(283) = "Shen": PY_Num(283) = -13847
PY_Spell(284) = "Sheng": PY_Num(284) = -13831
PY_Spell(285) = "Shi": PY_Num(285) = -13658
PY_Spell(286) = "Shou": PY_Num(286) = -13611
PY_Spell(287) = "Shu": PY_Num(287) = -13601
PY_Spell(288) = "Shua": PY_Num(288) = -13406
PY_Spell(289) = "Shuai": PY_Num(289) = -13404
PY_Spell(290) = "Shuan": PY_Num(290) = -13400
PY_Spell(291) = "Shuang": PY_Num(291) = -13398
PY_Spell(292) = "Shui": PY_Num(292) = -13395
PY_Spell(293) = "Shun": PY_Num(293) = -13391
PY_Spell(294) = "Shuo": PY_Num(294) = -13387
PY_Spell(295) = "Si": PY_Num(295) = -13383
PY_Spell(296) = "Song": PY_Num(296) = -13367
PY_Spell(297) = "Sou": PY_Num(297) = -13359
PY_Spell(298) = "Su": PY_Num(298) = -13356
PY_Spell(299) = "Suan": PY_Num(299) = -13343
PY_Spell(300) = "Sui": PY_Num(300) = -13340
PY_Spell(301) = "Sun": PY_Num(301) = -13329
PY_Spell(302) = "Suo": PY_Num(302) = -13326
PY_Spell(303) = "Ta": PY_Num(303) = -13318
PY_Spell(304) = "Tai": PY_Num(304) = -13147
PY_Spell(305) = "Tan": PY_Num(305) = -13138
PY_Spell(306) = "Tang": PY_Num(306) = -13120
PY_Spell(307) = "Tao": PY_Num(307) = -13107
PY_Spell(308) = "Te": PY_Num(308) = -13096
PY_Spell(309) = "Teng": PY_Num(309) = -13095
PY_Spell(310) = "Ti": PY_Num(310) = -13091
PY_Spell(311) = "Tian": PY_Num(311) = -13076
PY_Spell(312) = "Tiao": PY_Num(312) = -13068
PY_Spell(313) = "Tie": PY_Num(313) = -13063
PY_Spell(314) = "Ting": PY_Num(314) = -13060
PY_Spell(315) = "Tong": PY_Num(315) = -12888
PY_Spell(316) = "Tou": PY_Num(316) = -12875
PY_Spell(317) = "Tu": PY_Num(317) = -12871
PY_Spell(318) = "Tuan": PY_Num(318) = -12860
PY_Spell(319) = "Tui": PY_Num(319) = -12858
PY_Spell(320) = "Tun": PY_Num(320) = -12852
PY_Spell(321) = "Tuo": PY_Num(321) = -12849
PY_Spell(322) = "Wa": PY_Num(322) = -12838
PY_Spell(323) = "Wai": PY_Num(323) = -12831
PY_Spell(324) = "Wan": PY_Num(324) = -12829
PY_Spell(325) = "Wang": PY_Num(325) = -12812
PY_Spell(326) = "Wei": PY_Num(326) = -12802
PY_Spell(327) = "Wen": PY_Num(327) = -12607
PY_Spell(328) = "Weng": PY_Num(328) = -12597
PY_Spell(329) = "Wo": PY_Num(329) = -12594
PY_Spell(330) = "Wu": PY_Num(330) = -12585
PY_Spell(331) = "Xi": PY_Num(331) = -12556
PY_Spell(332) = "Xia": PY_Num(332) = -12359
PY_Spell(333) = "Xian": PY_Num(333) = -12346
PY_Spell(334) = "Xiang": PY_Num(334) = -12320
PY_Spell(335) = "Xiao": PY_Num(335) = -12300
PY_Spell(336) = "Xie": PY_Num(336) = -12120
PY_Spell(337) = "Xin": PY_Num(337) = -12099
PY_Spell(338) = "Xing": PY_Num(338) = -12089
PY_Spell(339) = "Xiong": PY_Num(339) = -12074
PY_Spell(340) = "Xiu": PY_Num(340) = -12067
PY_Spell(341) = "Xu": PY_Num(341) = -12058
PY_Spell(342) = "Xuan": PY_Num(342) = -12039
PY_Spell(343) = "Xue": PY_Num(343) = -11867
PY_Spell(344) = "Xun": PY_Num(344) = -11861
PY_Spell(345) = "Ya": PY_Num(345) = -11847
PY_Spell(346) = "Yan": PY_Num(346) = -11831
PY_Spell(347) = "Yang": PY_Num(347) = -11798
PY_Spell(348) = "Yao": PY_Num(348) = -11781
PY_Spell(349) = "Ye": PY_Num(349) = -11604
PY_Spell(350) = "Yi": PY_Num(350) = -11589
PY_Spell(351) = "Yin": PY_Num(351) = -11536
PY_Spell(352) = "Ying": PY_Num(352) = -11358
PY_Spell(353) = "Yo": PY_Num(353) = -11340
PY_Spell(354) = "Yong": PY_Num(354) = -11339
PY_Spell(355) = "You": PY_Num(355) = -11324
PY_Spell(356) = "Yu": PY_Num(356) = -11303
PY_Spell(357) = "Yuan": PY_Num(357) = -11097
PY_Spell(358) = "Yue": PY_Num(358) = -11077
PY_Spell(359) = "Yun": PY_Num(359) = -11067
PY_Spell(360) = "Za": PY_Num(360) = -11055
PY_Spell(361) = "Zai": PY_Num(361) = -11052
PY_Spell(362) = "Zan": PY_Num(362) = -11045
PY_Spell(363) = "Zang": PY_Num(363) = -11041
PY_Spell(364) = "Zao": PY_Num(364) = -11038
PY_Spell(365) = "Ze": PY_Num(365) = -11024
PY_Spell(366) = "Zei": PY_Num(366) = -11020
PY_Spell(367) = "Zen": PY_Num(367) = -11019
PY_Spell(368) = "Zeng": PY_Num(368) = -11018
PY_Spell(369) = "Zha": PY_Num(369) = -11014
PY_Spell(370) = "Zhai": PY_Num(370) = -10838
PY_Spell(372) = "Zhang": PY_Num(372) = -10815
PY_Spell(373) = "Zhao": PY_Num(373) = -10800
PY_Spell(374) = "Zhe": PY_Num(374) = -10790
PY_Spell(375) = "Zhen": PY_Num(375) = -10780
PY_Spell(376) = "Zheng": PY_Num(376) = -10764
PY_Spell(377) = "Zhi": PY_Num(377) = -10587
PY_Spell(378) = "Zhong": PY_Num(378) = -10544
PY_Spell(379) = "Zhou": PY_Num(379) = -10533
PY_Spell(380) = "Zhu": PY_Num(380) = -10519
PY_Spell(381) = "Zhua": PY_Num(381) = -10331
PY_Spell(382) = "Zhuai": PY_Num(382) = -10329
PY_Spell(383) = "Zhuan": PY_Num(383) = -10328
PY_Spell(384) = "Zhuang": PY_Num(384) = -10322
PY_Spell(385) = "Zhui": PY_Num(385) = -10315
PY_Spell(386) = "Zhun": PY_Num(386) = -10309
PY_Spell(387) = "Zhuo": PY_Num(387) = -10307
PY_Spell(388) = "Zi": PY_Num(388) = -10296
PY_Spell(389) = "Zong": PY_Num(389) = -10281
PY_Spell(390) = "Zou": PY_Num(390) = -10274
PY_Spell(391) = "Zu": PY_Num(391) = -10270
PY_Spell(392) = "Zuan": PY_Num(392) = -10262
PY_Spell(393) = "Zui": PY_Num(393) = -10260
PY_Spell(394) = "Zun": PY_Num(394) = -10256
PY_Spell(395) = "Zuo": PY_Num(395) = -10254
End Sub'---------------------------------------------------------------------------------------
' Procedure : GetPY
' DateTime : 2007-4-21 10:45
' Author : MaDaHa
' Input : 汉字 Asc 编码 Integer
' Output : 汉语拼音码 String
' Purpose : 二分法检索拼音码
'---------------------------------------------------------------------------------------
'
Public Function GetPY(ChnAsc As Integer) As String
Dim PA As Long, PZ As Long
Dim PM As Long, Bingo As Boolean If Len(PY_Spell(0)) = 0 Then InitDictinary 'PA:首指针; PZ:尾指针; PM:中间指针; Bingo:命中标志
PA = 0: PZ = PY_Combination
PM = PZ / 2: Bingo = False While (Not Bingo And (PZ - PA) > 1)
Select Case ChnAsc
Case Is < PY_Num(PM)
PZ = PM: PM = PA + (PZ - PA) / 2
Case Is = PY_Num(PM)
Bingo = True
Case Is > PY_Num(PM)
PA = PM: PM = PA + (PZ - PA) / 2
End Select
Wend GetPY = PY_Spell(IIf(Bingo, PM, PA))End Function
'---------------------------------------------------------------------------------------
' Procedure : cmd_Convert_Click
' DateTime : 2007-4-21 10:49
' Author : MaDaHa
' Input : t_Input TextBox
' Output : lblOut label
' Purpose : 将输入框中的汉字字符转换为汉语拼音码
'---------------------------------------------------------------------------------------
Private Sub cmd_Convert_Click()
Dim I As Long, S As String
For I = 1 To Len(t_Input)
S = S & GetPY(Asc(Mid(t_Input, I, 1))) & " "
Next
lblOut = t_Input & "的汉语拼音为:" & vbCrLf & SEnd Sub
声明 网友提供 转载请注明 作者!!
win2000，winXP下也有这个文件功能也一样，但是用记事本打开没法看，存储的方式和以前不同了
上述网址有相关讨论和代码。
但是这段代码有些问题 对于非汉字会转换成“zun”，还有就是待转换的汉子是“zuo”的时候都会转换成“zun”
我把修正的地方说一下啊：
1、Const PY_Combination As Long = 395行改为Const PY_Combination As Long = 396
2、Public Sub InitDictinary()函数中最后一行加入 PY_Spell(396) = "N\A": PY_Num(396) = 0 一行，否则不能判别“zuo”
3、GetPY函数内改为
Dim PA As Long, PZ As Long
Dim PM As Long, Bingo As Boolean
If Len(PY_Spell(0)) = 0 Then InitDictinary
If ChnAsc >= 0 Then
GetPY = ""
Else
PA = 0: PZ = PY_Combination
PM = PZ / 2: Bingo = False
While (Not Bingo And (PZ - PA) > 1)
Select Case ChnAsc
Case Is < PY_Num(PM)
PZ = PM: PM = PA + (PZ - PA) / 2
Case Is = PY_Num(PM)
Bingo = True
Case Is > PY_Num(PM)
PA = PM: PM = PA + (PZ - PA) / 2
End Select
Wend
GetPY = PY_Spell(IIf(Bingo, PM, PA))
End If
这样，输入的asc不是中文的时候就不转换了当然这只是我的建议，还有其他的问题再说了