读书人

数据转换有关问题

发布时间: 2012-02-02 23:57:14 作者: rapoo

数据转换问题
Dim var(1) As Byte
Dim v() As Byte
Dim i As Integer
Dim uni As New System.Text.UnicodeEncoding
Dim utf8 As New System.Text.UTF8Encoding
var(0) = 248
var(1) = 8
'var(2) = 130
Te.Text = System.Text.UnicodeEncoding.UTF8.GetString(var)
v = System.Text.UnicodeEncoding.UTF8.GetBytes(Te.Text)
Tt.Text = System.Text.ASCIIEncoding.Default.ToString
Tx.Text = " "
For i = LBound(v) To UBound(v)
Tx.Text = Tx.Text & Hex(v(i)) & " "
Next
当Byte值大于127时就无法转换,而换成
Te.Text = System.Text.UnicodeEncoding.Default.GetString(var)
v = System.Text.UnicodeEncoding.Default.GetBytes(Te.Text)
Tt.Text = System.Text.ASCIIEncoding.Default.ToString
时,如上所示的数据时就转换错误
谢谢了

[解决办法]
你可以用convert.tobase64string和convert.frombasestring试试

读书人网 >VB Dotnet

热点推荐