Convierta caracteres chinos en Easy Language a codificación decimal Unicode

Versión 2

. Biblioteca de soporte ePY

Subrutina para obtener código de ubicación de caracteres chinos, tipo de texto

. tipo, solo toma la primera palabra

. Byte alto de variable local, tipo entero

Byte bajo de variable local, tipo entero

. código de área, tipo entero

. Código de bits de variable local, tipo entero

Si es verdadero (tome la longitud de la cadena (_word) = 0)

Retorno (" 0")

. Si es verdadero final

Byte alto = bit AND (obtener código (_word, 1), 255)

Byte bajo = bit AND ( obtener código (_ palabra, 2), 255)

Código de área = byte alto - 160

Código de bits = byte bajo - 160

Volver (al texto (código de área × 100 + código de bits))