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 59 60 61 62 63 64 65 66 67
| Option Explicit
Const ForReading = 1, ForWriting = 2, ForAppending = 8, TriStateTrue = -1
Dim fso, Fich1, Fich2, oFold, WS, Ret1, Ret2, FichDest, Fl1, Fl2, OldF1, OldF2
' ================== Initialisation
Set fso = CreateObject("Scripting.FileSystemObject")
Set WS = CreateObject("WScript.Shell")
'Set oFold = fso.GetFolder("Mettre_ici_le_dossier")
Set Fl1 = fso.GetFile(GetFileName)
OldF1 = Fl1.Path
Set fich1 = fso.OpenTextFile(Fl1.Path, ForReading, False)', TriStateTrue)
Set Fl2 = fso.GetFile(GetFileName)
OldF2 = Fl2.Path
Set fich2 = fso.OpenTextFile(Fl2.Path, ForReading, False)', TriStateTrue)
Set FichDest = fso.OpenTextFile("Comparer.txt", ForWriting, True)', TriStateTrue)
' ===================
AnalyseFich1
AnalyseFich2
FichDest.Close
' ===================
Function GetFileName()
Dim oDlg
Set oDlg=CreateObject("UserAccounts.CommonDialog")
oDlg.Filter="Tous les fichiers(*.*)|*.*|Fichier text(*.txt)|*.txt"
oDlg.FilterIndex=2
oDlg.InitialDir="C:"
oDlg.ShowOpen
If oDlg.FileName = "" Then WScript.Quit 0
GetFileName = oDlg.FileName
set oDlg= nothing
End Function
'=======================
Private Sub AnalyseFich1()
Dim Lig
Lig = 0
Ret2 = Fich2.ReadAll
Do While Not Fich1.AtEndOfStream
Ret1 = Fich1.ReadLine
Lig = Lig + 1
If InStr(1,Ret2,Ret1,1) = 0 Then
FichDest.WriteLine Fl1.Name & " , ligne " & CStr(Lig) & " => " & Ret1
End If
Loop
FichDest.WriteBlankLines 1
FichDest.WriteLine String(50,"=")
FichDest.WriteBlankLines 1
Fich1.Close
Fich2.Close
End Sub
'=======================
Private Sub AnalyseFich2()
Dim Lig
Set fich1 = fso.OpenTextFile(OldF1, ForReading, False)
Set fich2 = fso.OpenTextFile(OldF2, ForReading, False)
Lig = 0
Ret1 = Fich1.ReadAll
Do While Not Fich2.AtEndOfStream
Ret2 = Fich2.ReadLine
Lig = Lig + 1
If InStr(1,Ret1,Ret2,1) = 0 Then
FichDest.WriteLine Fl2.Name & " , ligne " & CStr(Lig) & " => " & Ret2
End If
Loop
Fich1.Close
Fich2.Close
End Sub |
Partager