CONTAR E MOSTRAR LINHAS REPETIDAS EM ARQUIVO .TXT

Option Explicit

Private Sub Command1_Click()
    Dim hFile As Integer
    Dim sTxt As String, sFile As String: sFile = [Ô]c:\arquivo.txt[Ô]

    [ô]Passa o conteudo do *.TXT para a string sTxt
    hFile = FreeFile
    Open sFile For Input As #hFile
    sTxt = Input(LOF(hFile), #hFile)
    Close #hFile

    [ô]Divide a string sTxt quando existe uma quebra de linha para um Array
    Dim MyArr() As String
    MyArr = Split(sTxt, vbCrLf)
    
    [ô]Copiar repetidos para um novo array (arrRepetidos)
    Dim i As Long, i2 As Long, i3 As Long: i3 = 0
    Dim arrRepetidos() As String
    For i = LBound(MyArr) To UBound(MyArr) - 1
        For i2 = i + 1 To UBound(MyArr)
            If MyArr(i) = MyArr(i2) Then
                ReDim Preserve arrRepetidos(i3) As String
                arrRepetidos(i3) = MyArr(i)
                i3 = i3 + 1
            End If
        Next [ô]i2
    Next [ô]i
    
    [ô]Apagar o 1º array
    Erase MyArr
    
    [ô]Total Repetidos
    MsgBox [Ô]Repetidos: [Ô] & UBound(arrRepetidos) + 1     [ô] +1 porque o array começa em zero
    
    [ô]Listar Repetidos
    For i = LBound(arrRepetidos) To UBound(arrRepetidos)
        [ô]MsgBox arrRepetidos(i)
        Debug.Print arrRepetidos(i)
    Next [ô]i
    
    [ô]Gravar repetidos em um *.TXT
    sFile = [Ô]c:epetidos.txt[Ô]
    hFile = FreeFile
    Open sFile For Output As #hFile
    For i = LBound(arrRepetidos) To UBound(arrRepetidos)
        Print #hFile, arrRepetidos(i)
    Next [ô]i
    Close #hFile
End Sub

Citação:

:
olhei aqui e parece q nao e bem isso...
pelo que entendi seu codigo ae compara 2 arquivos
o que quero aqui e um codigo que mergulhe em um .txt com milhares de linhas apanhe a primeira linha e então vasculhe todo o .txt atrás de outras linhas identicas a ela

dae em outro arquivo de txt ele escreve linha x(quontidade)


se quiser detalhes do assunto como falou acima me mande por mensagem seu ICQ MSN orkut facebook ou qqr outro que prefira

Citação:

Estive pensando ontem a noite.
Você esta afim de criar uma lista com os resultados dos jogos passados (quadra, quina,...), os que mais saíram.
Não é?