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

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

窗体设计如下：

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教程目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

vb.net 教程 4-7 文本文件编码 2相关推荐

vb.net 教程 4-7 文本文件编码 1
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 经常上网的人有时候会发现出来的网页,上面的字居然不认识,这就是所谓的"乱码" ...
VB 按指定编码格式写入文本文件
代码如下: 'VB 按指定编码格式写入文本文件,默认GB2312编码. Private Sub SaveFile(FilePath As String, strText As String, Opt ...
VB.net小技巧——读取文本文件并显示到文本框中
VB.net小技巧--读取文本文件并显示到文本框中第一步,在工具箱添加OpenFileDialog控件第二步 openfiledialog 属性 filter设置为: 文本文件(*.txt)|*. ...
vb.net 教程 3-9 窗体编程串口组件2 SerialPort简介
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 在vb.net中操作串口,可以使用SerialPort组件,也可以直接使用System.IO.P ...
vb.net 教程 12-8 WebRequest 和 Webresponse 4-2 POST方式向网页发送数据
post的步骤比get要复杂, 1.将要发送的变量和值按照"变量1=值1&变量2=值2--"这样的方式写入文本 2.将文本按照网页编码转为字节数组 3.定义webreque ...
Python3批量转换文本文件编码
Python3批量转换文本文件编码 #-*- coding: utf-8 -*- try:from chardet.universaldetector import UniversalDetector ...
一个批量转换文本文件编码的程序(Python)
一个批量转换文本文件编码的程序(Python) #!/usr/bin/python import os,sys def convert( filename, in_enc = "GBK&qu ...
批量修改文本文件编码GB18030为UTF-8
批量修改文本文件编码GB18030为UTF-8 [root@localhost Desktop]# ./digui-gb18030-utf8.sh experiment digui-gb18030-u ...
Python 读取文本文件编码错误解决方案(未知文本文件编码情况下解决方案)
Python 读取文本文件编码错误解决方案(未知文本文件编码情况下解决方案) 参考文章: (1)Python 读取文本文件编码错误解决方案(未知文本文件编码情况下解决方案) (2)https://ww ...

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

vb.net 教程 4-7 文本文件编码 2相关推荐

最新文章

热门文章