PROGRAMAR NA MEMORIA

  Option Explicit
Private Sub Form_Load()
On Error Resume Next
Kill App.Path & [Ô]    t.txt[Ô]
End Sub
Private Sub Command1_Click()
dInicio = Now
Dim f1 As Long
Dim f2 As Long
Dim linha  As String
Dim GuardaLinha As String
Dim jt As Long
jt = [Ô]0[Ô]

f1 = FreeFile
Open App.Path & [Ô]\10.txt[Ô] For Input As f1

f2 = FreeFile
Open App.Path & [Ô]    t.txt[Ô] For Output As f2

Do While Not EOF(f1)
Input #f1, linha
      GuardaLinha = ComparandoCom(linha)
      If GuardaLinha >= jt Then jt = GuardaLinha: Print #f2, linha & [Ô] [Ô] & [Ô] ( [Ô] & GuardaLinha & [Ô] )[Ô]
Loop

Close #f1
Close #f2
RichTextBox1.LoadFile App.Path & [Ô]    t.txt[Ô], rtfText
Beep
MsgBox [Ô]           [Ô] & [Ô]Arquivo TXT Extraido e Salvo em [Ô] & CDate(Now - dInicio)
End Sub

Private Function ComparandoCom(todosdoArquivo As String)
Dim f3 As Long
Dim linhaMarela  As String
Dim rst  As Variant
rst = [Ô]0[Ô]

f3 = FreeFile
Open [Ô]F:\Loteria NOVO\Loto Facilesultados.txt[Ô] For Input As f3

Do While Not EOF(f3)
Input #f3, linhaMarela
   
   If Coicide(linhaMarela, todosdoArquivo) = [Ô]10[Ô] Then rst = rst + 1

Loop

Close #f3
ComparandoCom = rst
End Function

Private Function Coicide(Item1 As String, Item2 As String)
Dim S, D, Existe, Stem, Str1, Str2 As String
Dim Z, y As Integer

Existe = [Ô]0[Ô]
S = Replace(Item1, [Ô] [Ô], [Ô][Ô])
D = Replace(Item2, [Ô] [Ô], [Ô][Ô])
Stem = Len(S)

For Z = 1 To Stem Step 2
    Str1 = Mid(S, Z, 2)
       For y = 1 To Len(D) Step 2
         Str2 = Mid(D, y, 2)
       If Str1 = Str2 Then Existe = Existe + 1
    Next
Next
Coicide = Existe
End Function