| Usuario |
Lectura de Archivos TXt |
Desconocido
|
| Enviado - 7/10/2004 |
| |
Les comento le problema que tengo:
Necesito Abrir un archivo por ejemplo: RepC.Txt. en este archivo necesito volcarle la información de mas archivos txt por ejemplo: RepC2000.TxT,RepC2001.TxT;RepC2002.TxT, etc y asi sucesivamente. en concreto necesito leer solamente el REPC.TXT con toda la información de los demas archivos.
Alguna tiene una solución para esto.
Gracias. |
| |
|
Desconocido
|
| Enviado - 7/10/2004 |
| |
Busca información sobre las funciones line input, output y write.
Con eso puedes abrir ficheros, leerlos, escribir en ellos...
|
| |
|
cperez2k
19 Mensaje(s)
|
| Enviado - 7/10/2004 |
| |
Intenta esto (te explico lo de un solo archivo y lo implementas para mas)
en lo personal me gusta mas usar la referencia del scripting runtime
Global oFSO As New Scripting.FileSystemObject
Dim streamIn As Scripting.TextStream
Dim streamOut As Scripting.TextStream
Set streamOut = oFSO.OpenTextFile(<<archivo destino>>, ForAppending, True, TristateFalse)
Set streamIn = oFSO.OpenTextFile(<<archivo origen>>, ForReading, False, TristateFalse)
Do While Not streamIn.AtEndOfStream
DoEvents
streamOut.WriteLine= streamIn.ReadLine
loop
streamOut.Close
streamIn.Close
saludos |
| |
|
|
|
