Passar valores de lisbox para arquvo texto

[Meokor 0]

Aew pessoal do fórum,

 

Gostaria de saber como eu posso ta passando os valores de listbox para um arquivo de texto (*.txt).

Necessitava saber como ficaria a rotina de pegar as linhas do listbox e grava-las no arquivo texto. Se alguém aqui souber, por favor ajude-me.

 

 

Obrigado

Meokor.

[Luizgrs 0]

Para passar por todas as linhas de um listbox você pode utilizar um for tendo como limite a propriedade listcount do listbox, e para acessar os itens a propriedade list.

 

Para criar um arquivo você pode utilizar algo nativo como:

Open "caminho_completo_do_arquivo" For Output as #1
	Print #1, "texto" 'a cada print uma linha é criada no arquivo
Close #1

[Meokor 0]

Obrigado aew amigão, jah me deu uma luz de como ficaria... tava meio sem lógica o que eu havia escrito. :)

[Marhault 1]

Complementando... A rotina para percorrer o ListBox e salvando cada linha no arquivo de texto:

Open "caminho_completo_do_arquivo" For Output As #1

For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next

Close #1

[Meokor 0]

Obrigado amigos :) :)

Foi exatamente essa rotina que escrevi aki Marhault.

 

Agredeço a atenção pelo meu caso.