Comparer le contenu de 2 fichiers texte
steph
-
28 juin 2001 à 19:51
bdgta Messages postés 63 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 8 septembre 2008 - 25 févr. 2006 à 12:27
bdgta Messages postés 63 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 8 septembre 2008 - 25 févr. 2006 à 12:27
A voir également:
- Comparer le contenu de 2 fichiers texte
- Comparer 2 fichiers xml - Forum Visual Basic 6
- Application de loto turbo 2 - Forum C / C++ / C++.NET
- Tableau de turbo 2 - Forum VB.NET
- TURBO C++ et blocks que choisir ✓ - Forum C
- Affichage numeros loto - Forum Visual Basic 6
2 réponses
Ben moi j'ai jamais essayer ou fait de code pour vérifier si 2 fichiers sont identiques ou non mais bon... tu pourrais essayer quelque chose du genre:
Private Sub cmdCompareFichier_Click()
' Déclaration des variables
Dim Fichier1 As String
Dim Fichier2 As String
Dim lFile1 As Long
Dim lFile2 As Long
Dim Temp1 As String
Dim Temp2 As String
' Les fichiers à comparé
Fichier1 = "C:\Le premier programme.exe"
Fichier2 = "C:\Le deuxième programme.exe"
' Demande un numéro de fichier
lFile1 = FreeFile
' Ouvre le premier fichier en mode binaire et en lecture seulement
Open Fichier1 For Binary Access Read As #lFile1
' Demande un numéro de fichier
lFile2 = FreeFile
' Ouvre le deuxième fichier en mode binaire et en lecture seulement
Open Fichier2 For Binary Access Read As #lFile2
' Commence la boucle
Do
' Prépare le buffer pour le premier fichier
Temp1 = String$(1, " ")
' Prépare le buffer pour le deuxième fichier
Temp2 = String$(1, " ")
' Remplie le premier buffer
Get #lFile1, , Temp1
' Remplie le deuxième buffer
Get #lFile2, , Temp2
' Compare le deuxième buffer au premier buffer
If Temp2 <> Temp1 Then
' Le deuxième buffer est différent du premier
' Affiche un Message pour informé l'utilisateur
MsgBox "Le deuxième fichier est différent du premier fichier !", "Résultat", vbOkOnly + vbInformation
' Ferme les fichiers(Important)
Close #lFile1
Close #lFile2
' Et on quitte
Exit Sub
End If
' Boucle tant qu'on est pas rendu à la fin d'un des fichiers
Loop Until (EOF(lFile1) Or EOF(lFile2))
' Ferme les fichiers
Close #lFile1
Close #lFile2
' Si on c'est rendu jusqu'ici c'est que les 2 fichiers sont identique
' Un message pour informé l'utilisateur
MsgBox "Les 2 fichiers sont identique !!!", "Résultat" vbOkOnly + vbInformation
' Et c'est terminer !
End Sub
Désoler s'il y à des fautes de frappe ou autre... c'est parce que je les fait sur le forum mais il devrait bien fonctionner :) en cas de problème(s) avec ce code ou autre(s)... écrit moi,
[mailto:NitRic28@Hotmail.com NitRic]
Private Sub cmdCompareFichier_Click()
' Déclaration des variables
Dim Fichier1 As String
Dim Fichier2 As String
Dim lFile1 As Long
Dim lFile2 As Long
Dim Temp1 As String
Dim Temp2 As String
' Les fichiers à comparé
Fichier1 = "C:\Le premier programme.exe"
Fichier2 = "C:\Le deuxième programme.exe"
' Demande un numéro de fichier
lFile1 = FreeFile
' Ouvre le premier fichier en mode binaire et en lecture seulement
Open Fichier1 For Binary Access Read As #lFile1
' Demande un numéro de fichier
lFile2 = FreeFile
' Ouvre le deuxième fichier en mode binaire et en lecture seulement
Open Fichier2 For Binary Access Read As #lFile2
' Commence la boucle
Do
' Prépare le buffer pour le premier fichier
Temp1 = String$(1, " ")
' Prépare le buffer pour le deuxième fichier
Temp2 = String$(1, " ")
' Remplie le premier buffer
Get #lFile1, , Temp1
' Remplie le deuxième buffer
Get #lFile2, , Temp2
' Compare le deuxième buffer au premier buffer
If Temp2 <> Temp1 Then
' Le deuxième buffer est différent du premier
' Affiche un Message pour informé l'utilisateur
MsgBox "Le deuxième fichier est différent du premier fichier !", "Résultat", vbOkOnly + vbInformation
' Ferme les fichiers(Important)
Close #lFile1
Close #lFile2
' Et on quitte
Exit Sub
End If
' Boucle tant qu'on est pas rendu à la fin d'un des fichiers
Loop Until (EOF(lFile1) Or EOF(lFile2))
' Ferme les fichiers
Close #lFile1
Close #lFile2
' Si on c'est rendu jusqu'ici c'est que les 2 fichiers sont identique
' Un message pour informé l'utilisateur
MsgBox "Les 2 fichiers sont identique !!!", "Résultat" vbOkOnly + vbInformation
' Et c'est terminer !
End Sub
Désoler s'il y à des fautes de frappe ou autre... c'est parce que je les fait sur le forum mais il devrait bien fonctionner :) en cas de problème(s) avec ce code ou autre(s)... écrit moi,
[mailto:NitRic28@Hotmail.com NitRic]
bdgta
Messages postés
63
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
8 septembre 2008
25 févr. 2006 à 12:27
25 févr. 2006 à 12:27
Ce code m'interesse.
Mais qu'est-ce qui faut faire pour comparer deux fichiers texte.
J'utilise une listview avec comme base de donnee un fichier texte, et j'aimerais savoir comment peut-on mettre d'une couleur differente les nouveautés.
Merci de votre aide
Mais qu'est-ce qui faut faire pour comparer deux fichiers texte.
J'utilise une listview avec comme base de donnee un fichier texte, et j'aimerais savoir comment peut-on mettre d'une couleur differente les nouveautés.
Merci de votre aide
