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]

Parámetro Descripción
pathname Requerid0. Expresión de cadena que especifica un nombre de archivo; puede incluir directorio o carpeta y unidad.
mode Requerid0.  Palabra clave que especifica el modo de archivo: Adjuntar, Binario, Entrada, Salida o Aleatorio. Si no se especifica, el archivo se abre para acceso aleatorio.
access Opcional. Palabra clave que especifica las operaciones permitidas en el archivo abierto: lectura, escritura o lectura y escritura. ReadWrite, o Read Write.
lock Opcional. Palabra clave que especifica las operaciones restringidas en el archivo abierto por otros procesos: SharedLock ReadLock Write, and Lock Read Write.
filenumber Requerid0. Un número de archivo válido en el rango de 1 a 511, inclusive. Utilice la función FreeFile para obtener el siguiente número de archivo disponible.
reclength Opcional. Número menor o igual a 32,767 (bytes). Para archivos abiertos para acceso aleatorio, este valor es la longitud del registro. Para archivos secuenciales, este valor es el número de caracteres almacenados en búfer.

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

 

Comentarios de Facebook
Total Page Visits: 3142 - Today Page Visits: 4

Deja una respuesta