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.