[Resolvido] Load de um arquivo .Txt

[Sko.Lex 0]

Galera, sou iniciante de VB e estou com um problema que não consigo solucionar:

 

Quero fazer o load do conteúdo de um (arquivo.Txt) para um (ListBox) " sem que fique tudo em uma linha.

 

o código atual que estou usando é o seguinte:

 

Private Sub Btn_Load Click...

ListBox.Items.Add(My.Computer FileSystem ReadAllText(LocalSaveNomes))

End Sub

Bom o que acontece é que esta ficando tudo em 1 linha só, como mostrado abaixo:

 

Nome 䈠䈠 Nome2 䈠䈠 Nome3 䈠䈠 Nome4 䈠䈠

 

 

Tentei muito usar ARRAY para tentar adicionar no listbox mas não consegui aplicar de nenhuma forma.

 

Quem puder me ajudar agradeço muito.

[Claudio Neto 3]

É porque você está usando ReadAllText. Ele lê todo o texto de uma vex e adiciona.

 

Você precisa criar um loop que leia linha por linha do seu arquivo e utilizar o ReadLine ao invés do ReadAll.

 

Tenta aí, se não precisar de ajuda poste.

[Sko.Lex 0]

Ixe...

Vou precisar de uma ajudinha...

fiquei um bom tempo tentando achar como se faz

mas não consegui...100%

tipo...ou mostra só a primeira linha ou só a ultima linha do arquivo .Txt e parece que o contador nao faz a menor diferença (explicarei)

 

o código que fiz é o seguinte:

 

 

Dim ListaRead As System.IO.TextReader

 

For Cont As Byte = 1 To 10

ListaRead = (My.Computer.FileSystem.OpenTextFileReader(LocalSaveNomes))

ListaRead.ReadLine.contains(Cont)

ListBox.Items.Add(ListaRead.ReadLine)

ListaRead.Close()

Next

 

 

Nele onde esta escrito:

 

ListaRead.ReadLine.contains(Cont)

 

se eu deixar apenas

 

ListaRead.ReadLine

 

da no mesmo, e se eu deixar apenas

 

ListaRead.Read

 

Ele mostra apenas a primeira linha

 

Tem como me explicar o que acontece aqui ???

 

vlw !!^^

[Sko.Lex 0]

Po seria legal se alguem me desse um exemplo de comos se faz...

uma explicaçãozinha !^^

[Claudio Neto 3]

Tente fazer assim:

 

do while not ListaRead.AtEndOfStream
   listBox.additem ListaRead.ReadLine
loop

A primeira linha do loop faz com que rode o arquivo até enquanto chegar na última.

Depois adiciona linha a linha no list.

[Sko.Lex 0]

Ae ^^

Consegui !!

Brigadão ae finalmente deu certo...

 

O código ficou assim:

 

 ListaRead = (My.Computer.FileSystem.OpenTextFileReader(LocalSaveNomes))
        Do While Not ListaRead.EndOfStream
            ListBox_ContasNome.Items.Add(ListaRead.ReadLine)
        Loop
        ListaRead.Close()

Até Mais