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:
Open pathname For mode [ Access access ] [ lock ] As [ # ] filenumber [ Len = reclength ]
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. Read, Write, o Read Write. |
lock | Opcional. Palabra clave que especifica las operaciones restringidas en el archivo abierto por otros procesos: Shared, Lock Read, Lock 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. |
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
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]
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
6 de septiembre de 2024 - La demanda de desarrolladores de software sigue en aumento,…
En un movimiento histórico, la Unión Europea ha aprobado la primera ley de inteligencia artificial…
¿Sigues trabajando con Visual Basic 6 y necesitas una forma eficiente de acceder a tus…
OpenAI revoluciona la interacción con IA: ChatGPT ahora interpreta imágenes En un avance significativo para la…
Bienvenido al Curso Básico de Visual Basic 6! Este curso está diseñado para llevarte a…
Introducción a la programación y Visual Basic 6.0 ¿Qué es la programación? La programación es…
Este sitio utiliza cookies desea activarlas
Deja un comentario