Esta lección es parte de un tutorial en curso. La primera parte está aquí: Cómo para abrir un archivo de texto en VB .NET
Escribir en un archivo de texto es similar a leer un archivo de texto. De nuevo usamos System.IO. Esta vez, en lugar de usar el StreamReader usamos el StreamWriter . El StreamWriter se usa para escribir un flujo de texto en un archivo.
Añade otro botón al formulario en el que has estado trabajando. Poner el Texto propiedad del botón de » Escribir en el archivo «. Haga doble clic en su nuevo botón para abrir la ventana de codificación. Añade lo siguiente:
Dim FILE_NAME As String = «C:UsersOwnerDocumentstest2.txt»
Si System.IO.File.Exists(FILE_NAME) = True Entonces
Dim objWriter como nuevo sistema.IO. StreamWriter ( NOMBRE_DE_ARCHIVO )
Objeción. Escribir ( TextBox1.Text )
Objeción. Cerrar ()
MessageBox.Show(«Texto escrito en el archivo»)
Else
MessageBox.Show(«El archivo no existe»)
Finalizar si
Ejecuta tu programa y luego haz clic en tu nuevo botón.
A menos que tengas un archivo llamado » test2.txt «, deberías ver la pantalla del buzón de mensajes: «El archivo no existe».
Una vez más, VB insiste en que el archivo debe existir antes de que pueda hacer algo… con él. ¡Lo cual no es irrazonable!
Detenga su programa y cambie esta línea:
Dim FILE_NAME As String = «C:UsersOwner\NDocumentsNtest2.txt»
A esto:
Dim FILE_NAME As String = «C:UsersOwnerNDocumentsNtest.txt»
En otras palabras, sólo cambia el nombre del archivo de nuevo a test.txt. (Con suerte, usted no han borrado el archivo test.txt de su disco duro!)
Vuelva a ejecutar su programa. Escriba algo en el cuadro de texto, y luego haga clic en su …botón. Debería ver aparecer el cuadro de mensaje «Texto escrito en el archivo».
Pero noten que si abren el archivo de texto en sí, cualquier texto que hayan tenido anteriormente se habrá ido – ha sido sobrescrita, en lugar de añadida. (Veremos cómo añadir texto a un archivo en breve).
Echemos un vistazo al código que escribimos, sin embargo.
Una vez más, comprobamos si el archivo existe. Si es cierto que el archivo existe, entonces la primera línea que se ejecuta es la configuración de nuestra variable:
Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
Es casi igual que la última vez. Sólo dos cosas han cambiado: hemos creado un nuevo nombre de variable, objWriter , y ahora estamos usando StreamWriter en lugar de StreamReader . Todo lo demás es lo mismo.
Para escribir el texto en nuestro archivo, hemos usado esto:
objWriter.Write( TextBox1.Text )
Después del nombre de nuestra variable (objWriter), escribimos un punto. La caída apareció un cuadro de abajo que mostraba las propiedades y métodos disponibles. El » Escribir » el método fue elegido de la lista. Entre paréntesis redondos, se pone lo que es que quieres que VB escriba en tu archivo de texto. En nuestro caso, este fue el texto en Cuadro de texto1 . También puedes hacer esto:
objWriter.Write( «Su texto aquí» )
Lo anterior utiliza texto directo rodeado de comillas dobles. Esto también es aceptable:
Dim TheText As String = «Tu texto aquí»
objWriter.Write( TheText )
Esta vez, hemos puesto el texto dentro de una variable. El nombre de la variable se escribe dentro de los corchetes redondos de «Escribir».
Pero no tienes que escribir todo el texto de una vez. Puedes escribir línea por línea. En ese caso, selecciona WriteLine de las propiedades y métodos disponibles. Aquí tienes un ejemplo de cómo usar WriteLine:
Dim FILE_NAME As String = «C:Usuarios/PropietariosDocumentos.txt»
Dim i As Integer
Dim aryText(4) As String
aryText(0) = «Mary WriteLine»
aryText(1) = «Had»
aryText(2) = «A»
aryText(3) = «Little»
aryText(4) = «Uno»
Dim objWriter como nuevo sistema.IO. StreamWriter ( NOMBRE_DE_ARCHIVO )
Para i = 0 a 4
Objeción. WriteLine ( aryText(
objWriter.Close()
El código de comprobación de errores se ha dejado aquí. Pero noten la nueva forma de escribir texto al archivo:
objWriter.WriteLine( aryText(i) )
Estamos haciendo un bucle y escribiendo el contenido de una matriz. Cada línea de texto de la matriz se escribe en nuestro archivo de texto. Pero cada línea se adjunta. Que es que el archivo de texto no se borra después de que se haya escrito cada línea. Todos los las líneas de la matriz se escribirán en el archivo de texto. Sin embargo, si para ejecutar el código por segunda vez, entonces el contenido del archivo se borra antes de el nuevo WriteLine () entra en acción. En otras palabras, sólo conseguirías una versión de «Mary WriteLine tenía un pequeño» en lugar de dos.
En la siguiente parte veremos cómo añadir texto a un archivo que ya contiene texto – se llama añadir a un archivo.
Aprende a añadir texto a un archivo con VB .NET –…
Espero que te haya sido de ayuda!
