Visual Basic 6.0 proporciona una forma sencilla de abrir archivos de texto y leer su contenido en una caja 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 la primera etapa , y diez son suficientes para la segunda operación. El proceso utiliza las funciones de entrada y de salida en Visual Basic , así como una pequeña ventana para recopilar información del usuario. Cosas que necesitará
Visual Basic 6.0
Ver Más 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 TextBox en la caja de herramientas de la izquierda para agregar esto a la forma . Cambie la altura del formulario en el panel Propiedades de la derecha de 5000
2

Realice los siguientes cambios en las propiedades de texto: . Altura = 3000Multiline = TrueScrollbars = BothWidth = 3,000
Página 3

doble clic en el control Button en el Cuadro de herramientas. Cambie la propiedad Caption para leer el archivo . Repita esta operación para agregar un segundo control Button , el cambio de la propiedad Caption aquí para escribir el archivo .
4

doble clic en el botón Archivo Leer para abrir la ventana de código. Introduzca este código en la página de vista de código : función ReadFile () ReadFileName As StringReadFile = InputBox ( " Escriba el nombre del archivo a leer :") Abierto ReadFile Para la entrada como # 1ReadFile = Entrada $ ( LOF ( 1 ) , 1 ) Text1. Texto = ReadFileClose # 1End FunctionPrivate Sub Command1_Click () ReadFileEnd Sub
5

Haga doble clic en el botón Write File para abrir la ventana de código. Introduce este código: función WriteFile () WriteFileName As StringWriteFileName = InputBox ("Escriba nombre de archivo" ) WriteFileName abierto para la salida como # 2Print # 2 , # Text1.TextClose 1End FunctionPrivate Sub Command2_Click () WriteFileEnd Sub
6

Ejecute el programa presionando F5 y haga clic en el comando Archivo Read primero . Escriba el nombre de un archivo de texto que se conoce, con la extensión. Txt . El archivo aparecerá en el cuadro de texto. Si ahora hace clic en Write File y proporcionar un nombre diferente , va a crear un archivo nuevo, pero duplicado . Alternativamente , si se elimina el texto o simplemente haz clic en Leer archivo antes de cargar un archivo y escriba algo nuevo , puede crear un nuevo archivo.