Comparer le contenu de 2 fichiers

Question

Bonsoir, 
Je s&#232;che totalement, &#233;tant novice en VB
j'ai 2 fichiers textes qui n'ont pas le m&#234;me nombre de lignes.
un global et l'autre erreur
je souhaiterai supprimer les lignes erreur du global en cr&#233;ant un 3eme fichier
j'ai fait un bout de code mais pas tr&#232;s performant car je ferme le fichier a chaque boucle.
je pense qu'il ya moyen de faire beaucoup mieux 

Private Sub Command1_Click()
Path = "c:\users"
fichieradr = "adrmail.txt"
fichiererr = "errmail.txt"
fichierfinal = "adrmai1.txt"
fichadr = Path & fichieradr
ficherr = Path & fichiererr
fichfinal = Path & fichierfinal
Top = 0
Open fichadr For Input As #1
Open ficherr For Input As #2
Open fichfinal For Output As #3
Do While Not EOF(1)
        Line Input #1, adresses
Do While Not EOF(2)
    Top = 0
    Line Input #2, erreur
     If erreur = adresses Then
        Top = 1
          Exit Do
             End If
   Loop
          If Top = 0 Then
             Print #3, adresses
               End If
    Close #2
    Open ficherr For Input As #2
Loop
Close #1
Close #2
Close #3
End Sub

Merci par avance et continuez vos r&#233;ponses nous sont tr&#232;s utiles
BUCK60

cqui789 · Answer

isi les 2 fichiers sont toutjours classes dans le meme ordre, tu pourrait effectivement faire mieux.



si tes fichier ne sont pas dans le meme ordre, la seule amelioration
que je vois serait d'enregistrer le plus petit fichier dans un tableau
avant la boucle principale.

cs_bultez · Answer

Bonjour,
comme dit cqi789, si toutes les lignes
de erreur sont dans le gobal et dans le
m&#234;me ordre...

Dim luerr As String, lubon As String
Do While Not EOF(2)
    Line Input #2, luerr
    Do While Not EOF(1)
        Line Input #1, lubon
        If lubon = luerr Then Exit Do
        Print #3, lubon
    Wend
Wend
Close #1, #2, #3

pas test&#233;, &#231;a ne doit pas &#234;tre loin.
Cordialement. Bul. ~Site~~[mailto:marcelBultez@tiscali.fr Mail]~

cs_BUCK · Answer

Tout d'abord pour vos reponses
les fichiers ne sont pas class&#233;s dans le m&#234;me ordre.
je veux justement &#233;purer fichadr des lignes contenu dans ficherr.
pour info dans fichadr il y a 5400 lignes et ficherr 1400.
il est vrai que le meilleur moyen est de mettre le contenu d'un des deux dans un tableau.
Et c'est la que je sollicite votre aide car mes essais ne sont pas concluant.
cordialement

BUCK60

Comparer le contenu de 2 fichiers

3 réponses

Discussions similaires