Eis um novo código agora criei o mesmo dentro de uma função você poderá utilizar esta em um módulo, aqui a linha de um arquivo texto é enviada diretamente para o outro sem utilizar array, implantei uma função que verifica se a linha possui uma palavra chave, veja o código comentado:
Public Function ComparaTXT(OriginalTXT As String, CompararTXT As String, NovoTXT As String, StrCHAVE As String)
' strCHAVE é o código ou palavra chave utilizada para comparação
Dim Arq1 As Integer
Dim Arq2 As Integer
Dim Arq3 As Integer
Dim OrigLine As String ' Linha Original
Dim CompLine As String ' Linha de Comparação
Arq1 = FreeFile
Open OriginalTXT For Input As #Arq1 ' abre o primeiro arquivo
Arq3 = FreeFile
Open NovoTXT For Output As #Arq3 ' abre o segundo arquivo
Do While Not EOF(Arq1) 'Inicia o Loop no arquivo1
Line Input #Arq1, OrigLine ' grava a linha em OrigLine
Arq2 = FreeFile
Open CompararTXT For Input As #Arq2 'Abre o arquivo 2
Do While Not EOF(Arq2) ' inicia um novo Loop dentro do primeiro Loop
Line Input #Arq2, CompLine ' salva a linha em CompLine
If InStr(1, OrigLine, StrCHAVE) <> 0 And CompLine = OrigLine Then
Print #Arq3, CompLine ' grava somente o que for encontrado no arquivo 3
End If
Loop
Close #Arq2
Loop
Close #Arq1
Close #Arq3
End Function
' em um botão
Private Sub Command1_Click()
' palavra chave neste caso é o nº 4, aqui você pode colocar um código especifico
ComparaTXT "c:\teste1.txt", "c:\teste2.txt", "c:\teste3.txt", "4"
End Sub
Por favor diga se agora funcionou
