Office中国论坛/Access中国论坛

标题: [求助]怎样取得汉字（主要为繁体）的拼音. [打印本页]

作者: xthand 时间: 2006-7-7 19:01
标题: [求助]怎样取得汉字（主要为繁体）的拼音.
RT

在此先谢谢各位了，想找个字典可是没有找到，哪位有的话，给个连接，或发个给我xthandsome0310@163.com
有没有更好的方法，大伙也可以研究一哈子

作者: xthand 时间: 2006-7-10 18:38

没人理我。。。。

作者: hi-wzj 时间: 2006-7-11 01:32
本站有这样的代码的,自己仔细找找.

作者: lirong 时间: 2006-7-11 15:56
看看這個是否能幫到你

Function CheckCode(StrChk As String) As String
   '判斷是否包含漢字
   StrChk = VBA.StrConv(StrChk, vbNarrow)
   If (Len(StrChk) <> LenB(StrConv(StrChk, vbFromUnicode))) = False Then
      CheckCode = "English/Data"
      Exit Function
   End If

   '判斷文本內碼
   For I = 1 To Len(StrChk)
      F = Hex(Asc(Mid(StrChk, I, 1)))
      L1 = CInt("&H" + Mid(F, 1, 2))
      R1 = CInt("&H" + Mid(F, 3, 2))
      'GBCode 1>A0H - FEH
      'BIG5Code  1>80H - FFH  2>00H-FFH
      'MsgBox Val("&H ")
      If R1 < 127 Then
         CheckCode = "Big5"
         Exit Function
      End If
   Next
   CheckCode = "GB"
End Function

作者: xthand 时间: 2006-7-11 19:04
首先感谢两位的回答。我也在本站搜索过，大多是取汉字首拼音，要不就是取得GB2312里的汉字的拼音。

自已在试试

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)