请各位老师看看下面的例子如何批量生成没有音标的拼音

yanwei82123300

请各位老师看看下面的例子如何批量生成没有音标的拼音
我想将表1中的词语批量添加没有音标的拼音，请问帮助看看，谢谢

fan0217

这个或许有帮助

yanwei82123300

fan0217 老师能给修改一下例子吗？谢谢

yanwei82123300

在论坛里找了个例子，在查询里使用这个自定义函数
例子: aa:HzTPy([词语])
查询运行结果是这样：
姓名        aa
张晔        zhangye
华朵        huaduo
九牛一毛        jiuniuyimao

如何将拼音进行“”分隔开，谢谢
'调用方法：
'HzTPy(Hz As String, Optional Sep As String = "", Optional ShowNotation As Boolean = True, Optional ShowInitialOnly As Boolean, Optional ShowOnlyOneChar As Boolean = True) As String
'                     参数名                       参数类型            说明
'第1个参数   Hz                                字符型              为汉字字符串
'第2个参数   Sep                             字符型，可选    设定拼音间隔字符，默认为空（""）
'第3个参数   ShowNotation              布尔型，可选    设定是否显示注音符号，默认显示          注意如果值为TRUE,带音标，false不带音标
'第4个参数   ShowInitialOnly            布尔型，可选    设定是否仅显示拼音首字，默认显示全部
'第5个参数   ShowOnlyOneChar     布尔型，可选    设定是否仅显示拼音首字母("zh"显示为"z")，默认只显示首字母

Public Function HzTPy( _
        Hz As String, _
        Optional Sep As String = "", _
        Optional ShowNotation As Boolean = False, _
        Optional ShowInitialOnly As Boolean, _
        Optional ShowOnlyOneChar As Boolean = True) As String
    Dim MyCls As sgr
    Set MyCls = New sgr          '创建类
    If Sep <> "" Then
        MyCls.Seperator = Sep
        MyCls.UseSeperator = True
    End If
    MyCls.InitialOnly = ShowInitialOnly
    MyCls.OnlyOneChar = ShowOnlyOneChar
    HzTPy = MyCls.GetPinYin(Hz)
    If Not ShowNotation Then HzTPy = MyCls.AdjustPhoneticNotation(HzTPy, pnNoNotation)
    Set MyCls = Nothing            '释放类
End Function

fan0217

yanwei82123300 发表于 2017-6-11 15:59
fan0217 老师能给修改一下例子吗？谢谢

尝试了下，不大会写VBA代码了。

yanwei82123300

请各位老师帮助看一下，谢谢了

yanwei82123300

请各位老师给看看谢谢!

Henry D. Sy

yanwei82123300 发表于 2017-6-12 08:02
请各位老师给看看谢谢!

试试这样看看
增加自定义函数Adj

1. <div><font style="background-color: rgb(255, 255, 255);">Public Function Adj(py As String) As String</font></div><div><font style="background-color: rgb(255, 255, 255);">    Dim CNChr As New Charter</font></div><div><font style="background-color: rgb(255, 255, 255);">    CNChr.UseSeperator = True
   
2.     CNChr.Seperator = " "</font></div><div><font style="background-color: rgb(255, 255, 255);">    If Not IsNull(py) Then
   
3.         Adj = CNChr.GetPinYin(py)
   
4.         Adj = CNChr.AdjustPhoneticNotation(Adj, False)
   
5.     Else
   
6.         Adj = ""
   
7.     End If</font></div><div><font style="background-color: rgb(255, 255, 255);">End Function</font></div>

复制代码

查询中直接调用

1. SELECT 表1.姓名, Adj([姓名]) AS aa
   
2. FROM 表1;
   
3. 
   

复制代码

Henry D. Sy

重发一下(上面乱了)

1. Public Function Adj(py As String) As String
   
2. 
   
3.     Dim CNChr As New Charter
   
4. 
   
5.     CNChr.UseSeperator = True
   
6.     CNChr.Seperator = " "
   
7. 
   
8.     If Not IsNull(py) Then
   
9.         Adj = CNChr.GetPinYin(py)
   
10.         Adj = CNChr.AdjustPhoneticNotation(Adj, False)
    
11.     Else
    
12.         Adj = ""
    
13.     End If
    
14. 
    
15. End Function

复制代码

yanwei82123300

运行查询显示系统错误"run-time error '13'" type mismatch