bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Criar um arquivo txt, utilizando a instrução OPEN

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,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

Antes de iniciar sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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: