Programación de textos

Utilice matrices para resolver fácilmente su problema, ..

dim str(), I es largo, tem es cadena

Juzgue el número de líneas en el archivo. ..

abra "archivo" como entrada n.° 1

haga hasta eof(1)

entrada de línea n.° 1, elemento

i=i 1

Anillo

Cerrar #1

El número total de líneas en el archivo impreso es ";i

redim cadena (1 a I)

i=0

Abrir "archivo" como entrada n.º 1

hacerlo hasta eof(1)

i =i 1

Entrada de línea n.º 1, elemento

str(i)=tem

Anillo

Cerrar n.º 1

Str(1) son los datos de la primera fila, str(2) son los datos de la segunda fila, y así sucesivamente, hasta que el número total de filas sea I.