汉字转拼音!!VB问题

来源：百度知道 编辑：UC知道 时间：2024/06/22 03:02:28
如何把文本框中的中文转为拼音

如题，怎么把文本框中的中文转为拼音？
例如，在TEXT1中输入“张小明”
那么在TEXT2中即时显时张小明的拼音字母“ZHANG XIAOMING”注意区分大小写和姓与名之间的空格
又如果在TEXT中输入“司徒雪月”
那么在TEXT中要相应出现“SITU XUEYUE”

这个怎么实现？？？？？

我有一个ACCESS数据库,里面有一个表......表的第一列为PY,第二列为HZ
如名,第一列的为拼音......第二列对应的则为汉字........怎么使用这个数据库实现?????

如果可以,麻烦在我的邮箱也发一个?
fly1987abc@hotmail.com
我想我的拼音库是很齐全的,因为我看了下面那个朋友介绍的网站都没有我的数据库里的汉字多..............
没人原意帮我吗????没办法了,就这几分...........

这个问题比较复杂，你输入一个人的姓名，拼音要将姓和名自动分开，这还要去判断单姓和复姓，没那么简单，如果输入时自己分开最好。我有一个EXCEL版的程序，也是公司用来将姓名转成拼音的，其中也遇到你说的要将姓名的姓与名分开，不过这一步是在EXCEL中进行，VBA中没有写这代码，发给你看看先。

用查表的方式。下面的程序是ASP语言编写的，与VB差不多。

'汉字转换为拼音
'例子: getpy("工商管理06级") 返回 gongshangguanli06ji
function Getpy(hz)
dim d,i,a,b,num,j,g

Set d = CreateObject("Scripting.Dictionary")
d.add "a",-20319
d.add "ai",-20317
d.add "an",-20304
d.add "ang",-20295
d.add "ao",-20292
d.add "ba",-20283
d.add "bai",-20265
d.add "ban",-20257
d.add "bang",-20242
d.add "bao",-20230
d.add "bei",-20051
d.add "ben",-20036
d.add "beng",-20032
d.add "bi",-20026
d.add "bian",-20002
d.add "biao&