RICHTEXTBOX ENCONTRAR PALAVRA E DELETAR LINHA

LUIZCOMINO 10/10/2012 08:59:00
#411687

amigo troque a variavel integer para long


Function RemoveLinha(Buscar As String, Campo As Variant) As String

Dim Mtz As Variant
Dim i As long
Dim aux As String


Mtz = Split(Campo, vbCrLf)


For i = 0 To UBound(Mtz)
If InStr(Mtz(i), Buscar) = 0 Then
aux = aux & Mtz(i) & vbCrLf
End If
Next

RemoveLinha = aux

End Function

PAYDANA 10/10/2012 13:06:30
#411717

Tem razão!
Fico bacana.
To fuçando aqui num arquivo com 82 mil linhas e funciona legalzinho
Demora um poco mais funciona bacana

Obrigado!

LUIZCOMINO 11/10/2012 13:35:20
#411840

finalize o tópico amigo