ARQUIVO TEXTO

ARNALDOCRUZ 17/09/2010 11:35:08
#353210
Tenho o código abaixo que ler um arquivo txt

o porem é que onde tem acentos vem um quadradinho.

alguem sabe como resolve este babado

Dados= Day(date) [Ô] /[Ô] 7 month(Date)
Dim fileReader As System.IO.StreamReader
If My.Computer.FileSystem.FileExists([Ô]C:\Farmacia\DiasComemorativos.txt[Ô]) Then
fileReader = My.Computer.FileSystem.OpenTextFileReader([Ô]C:\Farmacia\DiasComemorativos.txt[Ô])
While Not fileReader.EndOfStream()
linhaTexto = fileReader.ReadLine()
If Mid(linhaTexto, 1, 5) = Dados Then
Me.ToolStripStatusLabel8.Text = [Ô]Hoje é [Ô] & Mid(linhaTexto, 8, Len(linhaTexto))
Exit While
End If
End While
fileReader.Close()
End If
TECLA 17/09/2010 20:57:19
#353267 Resposta escolhida
Isso aqui deve resolver.
Dim arq As New IO.StreamReader([Ô]C:\Texto.txt[Ô], System.Text.Encoding.Default)
TextBox1.Text = arq.ReadToEnd()
arq.Close()
Tópico encerrado , respostas não são mais permitidas
Voltar