转换为无声调拼音自定义函数(方法二)-江羽
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


转换为无声调拼音自定义函数(方法二)

发表时间:2011/6/19 14:07:30 评论(1) 浏览(5627)  评论 | 加入收藏 | 复制
   
摘 要:非数组方法实现替换成无声调拼音
正 文:

        之前发过一个将拼音转换为无声调拼音自定义函数,是通过数组方法实现(请参看之前所发实例),但在实际运行中发现调用要慢很多,将其做了一些改进,用循环比对方法速度提高不少,发上来分享一下。

(根据叶海峰版主意见做了些改进,减去了另一个循环)

'枚举无声调拼音输出常量

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群(群号:198465573)
 
 相关文章
[access查询]拼音相同或相近的查询  【蒋元根  2011/11/5】
拼音首字母模糊查询!  【蟹仔  2012/1/30】
【Access源码示例】--汉字转拼音首字母大写、转完整拼音  【宏鹏  2012/9/27】
【Access示例】拼音首字母筛选示例  【漏蛧尐魚℡  2013/1/27】
Excel中将汉字转化为拼音(实例)  【杏林求真  2013/4/25】
 
 访客评论
2011/6/19麥田
好  学习一下

总记录:1篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

江羽

文章分类

文章存档

友情链接