Archivos
Antes que nada gracias por tu tiempo.
¿Podrías auxiliarme y orientarme en como puedo crear un archivo con POR extensión y luego llenarlo de información?
Gracias de antemano.
Si, claro que puedo.
Pero... ¿En qué lenguaje?
¿Qué extensión?
Con que lo lleno, ¿con datos o con texto? Y en el caso de que sea con datos, ¿en binario -lease Byte a byte- o por registros?
Un saludo.
Perdón se me paso es en vb6.0, seria crear un archivo con extensión .txt y llenarlo con registros de una tabla de manera que el primer registro quedara en la primera linea del archivo creado y así sucesivamente.
Y de nuevo Mil gracias por tu tiempo.
¿Podrías auxiliarme y orientarme en como puedo crear un archivo con POR extensión y luego llenarlo de información?
Gracias de antemano.
Si, claro que puedo.
Pero... ¿En qué lenguaje?
¿Qué extensión?
Con que lo lleno, ¿con datos o con texto? Y en el caso de que sea con datos, ¿en binario -lease Byte a byte- o por registros?
Un saludo.
Perdón se me paso es en vb6.0, seria crear un archivo con extensión .txt y llenarlo con registros de una tabla de manera que el primer registro quedara en la primera linea del archivo creado y así sucesivamente.
Y de nuevo Mil gracias por tu tiempo.
1 respuesta
Respuesta de athrarn
1
Bien, supongamos que tienes en un recordset los datos de la tabla. A este recordset le llamaremos RS. Entonces, uno de los métodos más sencillos y cómodos es usar FilesystemObject. Añades la referencia a visual basic de microsoft scripting runtime y entonces (No se si alguna más, si no te funciona dímelo y miro si me he dejado alguna. El código funciona, lo uso para alimentar un sistema experto) :
Dim FS As FileSystemObject
Dim Archivo As File
Dim ArchivoAbierto As TextStream
Dim Linea as String
Dim i as Long
Set FS = New FileSystemObject
while not rs.eof
Set ArchivoAbierto = FS.OpenTextFile(NombredelArchivo)
' Almaceno todos los registros en Linea :
for i=LBound(rs) to UBound(rs)
'Pongo un chr(9) tras cada columna para controlar los campos
Linea = Linea & rs(i).Value & vbTab
next
ArchivoAbierto. WriteLine Linea
Wend
ArchivoAbierto. Close
Seria un método. Puedes usarlo al revés, con readLine para leer los registros.
Si prefieres otro, hay muchas maneras más.
Dim FS As FileSystemObject
Dim Archivo As File
Dim ArchivoAbierto As TextStream
Dim Linea as String
Dim i as Long
Set FS = New FileSystemObject
while not rs.eof
Set ArchivoAbierto = FS.OpenTextFile(NombredelArchivo)
' Almaceno todos los registros en Linea :
for i=LBound(rs) to UBound(rs)
'Pongo un chr(9) tras cada columna para controlar los campos
Linea = Linea & rs(i).Value & vbTab
next
ArchivoAbierto. WriteLine Linea
Wend
ArchivoAbierto. Close
Seria un método. Puedes usarlo al revés, con readLine para leer los registros.
Si prefieres otro, hay muchas maneras más.
