COMPARAR LISTAS

MARCELO.TREZE 17/10/2011 17:27:35
#386883

tenta assim

...
If OrigLine <> [Ô][Ô] Then
Print #Arq4, OrigLine
End If
Loop

[txt-color=#0000f0]MsgBox [Ô]Processo Terminou[Ô][/txt-color]

...

XXXANGELSXXX 17/10/2011 23:05:02
#386893

uai.. no final da funcao vc coloca a mensagem..

Public Function ComparaTXT(Original As String, Comparacao As String, Iguais As String, Diferentes As String)
Dim Arq1 As Integer
Dim Arq2 As Integer
Dim Arq3 As Integer
Dim Arq4 As Integer

Dim OrigLine As String [ô] Linha Original
Dim CompLine As String [ô] Linha de Comparação

Arq1 = FreeFile
Open Original For Input As #Arq1
Arq3 = FreeFile
Open Iguais For Output As #Arq3
Arq4 = FreeFile
Open Diferentes For Output As #Arq4

Do While Not EOF(Arq1)
Line Input #Arq1, OrigLine
Arq2 = FreeFile
Open Comparacao For Input As #Arq2
Do While Not EOF(Arq2)
Line Input #Arq2, CompLine
If OrigLine = CompLine Then
Print #Arq3, OrigLine
OrigLine = [Ô][Ô]
End If
Loop
Close #Arq2
If OrigLine <> [Ô][Ô] Then
Print #Arq4, OrigLine
End If
Loop

Close #Arq2
Close #Arq3

 MSGBOX [Ô]PROCESSO CONCLUIDO COM SUCESSO!!!!   

ALANTB 18/10/2011 13:11:20
#386941

Ok pessoal fechou todas, vou encerrar....