¿Cómo utilizar Easy Language para convertir el formato GB2312 a utf-8 en el Bloc de notas?

Lo siguiente debería venir con una biblioteca, pero no es necesaria. Esto puede reducir efectivamente el tamaño del programa Easy Language

Versión 2

Subrutina _Escribir texto codificado en utf8<. / p>

Escribir en archivo ("c:/a.txt", en byteset (gbk a utf8 ("prueba aquí"))'Cambiar a tu propósito

. Subrutina gbk a utf8, Tipo de texto

. Parámetros tipo de texto, tipo de texto

Retorno (tool_encoding_conversion (tipo de texto, 936, 65001))

texto, Convertir. el texto especificado en el parámetro 1 desde la codificación especificada en el parámetro 2 hasta la codificación especificada en el parámetro 3

Texto de parámetro, tipo de texto, el texto a convertir

.

Variable local Len, entero

Variable local r, entero

Variable local targetText, tipo de texto

. >

Len = _Obtener la longitud de codificación de destino (fuente, 0, texto, -1, 0, 0) × 2

szUnicode = _Obtener el espacio en blanco (Len)

' Convertir a UNICODE

_Codificación de caracteres (fuente, 0, texto, -1, szUnicode, Len) × 1

.szUnicode, Len)

Len = _Encoding Conversión (Codificación de destino, 0, szUnicode, -1, 0, 0, 0, 0)

Texto de destino = Toma texto en blanco (Len)

' Convertir a codificación de destino

_Generate (Codificación de destino, 0, szUnicode, -1, Texto de destino, Len, 0, 0)

Devuelve (Texto de destino)

.DLL comando_Generar, entero , , "WideCharToMultiByte", , WideCharToMultiByte

.Parámetro CodePage, entero, , CP_ACP CP_UTF8

.Parámetro dwFlags, entero

. Parámetro lpWideCharStr, tipo de texto

. Parámetros cchWideChar, entero

. Parámetro lpMultiByteStr, tipo de texto

.

Parámetro cbMultiByte, entero

. Parámetros lpDefaultChar, entero

. Comando DLL _CharacterCode, entero, , "MultiByteToWideChar", , MultiByteToWideChar

Parámetro CodePage, entero, CP_ACP CP_UTF8

. Parámetro lpWideCharStr, tipo de texto

. Parámetros cchWideChar, entero

. Parámetro lpMultiByteStr, tipo de texto

. Comando DLL _CodeConversion, entero, , "WideCharToMultiByte", , WideCharToMultiByte

Parámetro CodePage, entero, CP_ACP CP_UTF8

. Parámetro lpWideCharStr, tipo de texto

. Parámetros cchWideChar, entero

. Parámetro lpMultiByteStr, entero

. Parámetro cbMultiByte, entero

. Parámetros lpDefaultChar, entero

. Parámetro lpUsedDefaultChar, entero

.DLL command_FetchTargetCodeLength, entero, "MultiByteToWideChar", MultiByteToWideChar

Parámetro CodePage, entero, CP_ACP CP_UTF8

. , entero

. Parámetro lpWideCharStr, tipo de texto

. Parámetros cchWideChar, entero

. Parámetro lpMultiByteStr, entero

. Parámetro cbMultiByte, entero

.