Comparaison de 2 fichiers TXT

Question

Bonjour,

Je voulais savoir si une personne pouvait m'aider.
J'ai deux fichiers txt (1.txt & 2.txt), et je voudrais les comparer avec les diff inscris dans un autre fichier (diff.txt) ou bien les num des lignes qui sont diff&#233;rents.

Merci pour votre aide.

J'ai dej&#224; un morceau de code ci dessous qui me donne dans une dialogBox si les fichiers sont identique ou non, je ne sais pas ou rajouter un morceau de code qui m'&#233;crivent le num de la ligne qui est diff&#233;rent.

' Fonction pour la comparaison
Private Sub Compare()



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 &#224; compar&#233;
Fichier1 = Text1.Text
Fichier2 = Text2.Text


' Demande un num&#233;ro de fichier
lFile1 = FreeFile
Open Fichier1 For Binary Access Read As #lFile1


' Demande un num&#233;ro de fichier
lFile2 = FreeFile
Open Fichier2 For Binary Access Read As #lFile2



' Commence la boucle
Do
Temp1 = String$(1, " ")
Temp2 = String$(1, " ")

Get #lFile1, , Temp1
Get #lFile2, , Temp2


' Compare le deuxi&#232;me buffer au premier buffer
If Temp2 <> Temp1 Then


' Le deuxi&#232;me buffer est diff&#233;rent du premier
MsgBox "Le deuxi&#232;me fichier est diff&#233;rent du premier fichier !", vbOKOnly, "R&#233;sultat"



' Ferme les fichiers
Close #lFile1
Close #lFile2
Exit Sub


End If


' Boucle tant qu'on est pas rendu &#224; 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&#233; l'utilisateur
 MsgBox "Les 2 fichiers sont identique !!!", vbOKOnly, "R&#233;sultat"


End Sub

Gobillot · Answer

sous DOS:

FC/a fichier1 fichier2 > differences

ou /b pour du binaire.

Daniel

crenaud76 · Answer

En VB6 : dim B1 as string, B2 as string,T1() as string, T2() as string, i as long, MinNbLigne As Long Open "1.txt" for input as #1 Open "2.txt" for input as #2 Open "diff.txt" for output as #3 B1 = input(lof(1), #1) B2 = input(lof(2), #2) Close #1 Close #2 If B1 <> B2 Then T1 = Split(B1, vbCRLF) T2 = split(B2, vbCRLF) MinNbLigne = UBound(T1) Select Case MinNbLigne Case Is > UBound(T2) Then MinNbLigne = UBound(T2) Print #3, "2.Txt contient moins de ligne que 1.Txt" Case Is < UBound(T2) Then Print #3, "1.Txt contient moins de ligne que 2.Txt" Case Else Print #3, "1.Txt contient autant de ligne que 2.Txt" End Select For i = 0 to MinNbLigne If T1(i)<>T2(i) then Print #3, "Lignes N°" & CStr(i) & "différentes" Next End If Close #3 Est-ce que cela te convient ? Christophe R

cs_dragon · Answer

si tu veux en faire un complet il te faut 6 fichiers en m&#233;moire. 2 qui sont les originaux, 2 autres que tu modifies pour finir avec 2 fichiers identiques apr&#232;s le traitement et 2 dernier qui prend les modif en notes pour te faire un rapport.

tu commences par trouver les lignes en plus de chaque cot&#233;, puis les ligne en moins et le plus compliquer les lignes compl&#232;tement changer. Si tu veux &#234;tre pr&#233;cis, au lieu de compt&#233; en ligne, tu peux compt&#233; en caract&#232;res. sauf qu'il faudra que tu soit capapble de d&#233;tecter quand un s&#233;rie est assez sembleble pour &#234;tre la m&#234;me des 2 c&#244;t&#233;

bonjour comment &#231;a va
bonjour ment comment &#231;a va

visuellement on voit tout de suite que c'est "ment" qui a &#233;t&#233; ajouter, mais en code, il va plutot d&#233;tecter "com" a &#233;t&#233; enlever et "comment" a &#233;t&#233; ajout&#233;

-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------

spujol · Answer

Merci de vos r&#233;ponses, je vais d&#233;pouiller tout ceci et essayer des ce soir pour comment int&#233;gr&#233;er ceci dans mon code.

Si j'ai d'autre probl&#232;me concernat ce sujet, je reviendrais vers vous.

Merci encore.

spujol · Answer

Je reviens vers vous pour vous dire merci.
J'ai utilis&#233; la m&#233;thode de Christophe, j'ai un peu modifi&#233; le code  pour qu'il s'int&#233;gre &#224; mon projet, merci encore.

Pour la m&#233;thode du DOS, j'ai essay&#233;, mais je ne sais pas comment lancer du DOS avec le VB, Daniel si tu as le truc pour le faire, je serais prenneur.

J'ai rajouter une chose, je suis tomb&#233; sur un cas ou mes deux fichiers avaient le m&#234;me nombre de ligne, mais un mot avait chang&#233;. Apr&#232;s toutes les modif r&#233;alis&#233;es, je suis arriv&#233; sur ce r&#233;sultat.

Lignes N&#176;18 diff&#233;rentes
 SPCP_874.dll1
 SPCP_874.dll

Merci et @ bient&#244;t

Comparaison de 2 fichiers TXT

5 réponses

Discussions similaires