Determinar fácilmente si un fragmento de texto contiene caracteres chinos

Hola cartel, basándose en la pregunta que hiciste, Yundousi lo pensó un rato y luego te dio la siguiente respuesta.

Entiendo que tu problema es detectar si el texto contiene caracteres chinos.

Así que te proporciono un programa.

Lo único que tienes que hacer es llamar a este método con el texto que desees. Aquí tienes un ejemplo

. Versión 2

Soporta la biblioteca OPenGL

. Si es verdadero (búsqueda de caracteres chinos (editbox1.content) = verdadero)

Cuadro de mensaje ("El texto existe en chino", 0,)

.Fin si es verdadero

. Subrutina de búsqueda de caracteres chinos, lógica, devuelve verdadero = existen caracteres chinos, devuelve falso = caracteres chinos no existen

. Parámetros, tipo de texto, este código lo proporciona Yuntuxi. www.yundousi.com

.Variable local i, entero

.Suma de variable local

suma = 1

.La primera Bucle de conteo (obtener longitud del texto (parámetro), i)

. Si (es un carácter de doble byte (tome la parte media del texto (parámetro, suma, 2), 0) = verdadero)

suma = suma + 2

return ( verdadero)

. En caso contrario

suma = suma + 1

.if fin

. El ciclo de conteo termina ()

Devuelve (falso)

.