Crear un archivos de texto en Visual Basic 6.0

Para trabajar con archivos Visual Basic nos ofrece varias opciones para crear, guarda, actualizar un archivo esas opciones las veremos a continuación.

Algunas veces necesitamos guardar algún tipo de información en archivos, como por ejemplo crear un archivo csv para guardar cierta información en ella.

también puedes ver Exportar – Importar datos de un Archivo CSV en Visual Basic 6

Lo primero que se debe hacer para trabar un archivo es abrirlo ingresar el contenido y cerrar el archivo, ese es siempre el proceso al trabajar con archivos.

Abrir -> Agregar Líneas o Modificar -> Cerrar

Para abrir un archivo se utiliza Open. utiliza la siguiente sintaxis:

Syntax

Open pathname For mode [ Access access ] [ lock ] As [ # ] filenumber [ Len = reclength ]

Open [ruta de acceso] For [tipo de acceso] As [número de archivo]

Ejemplos

El siguiente ejemplo se muestra como se abre y se cierra un archivo ya existente en modo de entrada secuencial. Solo es para lectura.

'se abre un archivo llamado pruebaarchivo el archivo debe existir
Open App.Path & "\pruebaarchivo.txt" For Input As #1
    ' Cierre antes de volver a abrir en otro modo.
Close #1

El siguiente ejemplo se muestra como se abre un archivo en modo Append si no existente se crea y si existe conserva el contenido.

'se abre un archivo llamado pruebaarchivo2.txt si el archivo no existe se crea
 Open App.Path & "\pruebaarchivo.txt" For Append As #1
     ' Cierre antes de volver a abrir en otro modo.
 Close #1

En el siguiente modo Output,  se abre un archivo con el nombre asignado si no existente se crea y si existe borrando su contenido:

'se abre un archivo existente llamado pruebaarchivo.txt (borrando el cotenido del archivo)
 Open App.Path & "\pruebaarchivo.txt" For Output As #1
     ' Cierre antes de volver a abrir en otro modo.
 Close #1

Escribiendo en el archivo

Para escribir en el archivo se utiliza Write o Print que tiene la siguiente sintaxis Write #[Número de archivo], [Dato a escribir] o Print #[Número de archivo], [Dato a escribir]

Y para la lectura de datos se utiliza Input  que tiene la siguiente sintaxis Input #[Número de archivo], [Variable]

Ejemplos

Ejemplo de leer el contenido de un archivo, para esto lógicamente el archivo debe existir, en el ejemplo siguiente se lee la primera línea del archivo:

Dim LineaArchivo As String
 Open App.Path & "\pruebaarchivo.txt" For Input As #1
     Input #1, LineaArchivo
 Close #1

Para escribir se abre el archivo en el modo que crea conveniente ya sea Output o Append según si queremos o no conservar el contenido del archivo.

La diferencia que noto entre Write y Print es que cuando utilizo Write escribirá todo lo que este después del indicador del archivo y cada palabra debe separarse por ; a diferencia de Print que entre comillas podemos escribir todo el texto si tener que usar ; para cada palabra me parece mas util.

Open App.Path & "\pruebaarchivo2.txt" For Output As #1
    ' Cierre antes de volver a abrir en otro modo.
    Write #1, "Escribiendo una línea de texto en el archivo"; 1245
Close #1

Open App.Path & "\pruebaarchivo2.txt" For Output As #1 
    Print #1, "Escribiendo una línea de texto en el archivo" 
Close #1

Si queremos escribir varias líneas de texto:

Open App.Path & "\pruebaarchivo2.txt" For Output As #1
    Print #1, "Primera Linea"
    Print #1, "Segunda Linea"
    Print #1, "Tercera Linea"
    Print #1, "Cuarta Linea"
Close #1

Ejemplo usando líneas en blanco, espacios, tabulaciones:

 Open App.Path & "\pruebaarchivo2.txt" For Output As #1
    Print #1, "Testo de prueba" 
    Print #1, ' Escribir una linea en blanco.
    Print #1, "Zona 1"; Tab; "Zona 2"  ' Se puede usar Tab para hacer tabulación.
    Print #1, "Hola"; " "; "Mundo"   ' Separar cadenas usando espacios.
    Print #1, Spc(5); "5 espacios "  ' Escribir 5 espacios antes del texto
    Print #1, Tab(10); "Hola"  ' Imprimir palabra en la columna 10.
Close #1