Comparer 2 fichiers texte [Résolu]

cs_ludwig89 47 Messages postés mercredi 1 septembre 2004Date d'inscription 18 septembre 2009 Dernière intervention - 15 sept. 2004 à 09:11 - Dernière réponse : econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention
- 15 sept. 2004 à 13:32
bonjour

en vb6

je voudrai comparer toutes les lignes de 2 fichiers texte sauf la premiere de chaque fichier

si les lignes sont identique effacer le fichier texte 2

comment faire????

merci
Afficher la suite 

5 réponses

econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention - 15 sept. 2004 à 09:30
+3
Utile

Dim numFile1 As Long
Dim numFile2 As Long
Dim difference_detected As Boolean
Dim s1 As String
Dim s2 As String

difference_detected = False
numFile1 = FreeFile
Open "C:\mon_premier_fichier_texte.txt" For Input As #numFile1
Line Input #numFile1, s1 ' Skip de la première ligne
numFile2 = FreeFile
Open "C:\mon_second_fichier_texte.txt" For Input As #numFile2
Line Input #numFile2, s2 ' Skip de la seconde ligne

While (Not (EOF(numFile1)) And (Not EOF(numFile2))) And difference_detected = False
Line Input #numFile1, s1
Line Input #numFile2, s2
If Trim(s1) <> Trim(s2) Then
difference_detected = True
End If
Wend

' Verifie que les deux fichiers avaient la même taille
If Not (EOF(numFile1) And EOF(numFile2)) Then
' L'un des deux fichiers n'est pas complètement lu
difference_detected = True
End If
Close #numFile2
Close #numFile1

If difference_detected Then
Kill "C:\mon_second_fichier_texte.txt"
End If


Manu
Cette réponse vous a-t-elle aidé ?  
Fulgy 85 Messages postés mercredi 21 juillet 2004Date d'inscription 5 octobre 2004 Dernière intervention - 15 sept. 2004 à 09:29
0
Utile
Lut.
Tu peux utiliser le modèle fso, en te servant de la méthode ReadLine sur tes deux fichiers, tu l'utilises une première fois sans faire de traitement pour sauter la première ligne, ensuite tant que tu trouve des lignes identiques tu continus de lire les fichiers, sinon tu supprime ton fichier 2.
A+
econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention - 15 sept. 2004 à 09:32
0
Utile
Une erreur dans le commentaire .. rien de grave, mais c'est mieux de corriger pour la compréhension :)


Dim numFile1 As Long
Dim numFile2 As Long
Dim difference_detected As Boolean
Dim s1 As String
Dim s2 As String

difference_detected = False
numFile1 = FreeFile
Open "C:\mon_premier_fichier_texte.txt" For Input As #numFile1
Line Input #numFile1, s1 ' Skip de la première ligne
numFile2 = FreeFile
Open "C:\mon_second_fichier_texte.txt" For Input As #numFile2

<s>Line Input #numFile2, s2 ' Skip de la seconde ligne</s>
Line Input #numFile2, s2 ' Skip de la première ligne

[...]

Manu
cs_rene38 1858 Messages postés samedi 29 juin 2002Date d'inscription 17 octobre 2013 Dernière intervention - 15 sept. 2004 à 10:20
0
Utile
Bonjour
ludwig89 a écrit :
"si les lignes sont identique effacer le fichier texte 2"

il faut donc remplacer la ligne :

If difference_detected Then
   Kill "C:\mon_second_fichier_texte.txt"
End If


par

If Not difference_detected Then
   Kill "C:\mon_second_fichier_texte.txt"
End If
econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention - 15 sept. 2004 à 13:32
0
Utile
Ah oui .. tiens .... :)
Bien vu !

Manu

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.