Software Garden: Archivos en VB.Net

Archivos en VB.Net

Publicadas por Net Developer - 5:09 p. m.

Aunque nos resistimos a reconocerlo, jamás vamos a deshacernos de ellos. De una forma u otra casi siempre necesitamos usar un archivo de texto en nuestras aplicaciones.

En ASP.Net para leer y escribir archivos de texto plano debemos incluir el espacio de nombres System.IO y utilizaremos Streams y el objeto File.

En particular los métodos más útiles del objeto File son:

CreateText (<NombreArchivo>)
AppendText (<NombreArchivo>)
OpenText (<NombreArchivo>)

que se utilizan para crear un archivo, agregar datos al final y abrirlo para leerlo respectivamente.

Leer un archivo

Para leer un archivo debemos asociar un StreamReader al mismo usando el método OpenText() de la siguiente forma:

Dim Lector as StreamReader = File.OpenText(”C:\datos.txt”)

Una vez que tenemos nuestro StreamReader usaremos para leer el archivo los siguientes métodos:

ReadLine()
ReadToEnd()

Ambos métodos devuelven un tipo string. El método ReadLine() devuelve todos los caracteres hasta encontrar un fin de línea. ReadToEnd() devuelve un string conteniendo todo el archivo.

Una vez que terminamos con el archivo, hay que cerrarlo usando el método Close() del Stream.

Escribir un archivo

Los métodos CreateText() y AppendText() del objeto File devuelven un StreamWriter asociado al archivo que queremos escribir.

Los métodos para escribir en el archivo son:

Write (<string que queremos escribir>)
WriteLine (<string que queremos escribir>)

La diferencia entre ambos métodos es que WriteLine() inserta un fin de linea al final del string que estamos escribirendo en el archivo.

Aquí va un pequeño ejemplo para escribir y leer el contenido de un archivo de texto.

Archivo Default.aspx.vb

Option Explicit On
Imports System.IO

Partial Class _Default Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, _
                    ByVal e As System.EventArgs)
                    Handles Button1.Click
    ‘Abre un archivo para escritura.
    Dim objEscritor As StreamWriter objEscritor = _
                                  File.AppendText(”C:\salida.txt”)
    ‘Escribe en el archivo el contenido del TextBox.
    objEscritor.Write(TextBox1.Text)

    ‘Cierra el archivo.
    objEscritor.Close()
End Sub

Protected Sub Button2_Click(ByVal sender As Object, _
                          ByVal e As System.EventArgs)
                          Handles Button2.Click
    ‘Abre el Archivo para lectura.
    Dim objLector As StreamReader objLector = _
                                    File.OpenText(”C:\salida.txt”)
    ‘Lee el contenido y lo vuelca al TextBox
    TextBox1.Text = “”
    TextBox1.Text = objLector.ReadToEnd()
    ‘Cierra el archivo.
    objLector.Close()
End Sub
End Class

Archivo Default.aspx.

<%@ Page Language=”VB” AutoEventWireup=”false”
     CodeFile=”Default.aspx.vb” Inherits=”_Default” %>
<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN”
   “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”>
<html xmlns=”http://www.w3.org/1999/xhtml”>
<head runat=”server”>
<title>Escribir/Leer archivos</title>
</head>
<body>
<form id=”form1″ runat=”server”>
    <div>
      <asp:TextBox ID=”TextBox1″ runat=”server”
         BorderStyle=”Ridge” Height=”133px”
         TextMode=”MultiLine” Width=”317px”>
      </asp:TextBox>
      <br /> <br />
      <asp:Button ID=”Button1″ runat=”server”
               Height=”25px” Text=”Escribir”
               Width=”75px” />
      <asp:Button ID=”Button2″ runat=”server”
               Height=”25px” Text=”Leer”
               Width=”75px” />
    </div>
</form>
</body>
</html>

En otra entrada usaremos otros métodos y Server.MapPath para controlar exactamente dónde guardamos el archivo o de dónde lo leemos.¡A tener en cuenta! Es posible que el ejemplo de un error de autorización al intentar escribir el archivo. Esto se debe a que la cuenta de usuario ASPNET debe tener los permisos apropiados sobre la carpeta donde queremos guardar nuestro archivo.

Saludos.