<<< 返回 access911.net 编程静态资料库索引页

如何解决中文、汉字、文字转拼音的问题?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2005-7-4  浏览人次:1696


专题地址:http://access911.net/fixhtm/72FAB01E1BDCECF3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何解决中文、汉字、文字转拼音的问题?《函数》

 


方法一:


可以用 ASC 得到汉字的 ASCII 码,然后判断其所在的区间。
Function CreatePYTalbe()
    Dim strSql As String
    Dim strTableName As String
    Dim Conn As ADODB.Connection
    Set Conn = CurrentProject.Connection
    
    
    strTableName = "Py6"
    Conn.BeginTrans
    If IsNull(DLookup("name", "msysobjects", "name='" & strTableName & "' and type=1")) = True Then
        strSql = "create table " & strTableName & "(ID AUTOINCREMENT(1,1),PinYin text(15),ASCcode LONG)"
        Conn.Execute strSql
    End If
    
    Dim strSqls() As String
    
    
    
    
    
    '-----.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FAB01E1BDCECF3.htm

 


上一篇:EXCEL如何进行行列转换、转置

下一篇:XQuery查询语言及应用实例分析

2017年2月22日生成静态资料