RE:ESCRIBIR Y LEER UN ARCHIVO DE TEXTO
Lo que quieres hacer ALE, puede hacerse de una forma bastante sencilla.
Te lo muestro en el código siguiente:
Dim TextFileName As String 'Esta variable contiene el nombre del archivo de texto.
'En mi ejemplo el archivo es "C:\texto.txt"
FileName = "C:\texto.txt"
'Para crear el archivo:
Open TextFileName For Append As #1
Close #1
'Para escribir en él:
Dim TextToWrite As String 'Contiene el texto a escribir
TextToWrite = "Hola, soy una prueba"
'Esto escribe en el final del archivo de texto la cadena "Hola, soy una prueba"
Open TextFileName For Append As #1
Print #1, TextToWrite
Close #1
Comentarios:
No hace falta crear un archivo antes de escribir en él puesto que cuando se llama a la instrucción Open, si el archivo no existe se crea antes.
For Append - indica que abrimos el archivo para escribir en él (los datos se añaden al final del archivo). Puedes optar, como una entre otras opciones, por escribir For Binary, por ejemplo:
Open TextFileName For Binary As #1
Esta instrucción permite recoger y añadir datos en un archivo.
Recoger datos:
Para recoger datos se debe crear un buffer donde se guardarán estos posteriormente.
Dim Data As String 'Variable Buffer que contendrá los datos a recoger
Open TextFileName For Binary As #1 'Se abre el archivo
Data=Space(LOF(1)) 'Se crea el Buffer
'LOF(1) indica el tamaño en bytes del archivo (toma como parámetro el número de archivo, en este caso 1.
Get #1,,Data 'Se recogen todos los datos del archivo en la variable Data
Close #1 'Se cierra el archivo
Para añadir datos
Dim TextToWrite As String 'Contiene el texto a escribir
TextToWrite = "Hola, soy una prueba"
Open TextFileName For Binary As #1 'Se abre el archivo
Put #1,,TextToWrite 'Se añaden los datos de la variable en el archivo
Close #1 'Se cierra el archivo
Espero que estos ejemplos de código te sirvan.
Hasta otra
Zoto
