Lenguaje simple ¿Cómo comparar el texto del cuadro de lista 2 con el texto del cuadro de lista 1, filtrar el texto diferente y enviar el mismo texto al cuadro de edición 1?

.Bibliotecas compatibles OPenGL

.Conjunto de ventanas de ensamblaje 1

.Subroutine_Button1_Clicked

Cuadro de edición 2 .Contenido = Filtro de caracteres (Cuadro de edición 1.Contenido, 0)

Cuadro de edición 3.Contenido = Filtro de caracteres (Cuadro de edición 1.Contenido, 1)

.Subrutina de filtrado de caracteres, tipo de texto, filtro eliminar tipos de caracteres especificados innecesarios. "Doble byte" y "un solo byte"

Parámetros El texto a filtrar, texto, el texto a filtrar. No puede estar vacío.

Parámetros: tipo de carácter a devolver, entero, tipo de carácter a devolver después del filtrado. 0 representa un carácter de un solo byte, todos los demás valores son caracteres de doble byte

. Recuento de variables locales, número entero

. Valor de retorno de variable local, valor lógico

. Texto de un solo carácter variable local, tipo de texto

. Texto de doble carácter de variable local, tipo de texto

Inicio de bucle ()

Valor de retorno = si es un carácter de doble byte (texto a filtrar, recuento - 1)

. Comience a juzgar (valor de retorno = verdadero)

Texto de carácter de doble byte = texto de carácter de doble byte + obtenga la parte media del texto (texto a filtrar, recuento, 2)

Recuento = Recuento + 2

.Valor predeterminado

Texto de un solo carácter = Texto de un solo carácter + Obtener centro de texto (texto a filtrar, recuento, 1)

.Si es verdadero (buscar texto (texto a filtrar, # salto de línea, contar, falso) = contar)

Texto de doble carácter = Texto de doble carácter + # salto de línea

.End si es cierto

Contar = Contar + 1

.El juicio termina

. Fin del ciclo (recuento

. Inicio del juicio (tipo de carácter a devolver = 0)

Retorno (texto de un solo carácter)

.Valor predeterminado

Devolución (texto de dos caracteres)

.Fin del juicio.