vb.net Cómo convertir caracteres chinos a la codificación GB2312, como convertir "Guangdong" a %B9%E3%B6%AB

'Codificación GBK (resultados separados por signo de porcentaje %)

Función pública GBKEncode(ByVal sInput As String) As String

Dim ret_ GBKEncode As String = ""

Dim i Como Entero

Dim startIndex Como Integer = 0

Dim endIndex Como Entero

Dim x() As Byte = System.Text.Text.TextByte = System.Text.TextByte = System.Text.TextByte = System.TextByteText encodingEncoding.Default.GetBytes(sInput) ' En vb2008, caracteres y las cadenas se almacenan en codificación Unicode

endIndex = x.Length - 1

For i = startIndex To endIndex

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

Siguiente

Devolver ret_GBKEncode

Función final

'GBK Decode

Función pública GBKDecode(ByVal sInput As String) As String

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

Dim ret_GBKDecode As String = ""

Atenuar sLen como entero = sInput. Dim n como entero = sLen\ 2

Dim sBytes(0 To n - 1) como byte

'Convertir a código de bytes

Para i como entero = 1 A n

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

Siguiente

'Convertir código de bytes a cadena

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

Devolver ret_GBKDecode

Finalizar función