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
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é 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 

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: