TEXTBOX TXT E CLEAR TEXTBOX DUVIDA

FROSTYNHO 07/12/2006 09:50:20
#188494
galera estou com o seguinte problema eu estou fazendo projeto aki no qual eu preciso que ele altere umas linhas de um arquivo de texto.

exemplo:

o arquivo de texto (.txt) é assim:

IPs Porta
0 0 211.233.25.197
0 1 211.233.25.197
1 0 211.233.25.198 3000
1 1 211.233.25.199 3000
1 2 211.233.25.200

e eu fiz um textbox para cada IP e pra cada Porta só que eu não sei como faze com que digite nas textbox's e ele salve no (.txt)

Obrigado + uma vez galera
FROSTYNHO 07/12/2006 09:52:44
#188496
outra coisa como eu posso fazer pra limpar só um textbox vi uns exemplos aqui no site mais ele limpam todos os textbox do form.
USUARIO.EXCLUIDOS 07/12/2006 10:30:32
#188514

bem se eu entendi, como vc utiliza um text box pra cada, voce vai ter q fazer referencia a todos qnd escrever no arquivo texto, implemente isso:

Dim f as Integer, Arquivo as string
f = FreeFile
arquivo = app.path & "egistros.txt"

Open Arquivo for Output as #f

Print #f, txtIP1 & txtPrta1
.
.

Close #f
FROSTYNHO 07/12/2006 13:56:04
#188586
não intendi... pode explicar melhor?
FROSTYNHO 07/12/2006 14:38:40
#188595
é assim...

aqui é o txt aberto:

0 0 211.233.25.197
0 1 211.233.25.197
1 0 211.233.25.198 3000
1 1 211.233.25.199 3000
1 2 211.233.25.200

e eu quero que se eu digitar 192.168.10.101 no textbox e clicar em um botão pra salvar, ele vai alterar a 1Âê linha do txt ficando assim:

0 0 192.168.10.101
0 1 211.233.25.197
1 0 211.233.25.198 3000
1 1 211.233.25.199 3000
1 2 211.233.25.200

(cada IP tem um textbox)
USUARIO.EXCLUIDOS 07/12/2006 15:18:09
#188607
ehh...mais facil vc criar um novo arquivo texto com todos novamente, do que alterar somente o primeiro...pelo menos axo, pode ser que alguem tenha uma outra ideia
FROSTYNHO 07/12/2006 16:00:04
#188619
agora deu!!! eu fiz assim:

Dim f As Integer, Arquivo As String
f = FreeFile
Arquivo = App.Path & "\serverlist.txt"

Open Arquivo For Output As #f

Print #f, 0; 0; txt_lip1
Print #f, 0; 1; txt_lip2
Print #f, 0; 1; txt_iip1 & " "; txt_port1
Print #f, 1; 1; txt_iip2 & " "; txt_port2
Print #f, 1; 2; txt_lip3


Close #f

só que ta ficando com um espaço no primeiro caracter como eu faço pra tirar esse espaço?
USUARIO.EXCLUIDOS 07/12/2006 16:20:46
#188631 Resposta escolhida
Cara, tente assim:

Dim f As Integer, Arquivo As String
f = FreeFile
Arquivo = App.Path & "\serverlist.txt"

Open Arquivo For Output As #f

Print #f, "0  0 " & txt_lip1
Print #f, "0  1 " & txt_lip2
Print #f, "0  1 " & txt_iip1 & " "; txt_port1
Print #f, "1  1 " & txt_iip2 & " "; txt_port2
Print #f, "1  2 " & txt_lip3
  
  
Close #f



flw
FROSTYNHO 07/12/2006 16:22:07
#188633
issooowwwww!!!!
Tópico encerrado , respostas não são mais permitidas
Voltar