Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

kornetu

CommonDialog

Recommended Posts

Bom Dia, eu não sei trabalhar com arquivos no VB 6. Tem um form com a seguinte estrutura:

 

(lblNome) Digite seu Nome: (txtNome)

 

(lblEndereço) Digite Endereço: (txtEndereço)

 

Nesse form também eu crio os botões 'SAVAR' e 'ABRIR', minha dúvida é: Usando o 'CommonDialog' como eu faço para salvar o que a pessoa digita num arquivo .txt, e depois para abrir esse arquivo .txt fazer com que apareça nos respectivos campos o que a pessoa digitou.

ex.:

-----------------------------------------

(lblNome) Digite seu Nome: (txtNome)

 

(lblEndereço) Endereço: (txtEndereço)

-----------------------------------------

 

(lblSeuNome) O Nome Encontrado: (lblNomeDigitado)

(lblSeuEndereço) Endereço Encontrado: (lblEndereçoDigitado)

 

O que eu quero fazer é salvar os dados em arquivos .txt para cada usuário, ou seja os dados de cada usuário ficarão gravados nos respectivos .txt para consulta posterior. Se houver outra maneira mais fácil de fazer isso sem usar o 'commondialog'...

Obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

Na verdade, não é o CommonDialog que salva o arquivo texto. Ele apenas indica o caminho selecionado.

É mais ou menos assim

Open "C:\Caminho\do\arquivo.txt" For Output As #1
  Print #1, "O que eu quero que grave no arquivo texto"
  Close #1

Qualquer duvida pode voltar a postar cara.!

 

Abraços!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Na verdade, não é o CommonDialog que salva o arquivo texto. Ele apenas indica o caminho selecionado.

É mais ou menos assim

Open "C:\Caminho\do\arquivo.txt" For Output As #1
  Print #1, "O que eu quero que grave no arquivo texto"
  Close #1

Qualquer duvida pode voltar a postar cara.!

 

Abraços!

qual o significado: #1

Compartilhar este post


Link para o post
Compartilhar em outros sites

#1 seria o arquivo aberto na memória. Você poderia trocar por

Dim Arquivo as Integer
Arquivo = FreeFlie

Dai no lugar do #1, você colocaria #Arquivo.

 

Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

Mas lembrando que é necessário saber esse número para manipular o arquivo. Se você abriu o #1 tem que fechar o #1, se for abrir um outro arquivo diferente, não poderá ser mais o #1, e sim o #2 ou qualquer outro número. a função FreeFile retorna o menor número de apontamento de arquivo disponível na aplicação.

 

Paulo Mendes.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.