... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Criar um arquivo txt, utilizando a instrução OPEN

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!


 

 


Não há comentário

Envie seu comentário: