Prezados Amigos,

 

Preciso fazer a leitura de um arquivo TXT linha por linha para analisar o conteúdo de cada uma delas e depois tomar decisões de acordo com estes valores.

 

Um exemplo de estrutura do arquivo é:

 

000-000 = CRT
001-000 = 1
002-000 = 123456
003-000 = 15000
999-999 = 0

Aguém tem uma dica para me dar para eu poder capturar estes dados.

 

Agradeço desde já.

Grande Abraço!!

Henrique Ribas

 

 

Open "ARQUIVO.Txt" For Input As #1     ' informe todo o caminho

 

Do While Not EOF(1)

 Line Input #1, VARIAVEL       

Wend

 

Valeu!!!!

 

  Dim ABC As String
  Open "U:Meus DocumentosTabelasMenusFin.txt" For Input As #1
  Do While Not EOF(1)
    Line Input #1, ABC

    if ... ABC ...

  Loop
  Close #1