Imprimir Página - leer archivo de texto linea a linea

Título: leer archivo de texto linea a linea
Publicado por: SheKeL_C$ en 18 Febrero 2006, 15:38 pm

Necesito hacer una aplicacion q lea un archivo d texto, y luego escriba en el otro una costante luego el dato y luego otra costante,

Código:

Dim a As String

If a = "" Then
    Open "c:\texto.txt" For Input As #1
    Input #1, a
    Close #1
End If

If a <> "" Then
    Open "c:\nuevo.txt" For Output As #2
    Print #2, "<contact>" & a & "</contact>" & vbCrLf
    Close #2
End If

Lo q pregunto es q como al tener el archivo de texto unas 900 lineas, pues como podria acer para q lea una linea luego la escriba en el otro archivo, y cuando vuelva a tener q leer el archivo de origen lea la 2 luego la 3 y asi sucesivamente

Título: Re: leer archivo de texto linea a linea
Publicado por: APOKLIPTICO en 18 Febrero 2006, 16:53 pm

Podrias usar bucles, como por ejemplo:

Código:

dim i as long
dim buff as string
open "c:\huevo.txt" for input as #1
open "c:\huevo1.txt for output as #2
do until eof(1) 'bucle hasta q termine el archivo
doevents 'para q la aplicacion no se cuelgue en el bucle
line input #1, buff
print #1, "<contact>" & buff & "</contact> 'no hace falta un vbcrlf xq cuando haces print escribe una linea entera.
loop

Título: Re: leer archivo de texto linea a linea
Publicado por: SheKeL_C$ en 18 Febrero 2006, 17:08 pm

ok gracias ;D e mirado como m lo as puesto y m a dao el error de modo de archivo incorrecto, señalandome la linea de
print #1, "con......"

asi k e tomado el LOF(1)
asi k lo e podido acer asi

Código:

    Open "c:\texto.txt" For Input As #1
        While Not EOF(1)
            Line Input #1, a
            Open "c:\a.txt" For Append As #2
            Print #2, "      " & "<contact>" & a & "</contact>"
            Close #2
        Wend
    Close #1

Gracias d todos modos ;)

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: SheKeL_C$ en 18 Febrero 2006, 15:38 pm