Compartilhar via

Instruções passo a passo: manipulando arquivos usando métodos do .NET Framework (Visual Basic)

  • Artigo

Estas instruções passo a passo demonstram como abrir e ler um arquivo usando a classe StreamReader, verificar se um arquivo está sendo acessado, pesquisar uma cadeia de caracteres dentro de um arquivo lido com uma instância da classe StreamReader e gravar em um arquivo usando a classe StreamWriter.

Observação

Seu computador pode mostrar diferentes nomes ou locais para alguns dos elementos de interface do usuário do Visual Studio nas instruções a seguir. A edição do Visual Studio que você possui e as configurações que você usa determinam esses elementos. Para obter mais informações, consulte Personalizando o IDE.

Criando o aplicativo

Inicie o Visual Studio e comece o projeto criando um formulário que o usuário pode usar para gravar no arquivo designado.

Para criar o projeto

  1. No menu Arquivo, selecione Novo Projeto.

  2. No painel Novo Projeto, clique em Aplicativos do Windows.

  3. Na caixa Nome, digite MyDiary e clique em OK.

    O Visual Studio adiciona o projeto ao Gerenciador de Soluções e o Designer de Formulários do Windows é aberto.

  4. Adicione os controles na tabela a seguir ao formulário e defina os valores correspondentes para as respectivas propriedades.

Objeto Propriedades Valor
Button Nome

Texto		 Submit

Enviar entrada
Button Nome

Texto		 Clear

Limpar entrada
TextBox Nome

Texto

Multilinha		 Entry

Digite algo.

False

Gravando no arquivo

Para adicionar a capacidade de gravar em um arquivo por meio do aplicativo, use a classe StreamWriter. StreamWriter foi criado para a saída de caracteres em uma determinada codificação, enquanto a classe Stream foi criada para entrada e saída em bytes. Use StreamWriter para gravar linhas de informações em um arquivo de texto padrão. Para saber mais sobre a classe StreamWriter, veja StreamWriter.

Para adicionar a funcionalidade de gravação

  1. No menu Exibição, escolha Código para abrir o Editor de código.

  2. Como o aplicativo faz referência ao namespace System.IO, adicione as seguintes instruções ao início do seu código, antes da declaração de classe para o formulário, que inicia Public Class Form1.

    Imports System.IO

    Antes de gravar no arquivo, você precisa criar uma instância de uma classe StreamWriter.

  3. No menu Exibição, escolha Designer para voltar para o Designer de Formulários do Windows. Clique duas vezes no botão Submit para criar um manipulador de eventos Click para o botão e adicione o código a seguir.

    Dim fw As StreamWriter

Observação

O IDE (ambiente de desenvolvimento integrado) do Visual Studio retornará ao Editor de código e posicionará o ponto de inserção dentro do manipulador de eventos, no qual você deve adicionar o código.

  1. Para gravar o arquivo, use o método Write da classe StreamWriter. Adicione o código a seguir diretamente após Dim fw As StreamWriter. Você não precisa se preocupar se uma exceção será gerada caso o arquivo não seja encontrado, porque ele será criado se ainda não existir.

    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. Certifique-se de que o usuário não possa enviar uma entrada em branco adicionando o código a seguir diretamente após Dim ReadString As String.

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

  3. Como este é uma diário, o usuário desejará atribuir uma data a cada entrada. Insira o código a seguir após fw = New StreamWriter("C:\MyDiary.txt", True) para definir a variável Today como a data atual.

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

  4. Por fim, anexe o código para limpar a TextBox. Adicione o seguinte código ao evento Click do botão Clear.

    Entry.Text = ""

Adicionando recursos de exibição ao diário

Nesta seção, você adiciona um recurso que exibe a última entrada em DisplayEntryTextBox. Você também pode adicionar uma ComboBox que exiba várias entradas e a partir da qual um usuário pode selecionar uma entrada para exibir o DisplayEntryTextBox. Uma instância da classe StreamReader é lida de MyDiary.txt. Como a classe StreamWriter, o StreamReader deve ser usado com arquivos de texto.

Para esta seção do passo a passo, adicione os controles na tabela a seguir ao formulário e defina os valores correspondentes para as respectivas propriedades.

Control Propriedades Valores
TextBox Nome

Visível

Tamanho

Multilinha		 DisplayEntry

False

120,60

True
Button Nome

Texto		 Display

Exibição
Button Nome

Texto		 GetEntries

Obter entradas
ComboBox Nome

Texto

Enabled		 PickEntries

Selecionar uma entrada

False

Para popular a caixa de combinação

  1. A PickEntriesComboBox é usada para exibir as datas em que um usuário envia cada entrada, para que o usuário possa selecionar uma entrada de uma data específica. Crie um identificador de evento Click para o botão GetEntries e adicione o seguinte código.

    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 testar seu código, pressione F5 para compilar o aplicativo e, então, clique em Obter entradas. Clique na seta do menu suspenso no ComboBox para exibir as datas de entrada.

Para escolher e exibir entradas individuais

  1. Crie um manipulador de eventos Click para o botão Display e adicione o seguinte código.

    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 testar seu código, pressione F5 para compilar o aplicativo e, então, envie uma entrada. Clique em Obter Entradas, selecione uma entrada da ComboBox e clique em Exibir. Os conteúdos da entrada selecionada são exibidos no DisplayEntryTextBox.

Habilitando usuários a excluir ou modificar entradas

Por fim, você pode incluir uma funcionalidade adicional que permite que os usuários excluam ou modifiquem uma entrada usando os botões DeleteEntry e EditEntry. Os dois botões permanecem desabilitados a menos que uma entrada seja exibida.

Adicione os controles na tabela a seguir ao formulário e defina os valores correspondentes para as respectivas propriedades.

Control Propriedades Valores
Button Nome

Texto

Enabled		 DeleteEntry

Excluir entrada

False
Button Nome

Texto

Enabled		 EditEntry

Editar entrada

False
Button Nome

Texto

Enabled		 SubmitEdit

Enviar edição

False

Para habilitar a exclusão e modificação de entradas

  1. Adicione o seguinte código ao evento Click do botão Display , depois de DisplayEntry.Text = ReadString.

    DeleteEntry.enabled = True

  2. Crie um manipulador de eventos Click para o botão DeleteEntry e adicione o seguinte código.

    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. Quando um usuário exibe uma entrada, o botão EditEntry fica habilitado. Adicione o seguinte código ao evento Click do botão Display, depois de DisplayEntry.Text = ReadString.

    EditEntry.Enabled = True

  4. Crie um manipulador de eventos Click para o botão EditEntry e adicione o seguinte código.

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

  5. Crie um manipulador de eventos Click para o botão SubmitEdit e adicione o seguinte código

    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 testar seu código, pressione F5 para compilar o aplicativo. Clique em Obter Entradas, selecione uma entrada e clique em Exibir. A entrada aparece na DisplayEntryTextBox. Clique em Editar entrada. A entrada aparece na EntryTextBox. Edite a entrada na EntryTextBox e clique em Enviar Edição. Abra o arquivo MyDiary.txt para confirmar a correção. Agora, selecione uma entrada e clique em Excluir entrada. Quando o MessageBox solicita confirmação, clique em OK. Feche o aplicativo e abra MyDiary.txt para confirmar a exclusão.

Confira também