vb.net 教程 4-7 文本文件编码 2

旧城等待， 2022-09-10 09:26 91阅读 0赞

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。  
本节将用一个简单的例子来说明文本编码：

窗体设计如下：

comboBox中的数据：

请引用 System.Text

Imports System.Text

当按下“生成”按钮时的代码：

Private Sub btnChange\_Click(sender As Object, e As EventArgs) Handles btnChange.Click  
        Dim enc As Encoding  
        Select Case cbEncode.Text  
            Case "ASCII"  
                enc = Encoding.ASCII  
            Case "Unicode"  
                enc = Encoding.Unicode  
            Case "UTF32"  
                enc = Encoding.UTF32  
            Case "UTF7"  
                enc = Encoding.UTF7  
            Case "UTF8"  
                enc = Encoding.UTF8  
            Case "GB2312"  
                enc = Encoding.GetEncoding("gb2312")  
            Case "big5"  
                enc = Encoding.GetEncoding("big5")  
        End Select  
   
   
        Dim byteSource() As Byte = enc.GetBytes(txtSource.Text)  
   
        Dim strEnc As String = ""  
        For i As Integer = 0 To byteSource.Length - 1  
            strEnc &= Convert.ToString(byteSource(i), 16).ToUpper & " "  
        Next  
        txtDest.Text &= "编码方式：" & enc.EncodingName & "编码结果：" & strEnc & vbCrLf  
    End Sub  
运行结果：

可以看到ASCII不支持繁体 "無" 字，返回的是3F（十进制：63），查找ASCII表，可知，返回的是“?”。

同样，Big5不支持简体的“无”字，返回的也是3F。

简单的测试将字节数组编码成字符：

Private Sub Button1\_Click(sender As Object, e As EventArgs) Handles Button1.Click  
        Dim byteSource() As Byte  
        ReDim byteSource(1)  
        '無  
        byteSource(0) = 181  '=>B5  
        byteSource(1) = 76   '=>4C  
   
        Dim enc As Encoding  
        enc = Encoding.GetEncoding("big5")  
        Dim strDest As String  
        strDest = enc.GetString(byteSource)  
        txtSource.Text = strDest  
    End Sub由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参看[vb.net教程][vb.net]目录  
————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/