PROCURAR PALAVRA EM ARQUIVO DE TEXTO

THIAGO.CESAR 18/01/2005 16:23:58
#61615

Faça o seguinte (vou usar a minha função porque ja estou mais familiarizado com ela, mas funciona tambÃ©m com a do Max)

Adicione a um listbox os que não lhe servirem

Function Correspondente(ByVal Arquivo As String, ByVal Antes As String) As String 
Dim i%, Linha$, a$, b$ 
i = FreeFile 
Open Arquivo For Input As i 
    Do While Not EOF(i) 
        Line Input #i, Linha 
        a = VBA.Left(Linha, InStr(Linha, ",") - 1) 
        b = VBA.Right(Linha, InStr(Linha, ",") - 1) 
        If LCase(a) = LCase(Antes) Then 
             Correspondente = b 
        Else 
              List1.AddItem linha 
        End if 
    Loop 
Close i 
Correspondente = Empty 

[txt-color=#008000] 'SALVAR O NOVO ARQUIVO  [/txt-color]
Open Arquivo for output as #1 
    for i = 0 to list1.listcount -1 
           print #1, list1.list(i) 
    next 
Close #1[/b] 
End Function

Página 2 de 2 [11 registro(s)]

Tópico encerrado , respostas não são mais permitidas

Voltar