Cómo convertir caracteres chinos a codificación gbk en vb
El método de referencia es el siguiente:
Los dos códigos VB en la superficie se convierten a UTF-8 (UTF-8(UTF8EncodeURI) y GB 2312 (GBK Encoderi).
Subcomando privado 1_click()
Depurar impresión (UTF8EncodeURI("caracteres chinos"))
Depurar ))<. /p>
Conector final
Función UTF8EncodeURI(szInput)
Dim wch, uch, szRet
Tamaño x
Dim nAsc, nAsc2, nAsc3
Si szInput = " "entonces
UTF8EncodeURI = szInput
Salir de la función
Si...entonces end
Para x = 1 a Len(szInput)
wch = Mid(szInput,x,1)
nAsc = AscW(wch)
p>Si nAsc & lt0 entonces nAsc = nAsc + 65536
Si (nAsc & ampHFF80) = 0
szRet = szRet & ampwch
other
if (nAsc & & ampHF000) = 0
uch = " % " & amp hex ((nAsc \ 2 ^ 6)) o & ampHC0) y amp Hexadecimal (nAsc y & ampH3F o & ampH80)
szRet = szRet & ampUniversity College Hospital
Otro
uch = " % " & & hex((nAsc\2^ 12)&&HE0)&&""&_
hex((nAsc\2^6)&&H3F o&H80) &" " &_
Hex (nAsc y &H3F o &H80)
szRet = szRet &University College Hospital
Terminará si...
Terminará si...
Entonces
UTF8EncodeURI = szRet
Finalizar función
Función GBKEncodeURI(szInput)
Atenuar mientras yo
Atenuar x() como bytes
Dim szRet como cadena
szRet = " "
x = StrConv(szInput, vbFromUnicode)
Para i = LBound (x) a UBound(x)
szRet = szRet & amp" " & amp hexadecimal(x(i))
Entonces
GBKEncodeURI = szRet
Finalizar función