Programación de inversión digital

¿Conversión de codificación de caracteres?

1. Caracteres y GB 2312 (subconjunto GBK):

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

Dim ret_GBKEncode As String = " "

Marcar I como un número entero

Dim startIndex es un número entero = 0

Dim endIndex es un número entero

Dim x() como byte = sistema. En vb2008, la codificación de texto. Los caracteres y cadenas predeterminados de getbytes(sinput) se almacenan en codificación Unicode.

endIndex = x.Length - 1

Para i = startIndex a endIndex

ret _ GBKEncode amp= " " hexadecimal (x( i))

Luego

Devuelve ret_GBKEncode

Finalizar función

Decodificación GBK

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

sInput = sInput. Reemplazar(" ", "")

Dim ret_GBKDecode As String = " "

Dim sLen As Integer = sInput. Longitud

Dim n como entero = sLen \ 2

Mostrar sBytes (0 a n - 1) como bytes

Convertir a código de bytes

p>

Para números enteros para I = 1 a n

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

Luego

Convierte el código de bytes en cadena.

ret_GBKDecode = System. encoding. getstring(sBytes)

Devuelve ret_GBKDecode

Función final

2. La cadena Unicode es UTF-8.

Texto importado

Función pública bytes(ByVal strData As String)Como Byte()<. /p>

Dim bytes()As Bytes

Bytes = codificación UTF8.GetBytes(strData)

Devolver bytes

Finalizar función

Aquí se pueden introducir varios tipos