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,
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
Podrias usar bucles, como por ejemplo:
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
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
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 ;)