Programación de escritura de texto

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 de caracteres(1 a I)

i=0

Abrir "archivo" como entrada #1

hacer hasta eof(1)

i=i+1

Línea en #1, elemento

str(i)=tem

Anillo

Cerrar # 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.