Criar um arquivo txt, utilizando a instrução OPEN
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
A instrução OPEN nos permite ler ou gravar dados em um arquivo de texto (txt). A sintaxe reduzida da OPEN é esta:
OPEN Caminho e nome do arquivo FOR mode AS #NúmeroArquivo
...
CLOSE #NúmeroArquivo
Para criarmos um arquivo txt, utilizamos o argumento mode = Output
'Cria o arquivo txt
OPEN "c:\MinhaPasta\meuArquivo.txt" FOR Output AS #1
print #1, "Oi, mundo" 'acrescenta uma linha
print #1, "Brasil 2018" 'acrescenta outra linha
Close #1
Para lermos um arquivo txt, utilizamos o argumento mode = Input.
'Lê o arquivo txt já criado
Dim strLinhas as String
OPEN "c:\MinhaPasta\meuArquivo.txt" FOR Input AS #1
Do while not eof(1) 'percorre todas as linhas do arquivo texto
Line Input #1, strLinha 'passa o conteúdo da linha para a string strLinha
debug.print strlinha 'imprime o resultado da linha na janela Imediata
loop
Close #1
Para acrescentarmos novas linhas a um arquivo txt , utilizamos o argumento mode = Append.
'Lê o arquivo txt já criado e posiciona o cursor em uma nova linha
OPEN "c:\MinhaPasta\meuArquivo.txt" FOR Append AS #1
'acrescenta essa nova linha, logo após a última linha existente
print #1, "Oi mundo"
'acrescenta outra linha
print #1, "Brasil 2018"
Close #1
Nota: se o arquivo não existir, o Append criará um novo.
Podemos acessar o arquivo de uma pasta compartilhada em rede.
'Lê um arquivo txt de uma pasta na rede
OPEN "\\MeuServidor\MinhaPasta\meuArquivo.txt" FOR Input AS #1
Se o computador servidor usar o IP fixo, poderemos utilizá-lo para termos acesso ao arquivo.
'Lê um arquivo txt de uma pasta no servidor, usando o IP fixo
OPEN "\\192.168.0.100\MinhaPasta\meuArquivo.txt" FOR Input AS #1
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Aprenda sobre filtragens
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Programação de relatórios - Parte 1
Como carregar o seu menu sem que ele vá para lista de suplementos
Vídeo - Criando Ribbons parte 1 - Conhecendo a estrutura Xml
| Não há comentário |