COMO SALVAR UMA LISTBOX EM .TEXT

FERATK 03/09/2010 20:41:26
#352161
Olá pessoal!!
Estou prescisando salvar todo o conteudo da minha listbox!
Só que eu quero que salve em um arquivo .txt mas o problema esta no fato de que eu presciso que sempre salve logo abaixo da ultima vez que salvou tipo:


conta A
salva o listbox com a conta a no arquivo [Ô]contas.text[Ô]

Quando eu salvar novamente salve logo abaixo da conta A no mesmo txt


No fim de tudo eu quero que o txt fique assim:
Conta A

--------------------------------------------
Conta B
TECLA 03/09/2010 21:12:12
#352168 
Imports System.IO

Dim arq As New StreamWriter([Ô]C:\log.txt[Ô], True)
arq.WriteLine([Ô]Gravado as [Ô] & DateTime.Now.ToString())
arq.Close()
FERATK 04/09/2010 01:09:04
#352185
tecla não entendi direito, não tem como vocÊ fazer um video para mim ter noção de como é pra ser feito
grato.
Felipe
TECLA 04/09/2010 09:26:41
#352192
Escrevi um artigo sobre isso há algum tempo.
http://sites.google.com/site/programacaoonline/family-blog/vb-net/criando-arquivo-de-texto
Altere o valor False para True no código fonte.
FERATK 04/09/2010 12:32:49
#352202
Citação:

:
Escrevi um artigo sobre isso há algum tempo.
http://sites.google.com/site/programacaoonline/family-blog/vb-net/criando-arquivo-de-texto
Altere o valor False para True no código fonte.


Cara tem um problema O que eu quero salvar é uma listbox e não um texto pré defiido.
TECLA 04/09/2010 14:28:00
#352206
O conceito é o mesmo, você só precisa PERCORRER os ITENS do LISTBOX e chamar o método WRITELINE a cada iteração.

Exemplo:
Dim arq As New IO.StreamWriter([Ô]C:\Arq.txt[Ô], True)
For i As Integer = 0 To ListBox1.Items.Count - 1
     arq.WriteLine(ListBox1.Items(i).ToString())
Next
arq.WriteLine([Ô]---[Ô])
arq.Close()
MsgBox([Ô]Concluído![Ô])
FERATK 04/09/2010 18:30:43
#352225
Citação:

:
O conceito é o mesmo, você só precisa PERCORRER os ITENS do LISTBOX e chamar o método WRITELINE a cada iteração.

Exemplo:

Dim arq As New IO.StreamWriter([Ô]C:Arq.txt[Ô], True)
For i As Integer = 0 To ListBox1.Items.Count - 1
     arq.WriteLine(ListBox1.Items(i).ToString())
Next
arq.WriteLine([Ô]---[Ô])
arq.Close()
MsgBox([Ô]Concluído![Ô])


Tecla o unico problema é que se não existir o diretório e o arquivo tem que cria-los
mas o resto esta ok
ESLEYSANCHES 04/09/2010 21:16:13
#352237
Amigão ... Fiz um projeto completo para você dr uma olhada.
Acabou de sair do forno rsrs.

teste que com certeza vai te ajudar


Abraços !!
FERATK 04/09/2010 22:27:48
#352240
Citação:

:
Amigão ... Fiz um projeto completo para você dr uma olhada.
Acabou de sair do forno rsrs.

teste que com certeza vai te ajudar


Abraços !!


muito interessante o teu aplicativo mas o que eu quero é que faça uma coisa automática mas o guardarei com muito cuidado pois será muito util
ESLEYSANCHES 04/09/2010 22:58:45
#352244
Automatico é a mesma coisa, você somente irá definir qual é o caminho.
Por exmeplo, vamos dizer q o caminho é [Ô]C:    este.txt[Ô]. Ficaria assim:

[ô]Cria a variavel caminho e guarda o endereço do caminho
Dim caminho as string
Caminho = [Ô]C:    este.txt[Ô]

[ô]Verifica se o arquivo existe
If IO.File.Exists(Caminho) = False Then
    [ô]O Arquivo não existe cria um novo arquivo
    IO.File.Create(Caminho).Close()
End If

[ô]Cria o StreamWriter para escrver em arquvios
Dim ESCREVER As New IO.StreamWriter(Caminho)
[ô]variavel para percorrer o ListBox e salvar linha por linha
Dim i As Integer

For i = 0 To ListBox1.Items.Count - 1
    ESCREVER.WriteLine(ListBox1.Items(i))
Next

[ô]Fecha o stream do arquivo e finaliza
ESCREVER.Close()


Melhor que isso só dois disso.
rsrsrs
Abraços !!
PHANTOM 11/09/2010 17:52:12
#352735
Ei kras, estou acompanhando este tópico pq tbm vai ser mto útil para mim.
Pegando krona na pergunta do FERATK, como que faz o processo invers? Ou seja, supondo q o arquivo já esteja salvo... Eu quero q meu Listbox carregue o txt a partir do arquivo salvo. Procurei no fórum mas não achei nada a respeito.
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar