LISTBOX PARA .TXT
Opa...
Esse é meu primeiro post, e gostaria de saber como que eu faço para pegar os dados de uma listbox e salva-los em um arquivo .txt.
O seja, tenho um programa que acessa meu banco de dados, onde coloco o codigo do produto, e o produto aparece na listbox, gostaria que qdo eu apertasse o botao de concluir, os produtos da listbox fossem salvos num arquivo .txt
Obrigado
Esse é meu primeiro post, e gostaria de saber como que eu faço para pegar os dados de uma listbox e salva-los em um arquivo .txt.
O seja, tenho um programa que acessa meu banco de dados, onde coloco o codigo do produto, e o produto aparece na listbox, gostaria que qdo eu apertasse o botao de concluir, os produtos da listbox fossem salvos num arquivo .txt
Obrigado
Veja se é isto que pretende:
Private Sub Command1_Click()
Dim I As Integer
Open "c:\Arquivo.txt" For Append As #1
For I = 0 To List1.ListCount - 1
Print #1, List1.List(I)
Next I
Close #1
End Sub
TUBINHA
para sobreescrever os dadosod arquivo substitua Append por Output
Para ler o conteudo de um arquivo use o código abaixo:
para sobreescrever os dadosod arquivo substitua Append por Output
Para ler o conteudo de um arquivo use o código abaixo:
Sub LoadList(Lst As ListBox, file As String)
On Error GoTo Error
Open file For Input As #1
Do Until EOF(1)
Input #1, a$
Lst.AddItem a$
Loop
Close 1
Exit Sub
error:
X = MsgBox("File Not Found", vbOKOnly, "Error")
End Sub
Tópico encerrado , respostas não são mais permitidas