Red de conocimiento informático - Aprendizaje de código fuente - Cómo convertir el contenido del cuadro de edición a Unicode en un lenguaje sencillo, se requiere el código fuente

Cómo convertir el contenido del cuadro de edición a Unicode en un lenguaje sencillo, se requiere el código fuente

.¿Versión? ¿Subrutina? Tools_Encoding_Conversion,?Tipo de texto

Parámetros: texto, text_type,?,?El texto a convertir

. Parámetros ? Código fuente, ? Entero, ?, ? Código fuente, use #CP para buscar o ingrese números enteros directamente

. ¿parámetro? Código de objeto, ? entero, ?, ? codificación de destino, use #CP para buscar o ingrese el número entero directamente

. Variable local ?Len, ? Entero

. Variable local ?r, ? entero

. ¿Variable local? Texto de destino,? Texto

Variable local? Texto

Len?=? , 0 )? ×?2

szUnicode?=?¿Obtener texto en blanco? (Len)

'?Convertir a UNICODE

Subrutina gbk2utf8, tipo de texto

. Texto de parámetro, textual

Devuelve ?(tool_encoding_conversion?(textual, ?936, ?65001))

Subrutina: Convertir gbk a utf8, byteset

. Tipo de texto de parámetro, textual

Retorno (¿a byteset? (tipo de texto. (textual,?936,?65001)))

Subrutina: utf8 a gbk, tipo de texto

. Parámetros: byteset,?byteset

Return?(tool_encoding_conversion?(convertir a texto

.(byteset),?65001,?936))

.DLL comandos ?_Generar, ? Integer, ?, ?"WideCharToMultiByte", ?, ?WideCharToMultiByte

.Parameters?CodePage, ?Integer, ?, ?CP_ACP?CP_UTF8

.Parameters ? Parámetro lpWideCharStr, tipo de texto

. Parámetros cchWideChar, entero

. Parámetros ?lpMultiByteStr, tipo de texto

. Parámetros ?cbMultiByte, entero

. Parámetros ?lpDefaultChar, entero

. Parámetros?lpUsedDefaultChar,?Integer

.Comandos DLL?_CharacterCode,?Integer,?,?"MultiByteToWideChar",?,MultiByteToWideChar

.Parámetros?CodePage,?Integer,?, ? CP_ACP?CP_UTF8

.¿Parámetros? Parámetro lpWideCharStr, tipo de texto

. Parámetros cchWideChar, entero

. Parámetros ?lpMultiByteStr, tipo de texto

.

Parámetros ?cbMultiByte, ? Integer

.Comando DLL ?Comando DLL ?cbMultiByte, ? Integer, ?, "WideCharToMultiByte", ?, ?WideCharToMultiByte

. ?CP_ACP?CP_UTF8

¿Parámetros? Parámetro lpWideCharStr, tipo de texto

. Parámetros cchWideChar, entero

. Parámetros ?lpMultiByteStr, entero

. Parámetro ?cbMultiByte, ? Entero

. Parámetro ?lpDefaultChar, ?Entero

. ?Entero,?,?"MultiByteToWideChar",?,?MultiByteToWideChar

.Parámetros?CodePage,?Entero,?,?CP_ACP?CP_UTF8

. Parámetro lpWideCharStr, tipo de texto

. Parámetros cchWideChar, entero

. Parámetros ?lpMultiByteStr, entero

. Parámetros?cbMultiByte,?Integer

Si desea que el cuadro de edición admita Unicode, utilice la versión Unicode de la clase de interfaz BlackMoon BlackMoon

De lo contrario, EasyLanguage no admite controles Unicode

Si simplemente está convirtiendo a Unicode (-gt; UTF-8), eche un vistazo al código anterior.