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

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.

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.

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
   

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.

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.

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

• StreamReader
• StreamWriter
• Passo a passo