Comparaison de fichiers texte

Télécharger le projet
Commenter

Description

comparer le contenu de 2 listbox
tres pratique pour comparer 2 fichiers texte par ex le contenu du hd pour savoir ce qui a changer ecT .. charger les 2 fichiers dans leur Listbox respectif (ici originale et comparaison) ! et comparer les avec la routine

Ps il est imperatif que les proprieté sorted des listbox soit a true

Source / Exemple : 


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 projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_shaoni)