Visual Basic 6 – Capítulo 11 – leer y escribir en archivos de texto

1. Introducción

La lectura y escritura de archivos de texto es una tarea fundamental en la programación, ya que permite almacenar y recuperar información de manera persistente. En Visual Basic 6, esto se logra mediante diversas funciones y procedimientos proporcionados por el lenguaje. En este manual, exploraremos los conceptos básicos y realizaremos ejercicios prácticos para comprender mejor el proceso.

2. Conceptos Básicos

Archivos de Texto

Un archivo de texto es una secuencia de caracteres almacenada en un medio de almacenamiento persistente, como un disco duro. Cada carácter se representa mediante su código ASCII y puede ser un número, una letra, un signo de puntuación, etc.

Modo de Acceso

Los archivos pueden ser abiertos en distintos modos de acceso:

• Modo de Lectura: Permite leer el contenido del archivo, pero no modificarlo.
• Modo de Escritura: Permite escribir nuevos datos en el archivo, sobrescribiendo su contenido existente.
• Modo de Lectura y Escritura: Permite tanto la lectura como la escritura en el archivo.

3. Lectura de Archivos de Texto

Apertura de Archivos

En Visual Basic 6, puedes usar la función Open para abrir un archivo en un modo específico. Por ejemplo, para abrir un archivo en modo de lectura:

Dim archivo As Integer
archivo = FreeFile
Open "archivo.txt" For Input As archivo

Lectura Línea por Línea

Para leer el contenido de un archivo línea por línea, puedes usar un bucle Do Until y la función Line Input:

Dim linea As String
Do Until EOF(archivo)
   Line Input #archivo, linea
   ' Procesar la línea leída
Loop
Close archivo

Lectura Carácter por Carácter

Si necesitas leer el archivo carácter por carácter, puedes usar la función Input:

Dim caracter As String
Do Until EOF(archivo)
   Input #archivo, caracter
   ' Procesar el carácter leído
Loop
Close archivo

4. Escritura de Archivos de Texto

Apertura en Modo de Escritura

Para abrir un archivo en modo de escritura:

Dim archivo As Integer
archivo = FreeFile
Open "nuevo_archivo.txt" For Output As archivo

Escritura Línea por Línea

Para escribir líneas en el archivo:

Print #archivo, "Esta es una línea."

Escritura Carácter por Carácter

Si deseas escribir caracteres uno por uno:

Put #archivo, , "H"
Put #archivo, , "o"
Put #archivo, , "l"
Put #archivo, , "a"

5. Ejercicios Resueltos

Ejercicio 1: Lectura de Números

Descripción: Lee un archivo que contiene números separados por comas, suma los números y muestra el resultado.

Solución:

Dim archivo As Integer
archivo = FreeFile
Open "numeros.txt" For Input As archivo

Dim suma As Double
Dim numero As String
Do Until EOF(archivo)
   Line Input #archivo, numero
   suma = suma + Val(numero)
Loop
Close archivo

MsgBox "La suma de los números es: " & suma

Ejercicio 2: Generación de Archivo de Datos

Descripción: Genera un archivo de texto con nombres de estudiantes y sus calificaciones.

Solución:

Dim archivo As Integer
archivo = FreeFile
Open "calificaciones.txt" For Output As archivo

Print #archivo, "Juan Carlos, 70"
Print #archivo, "Juan Perez, 65"
Print #archivo, "Mariana Gomez, 80"

Close archivo

6. Conclusiones

La lectura y escritura de archivos de texto en Visual Basic 6 es esencial para manejar datos de manera persistente. A través de la comprensión de los modos de acceso y las funciones disponibles, los programadores pueden implementar soluciones efectivas para sus necesidades. Los ejercicios resueltos proporcionados demuestran cómo aplicar estos conceptos en la práctica.