Cuando levanto un archivo TXT , es mas en mi trabajo todo es siempre en texto plano
asi tienen las empresas configurados sus sistemas y se los tenes que entregar como
ellos te lo piden
en fin ...
En QBASIC suponiendo que el archivo sea de la siguiente forma:
nombre,domicilio,algomas
marcelo,belgrano,jajaja
pirulo,balvanera,jojojo
obviamente en EXXEL ( GUARDAR COMO CSV ) "separado por comas"
El programa seria asi:
DIM MEMORIA$(10,3)
OPEN "I" , #1, "ARCHIVO.TXT"
1 IF EOF (1) THEN CLOSE : END ' AQUI TERMINO
INPUT #1, DATO1$,DATO2$,DATO3$
REG=REG+1
MEMORIA$(REG,1)=DATO1$
MEMORIA$(REG,2)=DATO2$
MEMORIA$(REG,3)=DATO3$
GOTO 1
Abre archivo
se fija EOF fin de archivo
lee nombre,domicilio,algomas y pasa a las variables dato1,2 y 3
contador REG
pone en la matris de memoria los datos que lee del archivo de texto separado por comas
GOTO regresa a linea 1
Si es en VBASIC NET seria algo asi:
te copie y pegue de un programa mio
en GENERAL pones
Imports System.IO
y el programa :
FileOpen(1, archivo, OpenMode.Input)
Do While Not EOF(1)
lee = LineInput(1)
contA = contA + 1
arrTextArchivoTodo(contA) = lee
Loop
FileClose(1)
Abre el archivo en modo lectura
DO WHILE es una condicion para salir del ciclo cuando no tenga mas registros
contador
pone en el array los datos que lee
Loop regresa a Do While
si no tiene mas registros para leer cierra el archivo con FileClose(1)
Cualquier cosa , pues no se en que lenguaje de los tantos basic seria
te mando algun programa que tenga echo , me pides al correo
[email protected] sin ningun problema, salu2 y suerte...
