[求助]怎样取得汉字（主要为繁体）的拼音.

xthand

RT

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

xthand

没人理我。。。。

hi-wzj

本站有这样的代码的,自己仔细找找.

lirong

看看這個是否能幫到你

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

首先感谢两位的回答。我也在本站搜索过，大多是取汉字首拼音，要不就是取得GB2312里的汉字的拼音。

自已在试试