26-feb-2008, 15:03
|
#4 (permalink)
|
Fecha de Ingreso: septiembre-2007
Mensajes: 25
|
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
|
|
|