问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

汉字转拼音!!VB问题

发布网友 发布时间:2022-04-26 15:56

我来回答

5个回答

热心网友 时间:2022-05-01 15:05

用查表的方式。下面的程序是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 "",-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",-19990
d.add "bie",-19986
d.add "bin",-19982
d.add "bing",-19976
d.add "bo",-19805
d.add "bu",-19784
d.add "ca",-19775
d.add "cai",-19774
d.add "can",-19763
d.add "cang",-19756
d.add "cao",-19751
d.add "ce",-19746
d.add "ceng",-19741
d.add "cha",-19739
d.add "chai",-19728
d.add "chan",-19725
d.add "chang",-19715
d.add "chao",-19540
d.add "che",-19531
d.add "chen",-19525
d.add "cheng",-19515
d.add "chi",-19500
d.add "chong",-19484
d.add "chou",-19479
d.add "chu",-19467
d.add "chuai",-19289
d.add "chuan",-19288
d.add "chuang",-19281
d.add "chui",-19275
d.add "chun",-19270
d.add "chuo",-19263
d.add "ci",-19261
d.add "cong",-19249
d.add "cou",-19243
d.add "cu",-19242
d.add "cuan",-19238
d.add "cui",-19235
d.add "cun",-19227
d.add "cuo",-19224
d.add "da",-19218
d.add "dai",-19212
d.add "dan",-19038
d.add "dang",-19023
d.add "",-19018
d.add "de",-19006
d.add "deng",-19003
d.add "di",-18996
d.add "dian",-18977
d.add "diao",-18961
d.add "die",-18952
d.add "ding",-18783
d.add "diu",-18774
d.add "dong",-18773
d.add "dou",-18763
d.add "",-18756
d.add "an",-18741
d.add "i",-18735
d.add "n",-18731
d.add "o",-18722
d.add "e",-18710
d.add "en",-18697
d.add "er",-18696
d.add "fa",-18526
d.add "fan",-18518
d.add "fang",-18501
d.add "fei",-18490
d.add "fen",-18478
d.add "feng",-18463
d.add "fo",-18448
d.add "fou",-18447
d.add "fu",-18446
d.add "ga",-18239
d.add "gai",-18237
d.add "gan",-18231
d.add "gang",-18220
d.add "gao",-18211
d.add "ge",-18201
d.add "gei",-18184
d.add "gen",-18183
d.add "geng",-18181
d.add "gong",-18012
d.add "gou",-17997
d.add "gu",-17988
d.add "gua",-17970
d.add "guai",-17964
d.add "guan",-17961
d.add "guang",-17950
d.add "gui",-17947
d.add "gun",-17931
d.add "guo",-17928
d.add "ha",-17922
d.add "hai",-17759
d.add "han",-17752
d.add "hang",-17733
d.add "hao",-17730
d.add "he",-17721
d.add "hei",-17703
d.add "hen",-17701
d.add "heng",-17697
d.add "hong",-17692
d.add "hou",-17683
d.add "hu",-17676
d.add "hua",-17496
d.add "huai",-17487
d.add "huan",-17482
d.add "huang",-17468
d.add "hui",-17454
d.add "hun",-17433
d.add "huo",-17427
d.add "ji",-17417
d.add "jia",-17202
d.add "jian",-17185
d.add "jiang",-16983
d.add "jiao",-16970
d.add "jie",-16942
d.add "jin",-16915
d.add "jing",-16733
d.add "jiong",-16708
d.add "jiu",-16706
d.add "ju",-16689
d.add "juan",-16664
d.add "jue",-16657
d.add "jun",-16647
d.add "ka",-16474
d.add "kai",-16470
d.add "kan",-16465
d.add "kang",-16459
d.add "kao",-16452
d.add "ke",-16448
d.add "ken",-16433
d.add "keng",-16429
d.add "kong",-16427
d.add "kou",-16423
d.add "ku",-16419
d.add "kua",-16412
d.add "kuai",-16407
d.add "kuan",-16403
d.add "kuang",-16401
d.add "kui",-16393
d.add "kun",-16220
d.add "kuo",-16216
d.add "la",-16212
d.add "lai",-16205
d.add "lan",-16202
d.add "lang",-16187
d.add "lao",-16180
d.add "le",-16171
d.add "lei",-16169
d.add "leng",-16158
d.add "li",-16155
d.add "lia",-15959
d.add "lian",-15958
d.add "liang",-15944
d.add "liao",-15933
d.add "lie",-15920
d.add "lin",-15915
d.add "ling",-15903
d.add "liu",-15889
d.add "long",-15878
d.add "lou",-15707
d.add "lu",-15701
d.add "lv",-15681
d.add "luan",-15667
d.add "lue",-15661
d.add "lun",-15659
d.add "luo",-15652
d.add "ma",-15640
d.add "mai",-15631
d.add "man",-15625
d.add "mang",-15454
d.add "mao",-15448
d.add "me",-15436
d.add "mei",-15435
d.add "men",-15419
d.add "meng",-15416
d.add "mi",-15408
d.add "mian",-15394
d.add "miao",-15385
d.add "mie",-15377
d.add "min",-15375
d.add "ming",-15369
d.add "miu",-15363
d.add "mo",-15362
d.add "mou",-15183
d.add "mu",-15180
d.add "na",-15165
d.add "nai",-15158
d.add "nan",-15153
d.add "nang",-15150
d.add "nao",-15149
d.add "ne",-15144
d.add "nei",-15143
d.add "nen",-15141
d.add "neng",-15140
d.add "ni",-15139
d.add "nian",-15128
d.add "niang",-15121
d.add "niao",-15119
d.add "nie",-15117
d.add "nin",-15110
d.add "ning",-15109
d.add "niu",-14941
d.add "nong",-14937
d.add "nu",-14933
d.add "nv",-14930
d.add "nuan",-14929
d.add "nue",-14928
d.add "nuo",-14926
d.add "o",-14922
d.add "ou",-14921
d.add "pa",-14914
d.add "pai",-14908
d.add "pan",-14902
d.add "pang",-14894
d.add "pao",-14889
d.add "pei",-14882
d.add "pen",-14873
d.add "peng",-14871
d.add "pi",-14857
d.add "pian",-14678
d.add "piao",-14674
d.add "pie",-14670
d.add "pin",-14668
d.add "ping",-14663
d.add "po",-14654
d.add "pu",-14645
d.add "qi",-14630
d.add "qia",-14594
d.add "qian",-14429
d.add "qiang",-14407
d.add "qiao",-14399
d.add "qie",-14384
d.add "qin",-14379
d.add "qing",-14368
d.add "qiong",-14355
d.add "qiu",-14353
d.add "qu",-14345
d.add "quan",-14170
d.add "que",-14159
d.add "qun",-14151
d.add "ran",-14149
d.add "rang",-14145
d.add "rao",-14140
d.add "re",-14137
d.add "ren",-14135
d.add "reng",-14125
d.add "ri",-14123
d.add "rong",-14122
d.add "rou",-14112
d.add "ru",-14109
d.add "ruan",-14099
d.add "rui",-14097
d.add "run",-14094
d.add "ruo",-14092
d.add "sa",-14090
d.add "sai",-14087
d.add "san",-14083
d.add "sang",-13917
d.add "sao",-13914
d.add "se",-13910
d.add "sen",-13907
d.add "seng",-13906
d.add "sha",-13905
d.add "shai",-13896
d.add "shan",-13894
d.add "shang",-13878
d.add "shao",-13870
d.add "she",-13859
d.add "shen",-13847
d.add "sheng",-13831
d.add "shi",-13658
d.add "shou",-13611
d.add "shu",-13601
d.add "shua",-13406
d.add "shuai",-13404
d.add "shuan",-13400
d.add "shuang",-13398
d.add "shui",-13395
d.add "shun",-13391
d.add "shuo",-13387
d.add "si",-13383
d.add "song",-13367
d.add "sou",-13359
d.add "su",-13356
d.add "suan",-13343
d.add "sui",-13340
d.add "sun",-13329
d.add "suo",-13326
d.add "ta",-13318
d.add "tai",-13147
d.add "tan",-13138
d.add "tang",-13120
d.add "tao",-13107
d.add "te",-13096
d.add "teng",-13095
d.add "ti",-13091
d.add "tian",-13076
d.add "tiao",-13068
d.add "tie",-13063
d.add "ting",-13060
d.add "tong",-12888
d.add "tou",-12875
d.add "tu",-12871
d.add "tuan",-12860
d.add "tui",-12858
d.add "tun",-12852
d.add "tuo",-12849
d.add "wa",-12838
d.add "wai",-12831
d.add "wan",-12829
d.add "wang",-12812
d.add "wei",-12802
d.add "wen",-12607
d.add "weng",-12597
d.add "wo",-12594
d.add "wu",-12585
d.add "xi",-12556
d.add "xia",-12359
d.add "xian",-12346
d.add "xiang",-12320
d.add "xiao",-12300
d.add "xie",-12120
d.add "xin",-12099
d.add "xing",-12089
d.add "xiong",-12074
d.add "xiu",-12067
d.add "xu",-12058
d.add "xuan",-12039
d.add "xue",-11867
d.add "xun",-11861
d.add "ya",-11847
d.add "yan",-11831
d.add "yang",-11798
d.add "yao",-11781
d.add "ye",-11604
d.add "yi",-11589
d.add "yin",-11536
d.add "ying",-11358
d.add "yo",-11340
d.add "yong",-11339
d.add "you",-11324
d.add "yu",-11303
d.add "yuan",-11097
d.add "yue",-11077
d.add "yun",-11067
d.add "za",-11055
d.add "zai",-11052
d.add "zan",-11045
d.add "zang",-11041
d.add "zao",-11038
d.add "ze",-11024
d.add "zei",-11020
d.add "zen",-11019
d.add "zeng",-11018
d.add "zha",-11014
d.add "zhai",-10838
d.add "zhan",-10832
d.add "zhang",-10815
d.add "zhao",-10800
d.add "zhe",-10790
d.add "zhen",-10780
d.add "zheng",-10764
d.add "",-10587
d.add "zhong",-10544
d.add "zhou",-10533
d.add "zhu",-10519
d.add "zhua",-10331
d.add "zhuai",-10329
d.add "zhuan",-10328
d.add "zhuang",-10322
d.add "zhui",-10315
d.add "zhun",-10309
d.add "zhuo",-10307
d.add "zi",-10296
d.add "zong",-10281
d.add "zou",-10274
d.add "zu",-10270
d.add "zuan",-10262
d.add "zui",-10260
d.add "zun",-10256
d.add "zuo",-10254

getpy=""
for i=1 to len(hz)
num=asc(mid(hz,i,1))
if num>0 and num<160 then
g=chr(num)
else
if num<-20319 or num>-10247 then
g=""
else
a=d.Items
b=d.keys
for j=d.count-1 to 0 step -1
if a(j)<=num then exit for
next
g=b(j)
end if
end if
getpy = getpy & g
next
end function

热心网友 时间:2022-05-01 16:23

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

热心网友 时间:2022-05-01 17:58

可倒是可以,不过还是有一点麻烦,分太少了,没人愿意写,还有个问题是那个拼音库如果不全的话那么就会存在有些汉字不能转换

把你的数据库格式贴出来吧,我闲得慌,就帮你下吧

热心网友 时间:2022-05-01 19:49

司徒雪月”
那么在TEXT中要相应出现“SITU XUEYUE”

热心网友 时间:2022-05-01 21:57

http://xh.5156e.com/
使用这个网站 ·一个个的查
然后弄到程序上
在vb中怎样实现汉字转换为拼音

public string hz2py(string hz) //获得汉字的区位码 { byte[] sarr = System.Text.Encoding.Default.GetBytes(hz);int len = sarr.Length;if (len&gt;1){ byte[] array = new byte[2];array = System.Text.Encoding.Default.GetBytes(hz);int i1 = (short)(array[0] - '\0');int i...

如何把doc文件转换成PDF格式?

"1.当然可以,首先要确定自己有一个pdf文档,而且确定目的是需要将pdf文档转换为word格式,然后我们将现有文档通过迅捷pdf转换器软件打开。2.通过选择PDF转换页面功能其中的PDF文件转WORD项目拖入文件。3.接着在迅捷pdf转换器下方按自己的需要是否更改文件名,然而在保存类型中选择*.doc选项。4.全部设置完成点击开始转换,确定自己设置好路径、更改文件名和保存类型即可。5.转换完成之后的word文档同样可以通过迅捷pdf转换器重新转换成一开始的pdf文档。"1.当然可以,首先要确定自己有一个pdf文档,而且确定目的是需要将pdf文档转换为word格式,然后我们将现有文档通过迅捷pdf转换器软件打开。2.通过选择PDF转换页面功能其中的PDF文件转WORD项目拖入文件。3.接着在迅捷pdf转换器下方按自己的需要是...

VB汉字转拼音!!紧急!!

好像没有这样的,不过你可以做一个读取文件的程序,当然为了方便,你可以事先写一个程序:界面上放二个文本框,一个按钮,第一个文本框里写你要编码的字,第二个框内写编码即拼音,然后按钮用来用两个文本框内的字符存入一个文件,然后反过来做一个程序,就是写一输入一个字,然后点查询,在第二框...

在vb中怎样实现汉字和拼音的转换

只能用数据库的形式,如果你对GB2312编码有研究的话,你会知道,它的码表是按换汉语拼音来排的,这样你做数据库的时候可以参考GB2312的标准,可以把数据库设计得稍微简单那么一点点。

VB中个别字汉字转拼音无法显示?如何解决

If ImmEscape(a(i), 0, IME_ESC_IME_NAME, ByVal s) Then If Trim("微软拼音输入法") = Replace(Trim(s), Chr(0), "") Then IMEInstalled = True Exit For End If End If Next i If IMEInstalled Then CHINESE = Trim(CHINESE)Dim sChar As String Dim Buffer0() As Byte...

excel中将汉字转为拼音的VB程序的原理是什么(附程序)

这个程序的原理是汉字的ASC值,大部份是按汉字拼音排序的,所以要列出其中的拼音顺序,就可以转化为拼音。但还是有不少的汉字,在这个序列里不是正常排序的,这就会出错。

请高手帮助,VB汉字转拼音代码?

Ctrl+空隔或Ctrl+Shift转换使用。

通过vb如何实现按中文词语拼音的首字母排序?

'在窗口中加两个TEXT控件,一个输入中文,一个显示英文 Private Sub Form_Load()Text1.Text = "转汉语拼音"End Sub Private Sub Command1_Click()Text2.Text = GetPY(Text1.Text)End Sub '获得输入名称的首字拼音 Private Function GetPY(ByVal strParmeter As String) As String Dim intTmp ...

比如说用VB 要把 李世明 三个字转成拼音LI SHI MING 拼音与拼音有空格...

strCode As String) As Integer Dim a2 As Integer Dim strCode As String strCode=Space(1024)a2=icePub_dictionaryCodeTransfer("拼音字典.txt","李世明",strCode)MsgBox strCode 拼音字典.txt内容如下 李世明LI SHI MING 张三ZHANG SAN http://dl.icese.net/dev.php?f=icePubDll.rar 下载 ...

VB 在输入汉字时怎样自动出现拼音码

Private Sub Text1_Change()Text2.Text = ""For i = 1 To Len(Text1.Text)Text2.Text = Text2.Text + py(Mid(Text1.Text, i, 1))Next i End Sub Public Function py(mystr As String) As String i = Asc(mystr)Select Case i Case -20319 To -20284: py = "A"Case -20283...

...汉字的拼音如text1输入“拼音”就msgbox(pinyin)

Private Function py(mystr As String) As String '获得汉字的拼音简码 On Error Resume Next If Asc(mystr) &lt; 0 Then If Asc(Left(mystr, 1)) &lt; Asc("啊") Then py = "0"Exit Function End If If Asc(Left(mystr, 1)) &gt;= Asc("啊") And Asc(Left(mystr, 1)) &lt; Asc(...

汉字转拼音 拼音的拼音 关于汉字的问题有哪些 关于汉字小问题 关于汉字方面的问题 关于汉字的问题与解析 提出关于汉字的问题 拼音字母表 因为的拼音
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
首都食品与医药职称评审能过吗? 助理工程师评定以后有所谓的发证机关、批准文号吗,可在哪里查询到?_百 ... 老人咽气时为什么孙子不能在场 为什么老人咽气时孙子不能在场? 为什么有的人说5D3配这个头很不好 EF 70-200mm f/4L USM 连着两天梦见10多年的情人死了是什么意思?都是零晨,昨天白天还告诉他了... 广州本田汽车有限公司厂址? 梦见自己家里死人了,没见尸体,哭的很厉害 早上心慌慌是怎么回事 ...我早上起来心慌慌的,心态急躁不安,脚,手感觉一点力都没有,这个时候... VB中汉字转拼音的代码 vb 汉字转拼音 如何用vb.net将汉字转换成拼音阿 用vb如何实现将汉字转换成拼音 在vb中怎样实现汉字转换为拼音 音箱的主要性能指标有哪几个 我想购买一台3000-4500之间的单反相机,最好是套机。。最好是双镜头。求大侠讲解。 买微单相机,必须再买镜头吗?还是直接就能用的? 双镜头单反套机与单镜头有什么区别? 我想知道双镜头什么意思?简单点 为什么有的单反相机配备18-55mm、55-135mm双镜头,直接配备18-135mm在使用上不是更方便吗? 买单反配15-50mm,50-200mm双镜头好还是买一个15-140mm的好。15-50mm的镜头是不 数码单反相机在购买时带不带镜头 问一些单反相机的问题,本人菜鸟 单反数码相机一定要再买镜头吗 看到京东上单反有单镜头和双镜头这有什么区 单反相机有必要买吗 买了单反需要另外买镜头吗? 手机用双镜头,为什么单反相机不搞双镜头 相机是单反好还是双镜头单反好 请高手帮助,VB汉字转拼音代码? 在vb中怎样实现汉字和拼音的转换 VB中个别字汉字转拼音无法显示?如何解决 请教大家,vb.net 怎样将汉字转换成拼音简吗 VB.NET中怎么实现 汉字转换拼音呢 如何用vb数据库实现汉字转拼音 VB汉字转拼音!!紧急!! excel中将汉字转为拼音的VB程序的原理是什么(附程序) vb6.0怎样实现汉字的拼音如text1输入“拼音”就msgbox(pinyin) VB 在输入汉字时怎样自动出现拼音码 在VB中,直接拿汉字来比大小,是转换成其拼音来比较的吗? VB中如何实现提取中文拼音 VB十六进制与汉字互转 乳牙是哪几颗 乳牙有几个 人有乳牙多少颗? 每个人有多少颗牙齿,恒牙和乳牙各是多少? 乳牙有哪些 人一共有几个乳牙 小孩乳牙多少颗