'Este exemplo mostra ler o conteúdo de um arquivo
'texto uma linha de cada vez.
'Veja o link:
'para mais informações sobre a classe StreamReader
Imports System.IO
Module Module1
Sub Main()
Try
'define o diretório atual
Directory.SetCurrentDirectory("c:\estudos_vb")
'cria uma instância da classe StreamReader para ler
'a partir do arquivo
Dim sr As StreamReader = New StreamReader("teste.txt", _
System.Text.Encoding.Default)
Dim linha As String
Do
'lê uma linha de cada vez
linha = sr.ReadLine()
Console.WriteLine(linha) 'escreve a linha
Loop Until linha Is Nothing
sr.Close() 'fecha o fluxo de dados
Catch e As Exception
Console.Write("Erro ao ler o arquivo: ")
Console.WriteLine(e.Message)
End Try
Console.WriteLine()
Console.WriteLine("Pressione uma tecla para sair...")
Console.ReadKey()
End Sub
End Module
Link para compartilhar na Internet ou com seus amigos:
