gb2312>unicode>utf8， 以及逆轉的方法'>VB.net 字符轉換問題 字符（漢字、數(shù)字、字母、符號）>gb2312>unicode>utf8， 以及逆轉的方法

字符編碼轉換嗎?

成都創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設、高性價比云夢網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式云夢網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設找我們，業(yè)務覆蓋云夢地區(qū)。費用合理售后完善，十年實體公司更值得信賴。

1.字符與gb2312(gbk的子集)：

Public Function GBKEncode(ByVal sInput As String) As String

Dim ret_GBKEncode As String = ""

Dim i As Integer

Dim startIndex As Integer = 0

Dim endIndex As Integer

Dim x() As Byte = System.Text.Encoding.Default.GetBytes(sInput) '字符以及字符串在vb2008中都是以unicode編碼存儲的

endIndex = x.Length - 1

For i = startIndex To endIndex

ret_GBKEncode = "%" Hex(x(i))

Next

Return ret_GBKEncode

End Function

'GBK解碼

Public Function GBKDecode(ByVal sInput As String) As String

sInput = sInput.Replace("%", "")

Dim ret_GBKDecode As String = ""

Dim sLen As Integer = sInput.Length

Dim n As Integer = sLen \ 2

Dim sBytes(0 To n - 1) As Byte

'轉化為字節(jié)碼

For i As Integer = 1 To n

sBytes(i - 1) = CByte("H" sInput.Substring(2 * i - 2, 2))

Next

'將字節(jié)碼轉化為字符串

ret_GBKDecode = System.Text.Encoding.Default.GetString(sBytes)

Return ret_GBKDecode

End Function

2.Unicode字符串為UTF-8

Imports System.Text

Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()

Dim bytes() As Byte

bytes = Encoding.UTF8.GetBytes(strData)

Return bytes

End Function

'這里可以類推出好幾種。

VB.NET中如何將一個轉化為字符串，并取它的每一個字符

VB.NET 整型 i 轉化為字符串 s , 字符串 s 轉化為字符數(shù)組 CharArr :

Dim i As Integer = 12345

Dim s As String

Dim CharArr As Char()

s = i.ToString()

CharArr = s.ToCharArray()

將 CharArr 數(shù)組反轉:

Array.Reverse(CharArr)

vb.net 16進制數(shù)字轉換為字符串

把字符串“12341168C5B7”轉換為16進制數(shù)存為string型

用shuzi=Convert.ToInt32("12341168C5B7",16)

就ok了。

反之用 shuzi.ToString("X")就行了。

給分?。?！

12341168C5B7轉換成10進制數(shù)就是20014839678391。。

而int32的最大值為2,147,483,647。。所以產生錯誤。

所以要用int64，它的最大值為9,223,372,036,854,775,807。也就是16位十六進制數(shù)0X7FFFFFFFFFFFFFFF。

難道還有比F靠后的數(shù)？？？？？？

VB.NET中字符串倒序的問題

好象有個StrReverse函數(shù)是直接反轉字符串的吧..

我平時用的是VB6.但是.NET中應該也是可以用MID的

你注意看FOR 是從len-1到0的..而mid中是不允許出現(xiàn)0的..

你看看MID運行不了時,是不是返回I是0的時間

改成:

For i = Len(sstr) To 1 Step -1

試試了?