COMPARAISON DE FICHIERS TEXTE

dim min,actu,totaj as integer

min = 0
actu = 0
totaj = 0

Open "final.txt" For Output As #1
Print #1, "Fichiers Ajoutés"

Do Until position = Originale.ListCount
    position = position + 1
    sav = min
    Do Until comparaison.List(actu) <= Originale.List(min) Or min >= Originale.ListCount
        min = min + 1
    Loop
    If min > Originale.ListCount Then
        min = sav + 1
        ElseIf comparaison.List(actu) < Originale.List(min) Then
            Print #1, comparaison.List(actu)
            totaj = totaj + 1
            Else
            min = min + 1
    End If
    actu = actu + 1
Loop
reset   

Télécharger le zip