189 8069 5689
VB.NET 整型 i 转化为字符串 s , 字符串 s 转化为字符数组 CharArr :
在潞城等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供做网站、成都网站设计 网站设计制作按需定制网站,公司网站建设,企业网站建设,成都品牌网站建设,成都全网营销推广,成都外贸网站建设公司,潞城网站建设费用合理。
Dim i As Integer = 12345
Dim s As String
Dim CharArr As Char()
s = i.ToString()
CharArr = s.ToCharArray()
将 CharArr 数组反转:
Array.Reverse(CharArr)
最近我说明了用VB NET将字符串转换成字节数组的方法 如果你需要将一个字节数组转换成字符串 可以使用BitConverter ToString或Covert ToBase String方法 下面我提供实例说明如何用上两种方法进行转换
字节数组用法
如果你准备恢复用二进制格式保存的文本 在System Text命名空间中调用适当编码对象的GetString方法
使用System BitConverter类是将一个字节数组转换成字符串的最快捷的方法 这个类为基本数据类型和字节数组之间的转换提供方法 要使用这个方法 使用超载的ToString方法接受一个字节数组为参数 在这种情况下 字符串中包括字节数组的每一个十六进制格式的值 数值间用破折号隔开 使用字符串没有办法自动撤销转换 恢复原始的字节数组 查看列表A中的例子
Listing A
Private Sub ConvertByteArrayToString() Dim btText() As Byte = { } Dim strText As String strText = BitConverter ToString(btText) MessageBox Show(strText) End Sub 通过System Convert类的ToBase String和FromBase Stirng方法 利用Base 编码 也可以把字节数组转换成字符串 在Base 编码中 每个三字节的序列被转换为四个字节 每个Base 编码字符为值域中 个可能值中的一个 查看列表B中的例子
Listing B
Private Sub ConvertByteArrayToString() Dim btText() As Byte = { } Dim strText As String strText = Convert ToBase String(btText) MessageBox Show(strText) End Sub 以上两种方法都可以用来建立一个二进制数据表示法 记住 为了将一个字节数组恢复成真实的文本信息 你必须使用正确的编码类
lishixinzhi/Article/program/net/201311/11708
VB使用类型转换函数来实现强制将一个表达式转换成某种特定数据类型。
类型转换函数，每个函数都可以强制将一个表达式转换成某种特定数据类型。
语法
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)
CVar(expression)
CStr(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。
CBool 函数示例
本示例使用 CBool 函数来将一表达式转成 Boolean
值。如果表达式的结果为非零的值，CBool 返回 True；否则返回 False。
Dim A, B, Check
A = 5: B = 5 ' 设置变量初值。
Check = CBool(A = B) ' Check 的值为 True。
A = 0 ' 定义变量。
Check = CBool(A) ' Check 的值为 False。
CByte 函数示例
本示例使用 CByte 函数将一表达式转成 Byte。
Dim MyDouble, MyByte
MyDouble = 125.5678 ' MyDouble 为Double（双精度）。
MyByte = CByte(MyDouble) ' MyByte 值为 126。
...
CDate 函数示例
本示例使用 CDate 函数将字符串转换成
Date。一般说来，字符串格式的日期与时间硬编码（如示例中所示）并不好。较好的做法是使用日期原义表达式和时间的原义表达式（如
#2/12/1969#，#4:45:23 PM#）。
Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969" ' 定义日期。
MyShortDate = CDate(MyDate) ' 转换为 Date 数据类型。
MyTime = "4:35:47 PM" ' 定义时间。
MyShortTime = CDate(MyTime) ' 转换为 Date 数据类型。
看你的描述，既然Gb2312能取得中文，说明你收到的文字编码是Gb2312。
字符和数字却使用unicode编码，不正常。你可以把char数组中的00去掉，
再用gb2312转换就应该没问题了。
去掉就是把有用的字符向前移动。