CONTAR E MOSTRAR LINHAS REPETIDAS EM ARQUIVO .TXT

GANDA.NICK 22/05/2013 12:50:56
#423852
poste aí em anexo o *.txt
PAYDANA 22/05/2013 13:33:57
#423855
to mandando o menor porque o outro de 600 mil linhas o vbmania não aceita, pois passa de 1 mb
VELDRAME 22/05/2013 15:30:15
#423871
O erro esta no comando NewIndex do componente List.

Substitua o comando cmdProcessar por este abaixo:
Melhorado.

  NumeroLinha_Original = 0
    NumeroLinha_Compara = 0


    Set File_Original = fso_Original.OpenTextFile(txtArquivoOrigem.Text, ForReading)
    f_Original = FreeFile
    Open txtArquivoOrigem.Text For Input As f_Original

    If EOF(f_Original) = False Then    [ô]Se o arquivo não form vázio
        lstLinhaDuplicadas.AddItem [Ô]Comparada - Original       - Informação da Linha[Ô]  [ô]linha de cabeçalho
        Set File_Compara = fso_Compara.OpenTextFile(txtArquivoComparacao.Text, ForReading)
        f_Compara = FreeFile
        Open txtArquivoComparacao.Text For Input As f_Compara

        Do While Not EOF(f_Original)
            NumeroLinha_Original = NumeroLinha_Original + 1    [ô]Conta a linha do arquivo original
            Line Input #f_Original, Linha_Original

            Do While Not EOF(f_Compara)
                NumeroLinha_Compara = NumeroLinha_Compara + 1
                Line Input #f_Compara, Linha_Compara
                If Trim(UCase(Linha_Original)) = Trim(UCase(Linha_Compara)) Then
                    lstLinhaDuplicadas.AddItem Format(NumeroLinha_Compara, [Ô]000000000[Ô]) & [Ô] - [Ô] & Format(NumeroLinha_Original, [Ô]000000000[Ô]) & [Ô] - [Ô] & Trim(UCase(Linha_Original))  [ô]linha do arquivo original
                End If
            Loop

            [ô]Fecha o arquivo e abre novamente para pegar apartir da primeira linha, de novo
            NumeroLinha_Compara = 0
            [ô]lstLinhaDuplicadas.ListIndex (lstLinhaDuplicadas.ListCount - 1)
            File_Compara.Close
            Set File_Compara = fso_Compara.OpenTextFile(txtArquivoComparacao.Text, ForReading)
            Close #f_Compara
            f_Compara = FreeFile
            Open txtArquivoComparacao.Text For Input As f_Compara
            DoEvents
        Loop

    End If
PAYDANA 22/05/2013 15:35:33
#423873
Blz, ta rodando aqui ja uns 2 minutos e nao deu pau ainda não.

VLW
PAYDANA 25/05/2013 01:45:22
#424013
Acabei reativando o tópico, preciso muito disso
VELDRAME 27/05/2013 10:54:08
#424080
Qual o erro que apresentou?
Ou
O que você precisa que seja alterado no fonte?
Página 2 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar