Boa tarde Galera...

Preciso de uma ajuda. Tenho que ler um determinado arquivo de texto, fazer algumas verificações e depois salvar como outro nome (Criar uma copia com as alterações).

veja o exemplo:

codigo                                 descrição                              preço      data           

09090400800000000000000001PAO FRANCES                        0000015 09092004

09090400800000000000000001PAO DOCE                             0000050 07092004    

Quero ver se o campo data é igual a do dia atual...Caso seja, vou fazer uma alteração no campo preço (por exemplo) e depois salvar com a mesma estrutura e com outro nome.

Alguem me ajuda ????   

  Dim ABC As String
  Open "x:     xtativoinvbensret" For Input As #1
  Do While Not EOF(1)
    Line Input #1, ABC
    If CDate(Mid(ABC, 70, 2) & "/" & Mid(ABC, 72, 2) & "/" & Mid(ABC, 74, 4)) = Date Then
      'atualiza
    End If
  Loop
  Close #1
 
  Name "x:     xtativoinvbensret" As "x:     xtativoinvbensret2"