Caracteres chinos de Easy Language para código fuente Unicode, ¡quién puede darme uno! ! ! ! ! ! ! !
.Soporte de biblioteca commobj
. Subprogram_button1_clicked
Cuadro de edición 2.content = conjunto de bytes a texto hexadecimal (A2W (cuadro de edición 1.contenido))
Subprograma A2W, conjunto de bytes
. Parámetro Parameter_AnsiText, tipo de texto
. Parámetro Parameter_CodePage, entero, anulable, predeterminado: #CP_ACP = 0
. Variable local local_Ansi_length, entero
. Variable local local_Unicode_length, entero
. Variable local ret, conjunto de bytes
Local_AnsiLength = FetchTextLength(parameter_AnsiText) + 1
Local_UnicodeLength = MultiByteToWideChar(parameter_CodePage, 0, parámetro_AnsiText, local_AnsiLength, ret, 0) x 2
ret = obtiene el conjunto de bytes en blanco (local_Unicode_length)
. Si es verdadero (MultiByteToWideChar (Parameter_CodePage, 0, Parameter_AnsiText, Local_AnsiLength, ret, Local_UnicodeLength) = 0)
devuelve ({ 0, 0 })
. Si es verdadero, final
devuelve (ret)
. Subrutina Byteset a texto hexadecimal, tipo de texto
. Parámetros Byteset, conjunto de bytes
. Variable local Variable, entero
Texto temporal de variable local, tipo de texto
Longitud de variable local, entero
. p>
p>
.Variable local a, entero
Longitud = longitud del conjunto de bytes
. Contar el primer bucle (longitud, variable)
texto temporal = obtener texto hexadecimal (conjunto de bytes [variable])
texto. Add(" ")
Text.Add (obtener texto duplicado (2 - obtener longitud del texto (texto temporal), "0")
Text.add(texto temporal) p> p>
.Si es verdadero (variable % 16 = 0) '16 bytes por línea
Text.Add (# nueva línea)
.Si es verdadero fin
Manejar evento ()
.Contar fin de bucle ()
Regresar (comando text.DLLMultiByteToWideChar, entero, "kernel32.dll", "MultiByteToWideChar", cadena de caracteres multimedia asignado a una cadena comodín
. Página de códigos de parámetro, entero
. Indicador de parámetro, entero
Texto de doble byte del parámetro
. Parámetro de longitud de texto de bytes, número entero
. Parámetro de texto de caracteres anchos, grupo de bytes
.