Comparaison de fichiers texte

Soyez le premier à donner votre avis sur cette source.

Vue 15 243 fois - Téléchargée 966 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

cs_didine13
Messages postés
96
Date d'inscription
mardi 18 août 2009
Statut
Membre
Dernière intervention
14 août 2013
-
COMPARAISON DE FICHIERS TEXTE?
Non tu veut dire COMPARAISON de deux disque dur

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.