Problema de extracción de caracteres de texto en lenguaje simple

.Versión 2

.Cuadro de texto, tipo de texto

. ¿Variables locales? Texto, tipo de texto, "2"

¿Variable local? Consejo, tipo de texto

cuadro de texto =?"ahfx123456jvxdhji19880719"? +?"ahfx123456jvxdhji19880719"

'?Cuadro de texto =?¿Para enviar texto? (¿Leer archivo? ("D:\text.txt"))

¿Texto? =?¿Dividir texto? (Cuadro de texto, #salto de línea, #)

.If (tomar la longitud del texto)

¿Texto?(Texto[1])?>?20)

Cuadro de edición 1.content = ?¿Obtener el contenido en el lado izquierdo del texto? (¿texto? [1],?6)

Cuadro de edición 2. ¿Tomar la parte media del texto? (¿texto? [1],?7,?6)

Cuadro de edición 3. ¿Tomar el punto central del texto? (¿texto? [1],?13,?8)

Cuadro de edición 4. ¿Tomar el lado derecho del texto? (¿texto?[1],?¿Obtener la longitud del texto?(texto?[1])?-?20)

. En caso contrario

Infobox? ("No hay suficientes bits", ?0, ?)

Devuelve ?()

.Si finaliza

Preguntar ? = ?""

. Si es verdadero, ¿devuelve?(¿texto? [1]? ≠? texto? [2])

Determine la posición inicial de "..." (cuadro de edición 1. ¿Contenido? ≠?Tome el ?). (¿texto? [2], ?6)) en el lado izquierdo del texto

Consejo = ?"Editar cuadro 1"

. ¿juez? (editbox2.content?≠?¿Obtener la parte media del texto? (¿texto? [2],?7,?6))

Preguntar =?Preguntar? ?"Editar cuadro 2"

. ¿juez? (Editar cuadro 3. ¿Contenido? ≠? ¿Tomar el centro del texto? (¿texto? [2],? 13,? 8))

¿Preguntar =? ?"Editar cuadro 3"

. ¿juez? (Editar cuadro 4. ¿Contenido? ≠? ¿Tomar el texto de la derecha? (¿texto? [2],? ¿Tomar la longitud del texto? (¿texto? [2])?-?20))

Consejos =? ?"Editar cuadro 4"

. Predeterminado

. Fin del juicio

Cuadro de información (¿mensaje? "El contenido es inconsistente", ?0,?)

Devuelve ?()

. termina.