Compartir a través de

Tutorial: Manipular archivos utilizando métodos de .NET Framework (Visual Basic)

  • Artículo

Este tutorial muestra cómo abrir y leer un archivo utilizando la clase StreamReader, comprobar si se está teniendo acceso a un archivo, buscar una cadena dentro de un archivo leído con una instancia de la clase StreamReader y escribir en un archivo utilizando la clase StreamWriter.

Nota

Es posible que su equipo muestre nombres o ubicaciones diferentes para algunos de los elementos de la interfaz de usuario de Visual Studio incluidos en las instrucciones siguientes. La edición de Visual Studio que se tenga y la configuración que se utilice determinan estos elementos. Para obtener más información, vea Valores de configuración de Visual Studio.

Crear la aplicación

Inicie Visual Studio y comience el proyecto creando un formulario que el usuario pueda utilizar para escribir en el archivo designado.

Para crear el proyecto

  1. En el menú Archivo, seleccione Nuevo proyecto.

  2. En el panel Nuevo proyecto, haga clic en Aplicación para Windows.

  3. En el cuadro Nombre, escriba MyDiary y haga clic en Aceptar.

    Visual Studio agrega el proyecto al Explorador de soluciones y se abre el Diseñador de Windows Forms.

  4. Agregue los controles de la siguiente tabla al formulario y establezca los correspondientes valores para sus propiedades.

Objeto

Propiedades

Valor

Button

Name

Texto

Submit

Enviar entrada

Button

Name

Texto

Clear

Borrar entrada

TextBox

Name

Texto

Multiline

Entry

Escriba algo.

False

Escribir en el archivo

Si desea agregar funcionalidad para escribir en un archivo a través de la aplicación, utilice la clase StreamWriter. StreamWriter se ha diseñado para la salida de caracteres mediante una codificación determinada, mientras que la clase Stream se ha diseñado para la entrada y salida de bytes. Utilice StreamWriter para escribir líneas de información en un archivo de texto estándar. Para obtener más información sobre la clase StreamWriter, vea StreamWriter.

Para agregar la funcionalidad de escritura

  1. En el menú Ver, elija Código para abrir el Editor de código.

  2. Dado que la aplicación hace referencia al espacio de nombres System.IO, agregue las siguientes instrucciones al principio del código, antes de la declaración de código del formulario, que empieza por Public Class Form1.

    Imports System
Imports System.IO

    Antes de escribir en el archivo, deberá crear una instancia de una clase StreamWriter.

  3. En el menú Ver, elija Diseñador para volver al Diseñador de Windows Forms. Haga doble clic en el botón Submit para crear un controlador de eventos Click para el botón y, a continuación, agréguele el código siguiente:

    Dim fw As StreamWriter

Nota

El Entorno de desarrollo integrado (IDE) de Visual Studio volverá al Editor de código y colocará el punto de inserción dentro del controlador de eventos donde debe agregar el código.

  1. Para escribir en el archivo, utilice el método Write de la clase StreamWriter. Agregue el código siguiente directamente después de Dim fw As StreamWriter: No debe preocuparse por que se produzca una excepción si el archivo no existe, porque se creará si no existe ya.

    Dim ReadString As String
Try
    'Pass the file path and name to the StreamWriter constructor.
    'Indicate that Append is True, so file will not be overwritten.
    fw = New StreamWriter("C:\MyDiary.txt", True)
    ReadString = Entry.Text
    fw.WriteLine(ReadString)
Finally
    'Close the file.
    fw.Close()
End Try

  2. Asegúrese de que el usuario no pueda enviar una entrada en blanco agregando el código siguiente inmediatamente después de Dim ReadString As String.

    If (Entry.Text = "" Or Entry.Text = "Please enter something.") Then
    Entry.Text = "Please enter something."
    Return
End If

  3. Dado que se trata de un diario, el usuario deseará asignar una fecha a cada entrada. Inserte el código siguiente después de fw = New StreamWriter("C:\MyDiary.txt", True) para establecer la variable Today en la fecha actual.

    Dim Today As DateTime
Today = Now
fw.Write(CStr(Today))
fw.Write(ControlChars.CrLf)

  4. Por último, anexe código para borrar el cuadro de texto TextBox. Agregue el código siguiente al evento Click del botón Clear.

    Entry.Text = ""

Agregar características de presentación al diario

En esta sección, debe agregar una característica que muestra la última entrada del TextBox DisplayEntry. También puede agregar un cuadro combinado ComboBox que muestra varias entradas y desde el que un usuario puede seleccionar una entrada que mostrar en el TextBox DisplayEntry. Una instancia de la clase StreamReader lee de MyDiary.txt. Al igual que la clase StreamWriter, StreamReader está pensado para su uso con archivos de texto.

Para esta sección del tutorial, agregue los controles de la siguiente tabla al formulario y establezca los correspondientes valores para sus propiedades.

Control

Propiedades

Valores

TextBox

Name

Visible

Size

Multiline

DisplayEntry

False

120,60

True

Button

Name

Texto

Display

Display

Button

Name

Texto

GetEntries

Obtener entradas

ComboBox

Name

Texto

Enabled

PickEntries

Seleccionar una entrada

False

Para rellenar el cuadro combinado

  1. El ComboBox PickEntries se utiliza para mostrar las fechas en las que el usuario envía cada entrada, de modo que el usuario pueda seleccionar la entrada correspondiente a una fecha específica. Cree un controlador de eventos Click para el botón GetEntries y agréguele el código siguiente.

    Dim fr As StreamReader = Nothing
Dim FileString As String
FileString = ""
Try
    fr = New System.IO.StreamReader("C:\MyDiary.txt")
    PickEntries.Items.Clear()
    PickEntries.Enabled = True
    Do
        FileString = fr.ReadLine
        If IsDate(FileString) Then
            PickEntries.Items.Add(FileString)
        End If
    Loop Until (FileString Is Nothing)
Finally
    If fr IsNot Nothing Then
        fr.Close()
    End If
End Try
PickEntries.Enabled = True

  2. Para probar el código, presione F5 para compilar la aplicación y haga clic en Obtener entradas. Haga clic en la flecha desplegable del ComboBox para mostrar las fechas de entrada.

Para elegir y mostrar entradas individuales

  1. Cree un controlador de eventos Click para el botón Display y agréguele el código siguiente.

    Dim fr As StreamReader
Dim ReadString As String
'Make sure ReadString begins empty.
ReadString = ""
Dim FileString As String
fr = New StreamReader("C:\MyDiary.txt")
'If no entry has been selected, show the whole file.
If PickEntries.Enabled = False Or PickEntries.SelectedText Is Nothing Then
    Do
        'Read a line from the file into FileString.
        FileString = fr.ReadLine
        'add it to ReadString
        ReadString = ReadString & ControlChars.CrLf & FileString
    Loop Until (FileString = Nothing)
Else
    'An entry has been selected, find the line that matches.
    Do

        FileString = fr.ReadLine
    Loop Until FileString = CStr(PickEntries.SelectedItem)
    FileString = CStr(PickEntries.SelectedItem) & ControlChars.CrLf
    ReadString = FileString & fr.ReadLine

    'Read from the file until EOF or another Date is found.
    Do Until ((fr.Peek < 0) Or (IsDate(fr.ReadLine)))
        ReadString = ReadString & fr.ReadLine
    Loop
End If
fr.Close()
DisplayEntry.Visible = True
DisplayEntry.Text = ReadString

  2. Para probar el código, presione F5 para compilar la aplicación y envíe una entrada. Haga clic en Obtener entradas, seleccione una entrada en el ComboBox y haga clic en Display. El contenido de la entrada seleccionada aparecerá en el TextBox DisplayEntry.

Permitir a los usuarios a eliminar o modificar entradas

Finalmente, puede incluir funcionalidad adicional para permitir que los usuarios eliminen o modifiquen una entrada utilizando los botones DeleteEntry y EditEntry. Ambos botones permanecen deshabilitados a menos que se esté mostrando una entrada.

Agregue los controles de la siguiente tabla al formulario y establezca los correspondientes valores para sus propiedades.

Control

Propiedades

Valores

Button

Name

Texto

Enabled

DeleteEntry

Eliminar entrada

False

Button

Name

Texto

Enabled

EditEntry

Editar entrada

False

Button

Name

Texto

Enabled

SubmitEdit

Enviar edición

False

Para habilitar la eliminación y modificación de entradas

  1. Agregue el código siguiente al evento Click del botón Display, a continuación de DisplayEntry.Text = ReadString.

    DeleteEntry.enabled = True

  2. Cree un controlador de eventos Click para el botón DeleteEntry y agréguele el código siguiente.

    Dim fr As StreamReader
Dim ReadString As String
Dim WriteString As String
Dim ConfirmDelete As MsgBoxResult
fr = New StreamReader("C:\MyDiary.txt")
ReadString = fr.ReadLine
' Read through the textfile
Do Until (fr.Peek < 0)
    ReadString = ReadString & vbCrLf & fr.ReadLine
Loop
WriteString = Replace(ReadString, DisplayEntry.Text, "")
fr.Close()
' Check to make sure the user wishes to delete the entry
ConfirmDelete = MsgBox("Do you really wish to delete this entry?",
  MsgBoxStyle.OKCancel)
If ConfirmDelete = MsgBoxResult.OK Then
    File.Delete("C:\MyDiary.txt")
    Dim fw As StreamWriter = File.CreateText("C:\MyDiary.txt")
    fw.WriteLine(WriteString)
    fw.Close()
    ' Reset controls on the form
    DisplayEntry.Text = ""
    PickEntries.Text = ""
    PickEntries.Items.Clear()
    PickEntries.Enabled = False
    DeleteEntry.Enabled = False
End If

  3. Cuando un usuario muestra una entrada, se habilita el botón EditEntry. Agregue el código siguiente al controlador de eventos Click del botón Display, a continuación de DisplayEntry.Text = ReadString.

    EditEntry.Enabled = True

  4. Cree un controlador de eventos Click para el botón EditEntry y agréguele el código siguiente.

    Entry.Text = DisplayEntry.Text
SubmitEdit.Enabled = True

  5. Cree un controlador de eventos Click para el botón SubmitEdit y agréguele el código siguiente.

    Dim fr As StreamReader
Dim ReadString As String
Dim WriteString As String
If Entry.Text = "" Then
    MsgBox("Use Delete to Delete an Entry")
    Return
End If
fr = New StreamReader("C:\MyDiary.txt")
ReadString = fr.ReadLine
Do Until (fr.Peek < 0)
    ReadString = ReadString & vbCrLf & fr.ReadLine
Loop
WriteString = Replace(ReadString, DisplayEntry.Text, Entry.Text)
fr.Close()
File.Delete("C:\MyDiary.txt")
Dim fw As StreamWriter = File.CreateText("C:\MyDiary.txt")
fw.WriteLine(WriteString)
fw.Close()
DisplayEntry.Text = Entry.Text
Entry.Text = ""
EditEntry.Enabled = False
SubmitEdit.Enabled = False

Para probar el código, presione F5 para compilar la aplicación. Haga clic en Obtener entradas, seleccione una entrada y, a continuación, haga clic en Display. La entrada aparece en el TextBox DisplayEntry. Haga clic en Editar entrada. La entrada aparece en el TextBox Entry. Edite la entrada del TextBox Entry y haga clic en Enviar edición. Abra el archivo MyDiary.txt para confirmar la corrección. Seleccione una entrada y haga clic en Eliminar entrada. Cuando el MessageBox solicite confirmación, haga clic en Aceptar. Cierre la aplicación y abra MyDiary.txt para confirmar la eliminación.

Vea también

Referencia

StreamReader

StreamWriter

Otros recursos

Tutoriales del lenguaje Visual Basic