简体转换繁体

RuiLei 2021-08-27 原文

VB.Net StrConv 函式介紹

Public Shared Function StrConv(ByVal Str As String, _
ByVal Conversion As Microsoft.VisualBasic.VbStrConv, _
Optional ByVal LocaleID As Integer) As String

參數
Str : 必要項。所要轉換的 String 運算式。
Conversion : 必要項。Microsoft.VisualBasic.VbStrConv 成員。指定所要執行的轉換型別的列舉值。
LocaleID : 選擇項。如果不同於系統 LocaleID 值，則使用此 LocaleID 值 (系統 LocaleID 值是預設值)。

Conversion 引數設定包括：

列舉成員	說明
VbStrConv.None	不執行轉換
VbStrConv.LinguisticCasing	使用大小寫的語言規格，而不是檔案系統 (預設值)。只有配合大寫及小寫時才有效。
VbStrConv.UpperCase	VbStrConv.UpperCase
VbStrConv.LowerCase	VbStrConv.LowerCase
VbStrConv.ProperCase	VbStrConv.ProperCase
VbStrConv.Wide*	VbStrConv.Wide*
VbStrConv.Narrow*	VbStrConv.Narrow*
VbStrConv.Katakana**	VbStrConv.Katakana**
VbStrConv.Hiragana**	VbStrConv.Hiragana**
VbStrConv.SimplifiedChinese*	VbStrConv.SimplifiedChinese*
VbStrConv.TraditionalChinese*	VbStrConv.TraditionalChinese*

實際運用:
透過 StrConv 函式來進行繁體字及簡體字的相互轉換

Dim strData As String

\’ 將繁體中文字轉換成簡體中文
\’\’big5转gb2312
        Dim str As String = TextBox1.Text
        Dim gb2312 As String = Encoding.Default.GetString(Encoding.Convert(Encoding.GetEncoding(950), Encoding.GetEncoding(936), Encoding.Default.GetBytes(str)))
        TextBox2.Text = StrConv(gb2312, VbStrConv.SimplifiedChinese)

\’ 將簡體中文字轉換成繁體中文
\’\’gb2312转big5
        Dim str As String = TextBox1.Text
        str = StrConv(str, VbStrConv.TraditionalChinese)
        TextBox2.Text = Encoding.Default.GetString(Encoding.Convert(Encoding.GetEncoding(936), Encoding.GetEncoding(950), Encoding.Default.GetBytes(str)))