Cómo leer y escribir archivos de texto con Visual Basic 6.0

Visual Basic 6.0 proporciona una forma sencilla de abrir archivos de texto y leer su contenido en un cuadro de texto en la pantalla, así como escribir un nuevo texto en un archivo. Sólo se requieren las once líneas de código para el primer paso, y diez serán suficientes para la segunda operación. El proceso utiliza las funciones de entrada y salida en Visual Basic, así como una pequeña ventana para recopilar información del usuario.

Instrucciones

1 Abra Visual Basic 6.0, haga clic en Archivo y seleccione Nuevo proyecto. Seleccione EXE estándar en la lista de plantillas. Haga doble clic en el control Cuadro de texto en el cuadro de herramientas a la izquierda para agregar esto a la forma. Cambie la altura del formulario en el panel de propiedades de la derecha a 5000.

2 Realiza los siguientes cambios en las propiedades de cuadro de texto:
Altura = 3000
Multiline = true
Las barras de desplazamiento = Tanto
Width = 3000

3 Haga doble clic en el control Button en el cuadro de herramientas. Cambie la propiedad Caption para leer el archivo. Repita esta operación para añadir un segundo control de botón, cambiar la propiedad Caption aquí que escribir el archivo.

4 Haga doble clic en el botón Leer Archivo para abrir la ventana de código. Introduce el código en la página de vista de código:
Funcionar ReadFile ()
Dim como secuencia ReadFileName
ReadFile = InputBox ( "Introduce el nombre del archivo para que diga:")
ReadFile abierta For Input As # 1
ReadFile = Entrada $ (LOF (1), 1)
Text1.Text = ReadFile
Close # 1
End Function
Private Sub Command1_Click ()
ReadFile
End Sub

5 Haga doble clic en el botón Escribir Archivo para abrir la ventana de código. Introduce este código:
WriteFile función ()
Dim como secuencia WriteFileName
WriteFileName = InputBox ( "Introducir nombre del archivo")
WriteFileName abierta For Output As # 2
Impresión # 2, Text1.Text
Close # 1
End Function
Private Sub Comando2_Click ()

WriteFile

End Sub

6 Ejecutar el programa presionando F5 y haga clic en el comando Leer archivo en primer lugar. Introduce el nombre de un archivo de texto conocido, incluyendo el sufijo .txt. El archivo debería aparecer en el cuadro de texto. Si ahora hace clic en Write File y proporcione un nombre diferente, se creará un archivo nuevo, pero por duplicado. Alternativamente, si se elimina el texto o simplemente pulsando en Archivo Leer antes de cargar un archivo y luego escribir algo nuevo, puede crear un nuevo archivo.

Consejos y advertencias

• Para añadir nuevo material a un archivo existente, cambie la línea en la sección de escritura de archivo del Abierto de WriteFileName For Output As # 2 para abrir WriteFileName Para Anexar Como # 2.
• Debe utilizar diferentes números de archivo para cada archivo abrir y cerrar cada archivo cuando haya terminado.
• Modificar el tamaño del cuadro de texto para adaptarse a sus propias necesidades.
• Para una aplicación más robusta, sería útil añadir rutinas de captura de error en caso de que el usuario mistypes un nombre de archivo o ya tiene un archivo abierto.