社区
VB基础类
帖子详情
如何将输入的中文自动转为拼音?@@高手请进!@@
accp258
2003-10-06 06:53:16
如上
例:
输入:李娟
自动显示:lijuan
在线等待。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
...全文
168
13
打赏
收藏
如何将输入的中文自动转为拼音?@@高手请进!@@
如上 例: 输入:李娟 自动显示:lijuan 在线等待。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
13 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Dublue
2003-10-07
打赏
举报
回复
自建一个码表吧,也不用数据库
online
2003-10-07
打赏
举报
回复
http://www.ourfly.com/download/downloadlist.aspx?type=VB
汉字转拼音的程序(源码)
northwolves
2003-10-07
打赏
举报
回复
反查代码简单,建个库方便些。
txlicenhe
2003-10-07
打赏
举报
回复
我有拼音码表,谁要留个邮箱。(14:00前有效,过期不候)
lele2002
2003-10-07
打赏
举报
回复
根据区位码可以得到大部分汉字拼音
射天狼
2003-10-07
打赏
举报
回复
Option Explicit
'在窗口中加两个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 As String, i As Long
For i = 1 To Len(strParmeter)
intTmp = Asc(Mid(strParmeter, i, 1))
If intTmp < Asc("啊") Then
GetPY = GetPY & "*"
ElseIf intTmp >= Asc("啊") And intTmp < Asc("芭") Then
GetPY = GetPY & "A"
ElseIf intTmp >= Asc("芭") And intTmp < Asc("擦") Then
GetPY = GetPY & "B"
ElseIf intTmp >= Asc("擦") And intTmp < Asc("搭") Then
GetPY = GetPY & "C"
ElseIf intTmp >= Asc("搭") And intTmp < Asc("蛾") Then
GetPY = GetPY & "D"
ElseIf intTmp >= Asc("蛾") And intTmp < Asc("发") Then
GetPY = GetPY & "E"
ElseIf intTmp >= Asc("发") And intTmp < Asc("噶") Then
GetPY = GetPY & "F"
ElseIf intTmp >= Asc("噶") And intTmp < Asc("哈") Then
GetPY = GetPY & "G"
ElseIf intTmp >= Asc("哈") And intTmp < Asc("击") Then
GetPY = GetPY & "H"
ElseIf intTmp >= Asc("击") And intTmp < Asc("喀") Then
GetPY = GetPY & "J"
ElseIf intTmp >= Asc("喀") And intTmp < Asc("垃") Then
GetPY = GetPY & "K"
ElseIf intTmp >= Asc("垃") And intTmp < Asc("妈") Then
GetPY = GetPY & "L"
ElseIf intTmp >= Asc("妈") And intTmp < Asc("拿") Then
GetPY = GetPY & "M"
ElseIf intTmp >= Asc("拿") And intTmp < Asc("哦") Then
GetPY = GetPY & "N"
ElseIf intTmp >= Asc("哦") And intTmp < Asc("啪") Then
GetPY = GetPY & "O"
ElseIf intTmp >= Asc("啪") And intTmp < Asc("期") Then
GetPY = GetPY & "P"
ElseIf intTmp >= Asc("期") And intTmp < Asc("然") Then
GetPY = GetPY & "Q"
ElseIf intTmp >= Asc("然") And intTmp < Asc("撒") Then
GetPY = GetPY & "R"
ElseIf intTmp >= Asc("撒") And intTmp < Asc("塌") Then
GetPY = GetPY & "S"
ElseIf intTmp >= Asc("塌") And intTmp < Asc("挖") Then
GetPY = GetPY & "T"
ElseIf intTmp >= Asc("挖") And intTmp < Asc("昔") Then
GetPY = GetPY & "W"
ElseIf intTmp >= Asc("昔") And intTmp < Asc("压") Then
GetPY = GetPY & "X"
ElseIf intTmp >= Asc("压") And intTmp < Asc("匝") Then
GetPY = GetPY & "Y"
ElseIf intTmp >= Asc("匝") And intTmp < 0 Then
GetPY = GetPY & "Z"
ElseIf (intTmp >= 65 And intTmp <= 91) Or (intTmp >= 97 And intTmp <= 123) Then
GetPY = GetPY & Mid(strParmeter, i, 1)
Else
GetPY = GetPY & "*"
End If
Next
End Function
rainstormmaster
2003-10-06
打赏
举报
回复
to pigpag(噼里啪啦)
//Windows应该有现成码表:全拼输入法好像提供拼音反查功能(可以反查微软输入法的拼音码,即可查到声调)
如果用户没有安装相应的输入法怎么办?
chinahcw
2003-10-06
打赏
举报
回复
up
pigpag
2003-10-06
打赏
举报
回复
Windows应该有现成码表:全拼输入法好像提供拼音反查功能(可以反查微软输入法的拼音码,即可查到声调)
rainstormmaster
2003-10-06
打赏
举报
回复
最好用码表
pigpag
2003-10-06
打赏
举报
回复
http://expert.csdn.net/Expert/topic/2158/2158369.xml?temp=.6067621
pigpag
2003-10-06
打赏
举报
回复
有帖的,搜搜看
txlicenhe
2003-10-06
打赏
举报
回复
需要建库吧?
我在CSDN参与的3000个帖子
今日偶然翻到,感慨万千 1:申述:版主,是否扣了我的专家分? 2:100分急求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望
高手
帮忙! 5:呵呵,来推荐一下我的网站,本站提供大量当今流行的免费的音乐和免费电影,常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6:VBA请教怎
神级
输入
法小狼豪
输入
法设置
重新佈署的操作方法 【中州韵】点击
输入
法状态栏上的 ⟲ (Deploy) 按钮 •【小狼毫】在托盘图标上右键选择「重新佈署」 •【鼠鬚管】在系统语言文字选单中选择「重新佈署」 对设置的修改於重新佈署后生效。编译新的
输入
方案需要一段时间,此间若无法输出
中文
,请稍等片刻。 若部署完毕后,可以通过 Ctrl+` 唤出方案选单,
输入
方案却仍无法正常使用,请查看...
WEB开发文档2 总结
http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx 怎样将后台生成的在内存中的图象显示到客户端 Microsoft IE WebControls下载地址 如何在DATAGRID中使用JAVASCRIPT脚本控制 DataGrid中连接到下一页显示数据 下载
中文
名
计算机考试重点题目与答案
一、选择题 1、 第一台计算机ENIAC淡生于1946年,是电子管计算机;第二代是晶体管计算机;第三代是中小规模集成电路;第四代是大规模集成电路; 2、 计算机的应用领域主要有:科学计算;信息管理;实时控制;办公、生产
自动
化;人工智能,网络通信;电子商务;辅助设计(CAI);辅助设计(CAD); 3、 计算机的信息表示形式为二进制,它采用了冯。诺依曼的思想原理,即以0 和1两个数字形式用于展
哪些 Python 库让你相见恨晚?
https://www.zhihu.com/question/24590883 173 个回答 知乎用户 翻译组勤务员小艾,不值得一提的小人物。 Awesome Python
中文
版来啦! 本文由 伯乐在线 - 艾凌风 翻译,Namco 校稿。未经许可,禁止转载! 英文出处:g
VB基础类
7,762
社区成员
197,608
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章