vb.net 教程 4-7 文本文件编码 2
来源:互联网 发布:php文件加密 编辑:程序博客网 时间:2024/06/06 05:22
本节将用一个简单的例子来说明文本编码:
窗体设计如下:
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 教程 目录
阅读全文
0 0
- vb.net 教程 4-7 文本文件编码 2
- vb.net 教程 4-7 文本文件编码 1
- vb.net 教程 4-8 文本文件读写 2
- vb.net 教程 4-8 文本文件读写 4
- vb.net 教程 4-8 文本文件读写 1
- vb.net 教程 4-8 文本文件读写 3
- vb.net 教程 4-8 文本文件读写 5
- [VB.NET]如何识别文本文件的编码?
- vb.net 教程 12-4 msHtml 2
- vb.net读取文本文件函数
- VB.NET读写文本文件方法
- VB打开/保存任意编码格式文本文件
- VB.net编码规范
- VB.net 编码规范
- VB.net 编码规范
- VB.net编码规范
- VB.net 编码规范
- vb.net编码
- Netty入门介绍
- xjax和JQery
- Git常用指令
- 前端学习第二次-HTML标签说明
- ubuntu密钥登录教程
- vb.net 教程 4-7 文本文件编码 2
- C语言中的typedef
- Bootstrap进度条媒体对象和Well组件
- ios使用GCD来执行同步或异步串行、并行操作。
- 以此纪念逝去的时间,庆祝博客开通
- 起始篇-简介与MQTT服务器
- python输入以及比较逻辑运算符介绍(含笔记)
- 解决
- python爬虫--urllib