转换为无声调拼音自定义函数(方法二)
时 间:2011-06-19 14:07:30
作 者:江羽 ID:3967 城市:南昌
摘 要:非数组方法实现替换成无声调拼音
正 文:
之前发过一个将拼音转换为无声调拼音自定义函数,是通过数组方法实现(请参看之前所发实例),但在实际运行中发现调用要慢很多,将其做了一些改进,用循环比对方法速度提高不少,发上来分享一下。
(根据叶海峰版主意见做了些改进,减去了另一个循环)
'枚举无声调拼音输出常量
Enum NotTonesPinyin
NOTONESPINYIN = 1 '声调数字标识
NUMTIONES= 2 '无声调拼音
End Enum
'---------------------------------------------------------------------------------------------------
'功能:实现拼音的转换,如:bāo --> bao ,获得拼的声调:如:bāo 声调为:1
'输入:strPy 字符串变量,为有声调拼音,
' OutputType 为可选参数,默认参数值1: "1"无声调拼音 , "2"声调数字标识, "3"拼音+声调数字标识
'输出:String字符串变量
'调用:1、无 声 调 拼 音:=PinYinNumTones("bǎng") 结果为:bang
' 2、声 调 值:=PinYinNumTones("bǎng",NumTones) 结果为:3
' 3、无声调拼音及声调值:=PinYinNumTones("bǎng",NoTonesPinYin + NumTones) 结果为:bang3
'编程:江羽 2011-6-16
'----------------------------------------------------------------------------------------------------
Public Function PinYinNumTones(ByVal strPy As String, _
Optional OutputType As NotTonesPinyin = 1) As String
Dim I As Integer '循环变量
Dim strTones As String '声调数字标识
Dim strPinyin As String '无声调拼音
Const TONESCHR = "āáǎàēéěèīíǐìōóǒòūúǔùǖǘǚǜ"
Const NOTTONES = "aeiouv"
'初始变量值
strTones = 0
strPinyin = strPy
'获得声调数字码
For I = 0 To 23
If InStr(1, strPy, Mid(TONESCHR, I + 1, 1)) > 0 Then
'将无音标拼音及声调数值分别赋值给变量
strPinyin = Replace(strPy, Mid(TONESCHR, I + 1, 1), Mid(NOTTONES, I \ 4 + 1, 1))
strTones = I Mod 4 + 1
GoTo ChrOutput '替换完后跳出,以期提高速度
End If
Next
ChrOutput:
'按要求输出结果
Select Case OutputType
Case 1 '替换不含声调拼音
PinYinNumTones = strPinyin
Case 2 '输出声调数字码
PinYinNumTones = strTones
Case 3 '以数字标识声调输出拼音
PinYinNumTones = strPinyin & strTones
End Select
End Function
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)