这个自动输出拼音码（声母）的函数，能改成繁体字也能使用吗

Question

本帖最后由 bcrun 于 2011-02-11 11:29:48 编辑

Answer 1

有点思路了先将繁体转为简体，然后再用上面的函数转换
http://blog.blueshop.com.tw/jeff377/archive/2007/10/17/52953.aspx

Answer 2

在 VB.NET 有個蠻方便的 StrConv 方法，可以輕易做繁簡中文轉換動作。 
1 ''' <summary>   
2 ''' 將繁體中文字轉換成簡體中文。   
3 ''' </summary>   
4 ''' <param name="Text">文字內容。</param>   
5 Public Shared Function Big5ToGb(ByVal Text As String) As String  
6     ' 將繁體中文字轉換成簡體中文，LocaleID 設為 2052   
7     Return StrConv(Text, VbStrConv.SimplifiedChinese, 2052)   
8 End Function  
9   
10 ''' <summary>   
11 ''' 將簡體中文字轉換成繁體中文。   
12 ''' </summary>   
13 ''' <param name="Text">文字內容。</param>   
14 Public Shared Function GbToBig5(ByVal Text As String) As String  
15     ' 將簡體中文字轉換成繁體中文，LocaleID 設為 2052   
16     Return StrConv(Text, VbStrConv.TraditionalChinese, 2052)   
17 End Function  
 view plain | print | copy to clipboard | ? 
    ''' <summary>
    ''' 將繁體中文字轉換成簡體中文。
    ''' </summary>
    ''' <param name="Text">文字內容。</param>
    Public Shared Function Big5ToGb(ByVal Text As String) As String
        ' 將繁體中文字轉換成簡體中文，LocaleID 設為 2052
        Return StrConv(Text, VbStrConv.SimplifiedChinese, 2052)
    End Function    ''' <summary>
    ''' 將簡體中文字轉換成繁體中文。
    ''' </summary>
    ''' <param name="Text">文字內容。</param>
    Public Shared Function GbToBig5(ByVal Text As String) As String
        ' 將簡體中文字轉換成繁體中文，LocaleID 設為 2052
        Return StrConv(Text, VbStrConv.TraditionalChinese, 2052)
    End Function

Answer 3

提供的StrConv这个函数，完全可以解决简繁体的转换问题。下面是一个简繁体的转换的函数，可以实现简体到繁体、繁体到简体的相互转化。 '******   简繁体互换   GB--> Unicode--> BIG5   
                                Or   BIG5--> Unicode--> GB     ***************** 
'参数sStr为需要转换的文本 
'参数iConver为要转化的类型，为1时表示繁体到简体的转换，为2时表示简体到繁体的转换 
Function   GBBIG5(sStr   As   String,   iConver   As   Integer)   As   String 
On   Error   Resume   Next 
        Dim   STR 
        If   iConver   =   1   Then   'BIG5--> GB 
                STR   =   StrConv(sStr,   vbFromUnicode,   &H804) 
                GBBIG5   =   StrConv(STR,   vbUnicode,   &H404) 
        ElseIf   iConver   =   2   Then   'GB--> BIG5 
                STR   =   StrConv(sStr,   vbFromUnicode,   &H404) 
                GBBIG5   =   StrConv(STR,   vbUnicode,   &H804) 
        End   If End   Function 

Answer 4

这个倒是很值得学习！顶楼主upupupupupupupupupupupupupupupupupup

Answer 5

本帖最后由 bcrun 于 2011-02-11 11:29:49 编辑