Comparer fichier et remplacer

Version imprimable

21/12/2009, 12h03
torrgovin

Comparer fichier et remplacer

Bonjour à tous,

Je cherche désespérément un script permettant de comparer 1 fichier avec 1 autre, et si le fichier contient une ligne différente, de le remplacer par le nouveau.

Étant novice, j'ai essayé de modifier des scripts trouvés sur le net, mais sans succès.

Merci à vous
Bonne journée :)
21/12/2009, 12h21
MaelstroeM

Le plus simple :

Ouvrir ton premier fichier et le charger dans un StringDictionary ou StringCollection.
Faire de même avec le second.
Ensuite en parcourrant les collections tu fais tes comparaisons et les permuttations entre les elements que tu souhaites.
Enfin tu parcourres tes collections pour réécrire ton / tes fichiers.

C'est ce qu'il y a de plus performant et de plus facile à mettre en place.

@+ :ccool:
21/12/2009, 13h48
bobo10

Bonjour,

Personnellement je compare simplement la signature MD5 du fichier
21/12/2009, 19h11
Danyel

Citation:

Envoyé par bobo10

Personnellement je compare simplement la signature MD5 du fichier

+1

Salut à tous
Merci pour vos conseils.
En gros voilà ce que je voulais, j'ai reussi à modifier un script trouver sur le net et ça fonctionne.
En gros si le fichier 1 & 2 ne sont pas les mêmes alors ... Et là j'ai mis les fonctions que je voulais exécuter.

Merci à vous
Je vais quand même essayer de voir pour la signature MD5, ça me parait être plus propre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
'''''''''''''''''''''''''''''''''''''''''''''''''
'Fonction Compare
'''''''''''''''''''''''''''''''''''''''''''''''''
 
set WshShell = WScript.CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
 
'''''''''''''''''''''''''''''''''''''''''''''''''
 
WScript.Sleep 30000    'Délai d attente de 30 secondes le temps de l'installation de lagent
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSourceFile = objFSO.OpenTextFile("FICHIER 1", 1) ' Fichier 1 a comparer
Set objSourceFile2 = objFSO.OpenTextFile("FICHIER 2", 1) 'Fichier 2 a comparer
 
vrNumLigne = 0
 
Do Until objSourceFile.AtEndOfStream Or objSourceFile2.AtEndOfStream
   vrNumLigne = vrNumLigne + 1
   vrLigne = objSourceFile.ReadLine
   vrLigne2 = objSourceFile2.ReadLine
   vrComprLign = StrComp(vrLigne, vrLigne2, 1)
 
      If vrComprLign = 1 Or vrComprLign = -1 Or IsNull(vrComprLign) Then
             vrNul = "Les fichiers ne sont pas les mêmes"
 
      Else
      End If
 
Loop
objSourceFile.Close
objSourceFile2.Close
 
If IsEmpty(vrNul) Then
                'les fichiers sont identiques alors aucune opération
Else
                'les fichiers sont différents alors :
 
                             'Supression du fichier service.ini par défaut
                Set aFile = CreateObject("Scripting.FileSystemObject")
                aFile.DeleteFile("LIEN DE VOTRE FICHIER A SUPPRIMER")
 
                'Copie du nouveau fichier de config
                Set fso = CreateObject("Scripting.FileSystemObject")
                Set aFile = fso.GetFile("LIEN DU FICHIER ORIGINAL A COPIER")
                aFile.Copy("LIEN DU FICHIER A REMPLACER")
 
                                'Renommage du fichier de config
                Set objFSO = CreateObject("Scripting.FileSystemObject")
                objFSO.MoveFile "LIEN DU FICHIER A RENOMMER" , "NOM DU FICHIER FINAL"
 
 WScript.Sleep 10000    'Délai d attente de 10 secondes le temps de l'installation de lagent
 
                'lance le fichier executable
                Set aContact = WScript.CreateObject("WScript.Shell")
                aContact.Run("LEIN DE VOTRE FICHIER.exe")
End If

22/12/2009, 09h28
MaelstroeM

Ah Oui c'est bcp mieux le md5 :mouarf: si tu n'as que faire du contenu des fichiers.
je n'avais pas pensé à ça et je n'y aurais jms pensé
Je suis toujours partant pour apprendre, vous pouvez me dire en qq lignes comment vous faites pour obtenir le md5 du fichier.

Un truc style : lecture avec ReadAllText et utilisation de la classe MD5 du System.Security.Cryptography pour obtenir un hash ?

Pour ce qui est de ton Script, on dirais bien un VB Script... :aie:
C'est pas trés pratique (surtout à debugger) sauf si t'as pas le choix. :cry:

@+
22/12/2009, 10h50
torrgovin

Lol
Ouais j'ai pas le choix, enfin les stratégies de sécurités d'Active directory ne prennent que du vb alors...

Bonjour,

Pour le MD5 d'un fichier:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 dim objFS as FileStream objFS = File.Open("Chemin fichier",FileMode.Open,FileAccess.Read,FileShare.Read) dim objMD5 as new MD5CryptoServiceProvider() dim objB as Byte() = objMD5.ComputeHash(objFS) dim strMD5 as String="" For Each a as Byte In objB If (a<16) THEN strMD5 &= "0" & a.ToString("X") ELSE strMD5 &= a.ToString("X") ENDIF Next
Pour ce type de test sur des fichiers ou Mise à jour de fichier, il existe également un utilitaire windows console "Robocopy.exe" qui est très utile et qui peut être lancé avec beaucoup de paramètre possible "Robocopy.exe /?".

22/12/2009, 14h27
torrgovin

Merci c'est bon à savoir.

Mais pourquoi à chaque fois que j'ai une instruction en As , j'ai un message d'erreur :

Citation:

Fin d'instruction attendue

??? :aie:
24/12/2009, 01h13
Danyel
Je suppose que tu as cela quand tu fais un truc du genre

Code:

Dim xXx as

Et en ecrivant cela, je traduis : je definis la data xXx comme
Et là bien sur il attends que tu lui donnes le quoi du comme
Donc, pour corriger, il faut faire (pour un integer par exemple)
Code:

1 2 3 Dim xXx as Integer ou encore Dim xXx as Integer = 123