leer archivo de texto linea a linea

[SheKeL_C$]

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 [Seleccionar] Expandir


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

[APOKLIPTICO]

Podrias usar bucles, como por ejemplo:

Código [Seleccionar] Expandir

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


[SheKeL_C$]

ok gracias  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 [Seleccionar] Expandir

    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