Salve,
ho uno script che individua le differenze tra 2 files di testo.
Lo script mi da come risultato solo "Different files" nel caso i 2 file confrontati sono differenti.
Ora vorrei che mi fornisse pure le stringhe differenti.
Credo che bisogna utilizzare il comando Sort,ma non so come.
Mi potete dare una mano?


codice:
dim filename1
dim filename2

filename1="c:\sitelist.txt"
filename2="c:\textstream.txt"


Set oFSO1 = CreateObject("Scripting.FileSystemObject")
Set oFSO2 = CreateObject("Scripting.FileSystemObject")

Set oTextFile1 = oFSO1.OpenTextFile(filename1, 1 , True)
Set oTextFile2 = oFSO2.OpenTextFile(filename2, 1 , True)


While oTextFile1.AtEndOfStream <> True
line1 = oTextFile1.ReadLine
line2 = oTextFile2.ReadLine

if (line1<>line2) then 
Mail = "Different files" & vbcrlf & line1 & vbcrlf & line2

end if
wend

'if the second file has more strings i get the notify
if (oTextFile2.AtEndOfStream <> True) then 
Mail = "Different Files"


oTextFile1.close
oTextFile2.close