Ler um arquivo de texto

Artigo
08/25/2010

Nesta lição, você aprenderá como ao ler um arquivo de texto em Visual Basic usando o Objeto My.Computer.FileSystem.

A lição anterior, Escrevendo em um arquivo texto,descreve como adicionar funcionalidade ao aplicativo Visualizador de imagens que permite que você salve os nomes das suas figuras favoritas em um arquivo de texto.A próxima etapa é ler a partir de arquivo de texto.Isso permite que você veja somente suas figuras favoritas.

Básicos sobre Arquivos

Antes de ler de uma arquivo de texto, existem algumas coisas que você deve conhecer.O objeto My noVisual Basictorna trabalhar com arquivos fácil.É possível ler arquivos em um computador usando o Método My.Computer.FileSystem.ReadAllText do Objeto My.Computer.FileSystem.

Arquivos de texto que contêm sequências de caracteres separadas por vírgulas são arquivos de texto conhecido como Comma-delimited.Cada item de arquivo de texto é conhecido como um campo .Se você desejar ler o conteúdo de uma arquivo de texto comma-delimited, você pode usar o Método My.Computador.FileSystem.OpenTextFieldParser.

Nesse procedimento, você cecará de se certificar de que o arquivo de texto favoritos existe na pasta de documentos antes de tentar carregá-lo.O aplicativo exibirá uma mensagem para os usuários se o arquivo não existir.

Observação:
No Windows XP, são especiais pastas denominadas MyDocuments, MyPictures e MyMusic.No Windows Vista, essas pastas não são necessário "Meu" no nome do s ; em vez disso, elas são nomeadas documentos, imagens , e música.No entanto, o código desta lição irá executar no Windows XP e Windows Vista.

Tente-o!

Para ler um arquivo de texto Comma-Delimited

Abra o projeto Picture Viewer da lição anterior.Se você ainda não concluiu-lo, vá para Escrevendo em um arquivo texto e conclua a lição para poder continuar.
Em Solution Explorer,selecione Form1.vb e em seguida, no menu View, clique em Designer .
Adicionar um controle Button para o formulário, vizinho ao botão Add to Favorites.
Alterar as propriedades deste botão a seguir:

Propriedade

Valor

Nome

LoadFavorites

Texto

Carregar favoritos

Size (Tamanho)

85, 23
Clique duas vezes no novo controle Button para adicionar o manipulador de eventos padrão no Editor de Códigos.
No manipulador de eventos LoadFavorites_Click,adicione o seguinte código para limpar o conteúdo da caixa de listagem e da caixa de imagem.Se você não desmarcar primeiro a caixa de listagem, o caminho do arquivo e o nome serão acrescentados à lista de cada vez que você clicar no botão Carregar Favoritos.
```
' Clear the picture box and the list box.
Me.ListBox1.Items.Clear()
Me.PictureBox1.ImageLocation = ""
```

Propriedade	Valor
Nome	LoadFavorites
Texto	Carregar favoritos
Size (Tamanho)	85, 23

Adicione a seguinte declaração If para verificar se existe a arquivo de texto FavoritePictures.Caso contrário, informar ao usuário que o arquivo não existe.

Dim FavoritePictures As String = _
 My.Computer.FileSystem.SpecialDirectories.MyDocuments _
 & "\FavoritePictures.txt"
If My.Computer.FileSystem.FileExists(FavoritePictures) Then

    ' Add code to read text from a file.

Else
    MsgBox("There is no favorites file yet. Click Load" _
      & " Pictures," & vbCrLf & "select a picture, and" _
      & " then click Add to Favorites.", MsgBoxStyle.OkOnly, _
      "Picture Viewer")
End If

Substitua o comentário entre a declaração If e a declaração Else com o código a seguir.Esse código usa o método OpenTextFieldParser para ler o conteúdo do arquivo FavoritePictures.txt.Em seguida, indica que o delimitador de texto é uma vírgula.
```
' Open the FavoritePictures text file by using
' OpenTextFieldParser.
Dim MyReader As Microsoft.VisualBasic.FileIO.TextFieldParser
MyReader = My.Computer.FileSystem.OpenTextFieldParser( _
    FavoritePictures)
MyReader.SetDelimiters(",")
```

Adicione o seguinte código abaixo o código adicionado na etapa anterior.Este código percorre os campos do arquivo de texto e, em seguida, verifica se cada arquivo existe antes de adicioná-lo para o controle ListBox.Ele, em seguida, fecha o TextFieldParser.

' Using a comma (,) as a delimeter, parse each field in 
' the text file and add it to the list box.
Dim textFields As String() = MyReader.ReadFields()
For Each currentField As String In textFields
   If My.Computer.FileSystem.FileExists(currentField) Then
        Me.ListBox1.Items.Add(currentField)
   End If
Next

' Close the TextFieldParser.
MyReader.Close()

Pressione F5 para executar o código.
Clique no botão Carregar Favoritos para carregar os arquivos listados no arquivo FavoritePictures.txt.
Clique em um item de caixa de listagem para exibir a imagem no Vizualizador de Imagens.

Próximas etapas

Nesta lição, você aprendeu como ler um arquivo de texto Comma-delimited e adicionar cada item do arquivo a uma lista.Na próxima lição, você aprenderá como excluir o arquivo de texto favoritos da pasta Documentos.

Próxima Lesson: Excluindo um arquivo de texto