Problema txt
Publicado por Vanessa (1 intervención) el 27/01/2004 14:47:33
al hacer una copia exacta leyendo linea a linea de un fichero y copiando en otro, consigo copiar todas las líneas, pero si concateno algo con la línea leida, al escribirla no me pasa todas las líneas
este es el código
Open "c:\archivo1.dat" For Input As #1
Open "c:\archivo2.dat" For Output As #2
If Not EOF(1) Then
Do Until EOF(1)
Line Input #1, linea
linea = linea & "0"
Print #2, linea
Loop
End If
Close #1, #2
Sabeis porque puede ser????
este es el código
Open "c:\archivo1.dat" For Input As #1
Open "c:\archivo2.dat" For Output As #2
If Not EOF(1) Then
Do Until EOF(1)
Line Input #1, linea
linea = linea & "0"
Print #2, linea
Loop
End If
Close #1, #2
Sabeis porque puede ser????
Valora esta pregunta
0