Postada em 06/10/2008 15:20 hs
Supondo que o arquivo esteja na mesma pasta do executável e tenha o nome ARQ.TXT
On Error Resume Next
Dim Linha as string
'Abrir arquivo com dados a serem filtrados
open app.path & "arq.txt" for input as #1
'Apagar arquivo destino, se já existe para garantir que não haja mistura de dados novos com antigos
Kill app.path & "des.txt"
'Abrir arquivo para receber os dados
Open app.path & "des.txt" for append as #2
Do
if eof(1) then exit do
line input #1,Linha
if Ucase(right(linha,3))="BOM" then
print #2,Linha
endif
Loop
'O arquivo DES.TXT conterá os dados filtragos e fica na pasta onde está o executável.
Close #1
Close #2
Espero ter ajudado.
|
