+ Uma Duvida Minha =/

[LiMãØ]

seguinte galera, eu tenho um form e nesse form eu tenho uma listbox.... como q eu faco p/ pegar um arquivo de texto que tah numa pasta e listar nessa listbox???

exemplo: eu tenho no arquivo .txt as seguintes linhas:

"teste"

"testando"

"BlaH!"

"QwErTy"

como q eu faco p/ listar todas as linhas na listbox???

tnks for any help (vixi.... mania de forum em ingles... aff...)

[Decio]

tenta assim:

Open"arquivo.xxx" for input as #1

Do Until EOF(1)

input #1, strLine

list1.additem strLine

loop

Close #1

Obs: Não testei o código, mas deve funcionar...

[LiMãØ]

beleza, vou tentar..... qualquer coisa eu posto aqui... =)

valeus...

[LiMãØ]

okz, o codigo:

Open "aquivo.xxx" For Input As #1
Do Until EOF(1)
Input #1, strLine
List1.AddItem strLine
Loop
Close #1

funcionou certinho.... + ai surgiu outras duvidas (affz )... seguinte, agora eu tenho na list 3 linhas

"teste 1"

"teste 2"

"teste 3"

1o) como q eu faco p/ quando eu selecionar algum deles na listbox, ele copiar p/ uma textbox???

exemplo: eu seleciono "teste 2" e dai na textbox aparece "teste 2"

2o) e como eu faco p/ quando clicar em um botao, o programa abrir o "arquivo.xxx"

agradeco desde já qualquer ajuda...

[Decio]

e como eu faco p/ quando clicar em um botao, o programa abrir o "arquivo.xxx

Bastaria colocar este código no evento Click ou Double Click do listBox:

Text1.Text = List1.Text

como q eu faco p/ quando eu selecionar algum deles na listbox, ele copiar p/ uma textbox???

Basta colocar o código de abertura de arquivo no evento Click do botão

[LiMãØ]

Bastaria colocar este código no evento Click ou Double Click do listBox:

Text1.Text = List1.Text

valeu

Basta colocar o código de abertura de arquivo no evento Click do botão

e qual seria o evento de abertura???

[Decio]

Não é bem isso. Coloque um CommandButton em seu projeto e insira o código abaixo:

Private Sub Command1_Click()
 Open "aquivo.xxx" For Input As #1
   Do Until EOF(1)
    Input #1, strLine
     List1.AddItem strLine
     Loop
 Close #1

End Sub

Fica bom também você colocar o código no form load, assim não é preciso clicar em nada para preencher o list box.

[LiMãØ]

tipow, esse comando eu coloquei lá no load do meu form... + eu queria q quando clicasse no botao, o meu programa abrisse o "arquivo.xxx" p/ o usuario poder adicionar suas proprias frases... você poderia colocar o codigo p/ mim p/ abrir??? e outra, tem como eu, atraves de um textbox, adicionar linhas nesse "aquivo.xxx"??? ai seria melhor porque não precisaria abrir o arquivo de texto, eu abriria um outro form e dai o usuario inseria o novo texto e o programa salvaria o .txt....

valeus pela ajuda

[Decio]

eu queria q quando clicasse no botao, o meu programa abrisse o "arquivo.xxx" p/ o usuario poder adicionar suas proprias frases... você poderia colocar o codigo p/ mim p/ abrir??? e outra, tem como eu, atraves de um textbox, adicionar linhas nesse "aquivo.xxx"???

Para adicionar , você pode usar o código abaixo:

Open "aquivo.xxx" For Append As #1
  Print #1, Text1.Text
Close #1

você pode colocar o código acima em um botão , ou mesmo no evento KeyPress do TextBox para quando a pessoa teclar ENTER já gravar .Neste caso você tem que tratar o que esta sendo digitado, senão tudo que o cara digitar vai ser gravado.

[LiMãØ]

cara, valeu =) tudo funciona certinho agora =) ... + me diz uma coisa, como q eu posso deletar a uma linha q o usuario escolher???

exemplo:

eu tenho 3 linhas

"teste 1"

"teste 2"

"teste 3"

dai o usuario seleciona na listbox a 2a linha ("teste 2") dai clica em um botao e o programa remove somente essa linha do "aquivo.xxx"

cara, valeus por toda a ajuda q você tah me dando, e valeu pela paciencia também...

[Decio]

Vou te passar um tópico parecido, a unica diferença é que o código é para editar ao invés de excluir, mas a logica é parecida.Tenta ver se isso te ajuda:

http://scriptbrasil.com.br/forum/index.php...topic=21134&hl=