26/02/2008, 15:03
|
| | | Fecha de Ingreso: septiembre-2007
Mensajes: 54
Antigüedad: 17 años, 7 meses Puntos: 0 | |
| Re: Archivos TXT leer para VB
bueno para aquellos que piensan que no termine el prograna les mando la respuesta
bueno lo hice con un Append y con un case asi solo indico mi contador cuanto va a lo que las lineas cuenta con append , imprimo o escribo en mi txt desde el punto ultimo de la ultima linea
Open txtORIGEN For Input As #1
Do Until EOF(1)
Line Input #1, VarTexto
memoria = VarTexto '& vbCrLf
cont = cont + 1
txtCont = cont
nfile = FreeFile
Open patch & rutaArchivo & " - " & conta & ".txt" For Append As #nfile
Print #nfile, memoria
Close #nfile |