Easy Language escribe el contenido del cuadro de edición en el Bloc de notas y el Bloc de notas ajusta las líneas automáticamente. Además, Easy Language también proporciona un método para buscar el contenido del Bloc de notas línea por línea.

.Versión 2

.Ensamblaje Ventana Ensamblaje 1

. Variable de ensamblaje Almacenamiento, tipo de texto

. Variable de ensamblaje Matriz de texto, tipo de texto, "0"

Subrutina _Button1_Clicked

. último cuadro de mensaje nulo (editbox1.content)="")

("Ingrese el contenido", 0,)

return ()

. Finalizar si es verdadero

store = store editbox1.content # Carácter de nueva línea

Escribir archivo (obtener el directorio en ejecución () "\1.txt", en byteset (store))

matriz de texto = dividir texto (almacenar, # carácter de nueva línea,)

etiqueta 2.Título = texto (tomar miembros de la matriz (matriz de texto))

Rutina__Launch Window_Create_Complete.

Almacenar = a texto (leer en el archivo (tomar el directorio de ejecución () "\1.txt")

Matriz de texto = dividir texto (almacenar, # saltos de línea,)

Etiqueta 2.título = a texto (tomar miembros de la matriz (matriz de texto))

.Haga clic en subrutina_Button2_

.Si es verdadero (elimine el primer y el último nulo (editbox2. content) = "")

Cuadro de mensaje ("Introduzca contenido", 0, )

Retorno ()

.Si es verdadero, finalice

Si es verdadero (a un número entero (eliminar el primer y el último nulo (editbox2.content)))> Obtener miembro de la matriz (matriz de texto))

InfoBox ("No existe tal línea", 0, )

Retorno ()

.End if true

Editbox1.content = matriz de texto [a entero (editbox2. contenido)].