COMO LER ARQUIVOS .TXT

FERATK 17/09/2010 19:13:06
#353259
pessoal preciso ler arquivos .txt em um aplicativo meu, de preferencia em um listbox:
Eu quero que seja com um [Ô]fileopendialog[Ô] (ñ sei como se escreve, mas acho que é assim/0.

Obrigado a todos
TECLA 17/09/2010 20:37:47
#353262
Veja se esse exemplo te ajuda.
FERATK 18/09/2010 11:41:12
#353290
tecla o exemplo não ajudou muito
PEGUDO 20/09/2010 10:43:58
#353400 Resposta escolhida
Eu renomeei minha OpenFileDialog como JanelaAbrir e fiz:

[txt-color=#0000f0]Private Sub [/txt-color]btnCarregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)[txt-color=#0000f0] Handles [/txt-color]btnCarregar.Click
[txt-color=#0000f0]Dim[/txt-color] Arquivo [txt-color=#0000f0]As String[/txt-color]

ListBox1.Items.Clear()

[txt-color=#0000f0] With [/txt-color]JanelaAbrir
.Filter = [txt-color=#e80000][Ô]Arquivos de texto (*.txt)|*.txt[Ô][/txt-color]
.InitialDirectory = [txt-color=#e80000][Ô]C:[Ô][/txt-color]
.Title = [txt-color=#e80000][Ô]Abrir arquivo de texto[Ô][/txt-color]
[txt-color=#0000f0]End With[/txt-color]
[txt-color=#0000f0]If[/txt-color] JanelaAbrir.ShowDialog = Windows.Forms.DialogResult.OK [txt-color=#0000f0]Then[/txt-color]
Arquivo = JanelaAbrir.FileName

[txt-color=#0000f0]Dim[/txt-color] txt [txt-color=#0000f0]As New [/txt-color]StreamReader(Arquivo)

[txt-color=#0000f0]While Not [/txt-color]txt.EndOfStream
ListBox1.Items.Add(txt.ReadToEnd)
[txt-color=#0000f0]End While[/txt-color]

txt.Close()
[txt-color=#0000f0] End If
End Sub[/txt-color]

Abraços
FERATK 20/09/2010 19:15:39
#353451
cara ta quase tudo certo, só falta informar para que deve haver várias linhas (uma abaixo da outra), não uma linha para tudo, como faço isso?
PEGUDO 21/09/2010 08:56:21
#353482
Cara foi mal, o erro foi meu.

Troque esta linha:

ListBox1.Items.Add(txt.ReadToEnd)

por esta:

ListBox1.Items.Add(txt.ReadLine)

Veja se funciona.

Abraços.
FERATK 21/09/2010 17:10:09
#353524
Citação:

:
Cara foi mal, o erro foi meu.

Troque esta linha:

ListBox1.Items.Add(txt.ReadToEnd)

por esta:

ListBox1.Items.Add(txt.ReadLine)

Veja se funciona.

Abraços.


Perfeito era exatamente o que eu esperava.
Tópico encerrado , respostas não são mais permitidas
Voltar