轉(zhuǎn)換為無聲調(diào)拼音自定義函數(shù)（方法二）

tanhong

之前發(fā)過一個將拼音轉(zhuǎn)換為無聲調(diào)拼音函數(shù)，是通過數(shù)組方法實(shí)現(xiàn)（請參看之前所發(fā)實(shí)例），但在實(shí)際運(yùn)行中發(fā)現(xiàn)調(diào)用要慢很多，將其做了一些改進(jìn)，用循環(huán)比對方法，速度提高不少，發(fā)上來分享一下.

1. 
   
2. '枚舉無聲調(diào)拼音輸出常量
   
3. Enum NotTonesPinyin
   
4.      NOTONESPINYIN = 1                '無聲調(diào)拼音
   
5.      NUMTIONES= 2                     '聲調(diào)數(shù)字標(biāo)識
   
6. End Enum
   
7. '---------------------------------------------------------------------------------------------------
   
8. '功能：實(shí)現(xiàn)拼音的轉(zhuǎn)換，如：bāo --> bao ,獲得拼的聲調(diào)：如：bāo 聲調(diào)為：1
   
9. '輸入：strPy字符串變量，為有聲調(diào)拼音，
   
10. '      OutputType 可選參數(shù)，默認(rèn)參數(shù)值： "1"無聲調(diào)拼音, "2"聲調(diào)數(shù)標(biāo)識, "3"拼音和聲調(diào)數(shù)字標(biāo)識
    
11. '輸出：String字符串變量
    
12. '調(diào)用：1、無 聲 調(diào)  拼  音：=PinYinNumTones("bǎng")    結(jié)果為：bang
    
13. '     2、聲     調(diào)     值：=PinYinNumTones("bǎng", NumTones)  結(jié)果為：3
    
14. '     3、無聲調(diào)拼音及聲調(diào)值：=PinYinNumTones("bǎng",NoTonesPinYin + NumTones） 結(jié)果為：bang3
    
15. '編程：江羽   2011-6-16
    
16. '----------------------------------------------------------------------------------------------------
    
17. Public Function PinYinNumTones(ByVal strPy As String, _
    
18.                                Optional OutputType As NotTonesPinyin = 1) As String
    
19.     Dim I, J         As Integer             '循環(huán)變量
    
20.     Dim strTones     As String              '聲調(diào)數(shù)字標(biāo)識
    
21.     Dim strPinyin    As String              '無聲調(diào)拼音
    
22.     Const TONESCHR = "āáǎàēéěèīíǐìōóǒòūúǔùǖǘǚǜ"
    
23.     Const NOTTONES = "aeiouv"
    
24.     '初始變量值
    
25.     strTones = 0
    
26.     strPinyin = strPy
    
27.     '獲得聲調(diào)數(shù)字碼及無聲調(diào)拼音
    
28.     For I = 0 To 23: For J = 1 To Len(strPy)
    
29.         If Mid(TONESCHR, I + 1, 1) = Mid(strPy, J, 1) Then
    
30.            '將無音標(biāo)拼音及聲調(diào)數(shù)值分別賦值給變量
    
31.            strPinyin = Replace(strPy, Mid(strPy, J, 1), Mid(NOTTONES, I \ 4 + 1, 1))
    
32.            strTones = I Mod 4 + 1
    
33.            GoTo ChrOutput  '替換完后跳出，以期提高速度
    
34.         End If
    
35.     Next: Next
    
36. ChrOutput:
    
37.     '按要求輸出結(jié)果
    
38.     Select Case OutputType
    
39.         Case 1                            '替換不含聲調(diào)拼音
    
40.             PinYinNumTones = strPinyin
    
41.         Case 2                            '輸出聲調(diào)數(shù)字碼
    
42.             PinYinNumTones = strTones
    
43.         Case 3                            '以數(shù)字標(biāo)識聲調(diào)輸出拼音
    
44.             PinYinNumTones = strPinyin & strTones
    
45.     End Select
    
46. End Function
    
47. 
    

復(fù)制代碼

tmtony

老兄的代碼越來越成熟

tanhong

tmtony 發(fā)表于 2011-6-20 12:15
老兄的代碼越來越成熟

謝謝老大支持，不斷學(xué)習(xí)，不斷進(jìn)步……

tanhong

根據(jù)葉版的建議，對代碼做了改進(jìn)，減去了一個不必要的循環(huán)，如下：

1. Public Function PinYinNumTones(ByVal strPy As String, _
   
2.                                Optional OutputType As NotTonesPinyin = 1) As String
   
3. 
   
4.     Dim I           As Integer           '循環(huán)變量
   
5.     Dim strTones     As String            '聲調(diào)數(shù)字標(biāo)識
   
6.     Dim strPinyin    As String            '無聲調(diào)拼音
   
7. 
   
8.     Const TONESCHR = "āáǎàēéěèīíǐìōóǒòūúǔùǖǘǚǜ"
   
9.     Const NOTTONES = "aeiouv"
   
10. 
    
11.     '初始變量值
    
12.     strTones = 0
    
13.     strPinyin = strPy
    
14. 
    
15.     '獲得聲調(diào)數(shù)字碼
    
16.     For I = 0 To 23
    
17.         If InStr(1, strPy, Mid(TONESCHR, I + 1, 1)) > 0 Then
    
18.            '將無音標(biāo)拼音及聲調(diào)數(shù)值分別賦值給變量
    
19.            strPinyin = Replace(strPy, Mid(TONESCHR, I + 1, 1), Mid(NOTTONES, I \ 4 + 1, 1))
    
20.            strTones = I Mod 4 + 1
    
21.            GoTo ChrOutput  '替換完后跳出，以期提高速度
    
22.         End If
    
23.     Next
    
24. 
    
25. ChrOutput:
    
26. 
    
27.     '按要求輸出結(jié)果
    
28.     Select Case OutputType
    
29.         Case 1                            '替換不含聲調(diào)拼音
    
30.             PinYinNumTones = strPinyin
    
31.         Case 2                            '輸出聲調(diào)數(shù)字碼
    
32.             PinYinNumTones = strTones
    
33.         Case 3                            '以數(shù)字標(biāo)識聲調(diào)輸出拼音
    
34.             PinYinNumTones = strPinyin & strTones
    
35.     End Select
    
36. End Function
    

復(fù)制代碼