Salve,ho uno script che compara valori in due file di testo e nel caso il primo file dovesse contenere meno stringhe del secondo mi notifica.
Ora il problema è che in pratica i due files contengono circa 100 righe ciascuno.
Ora succede che se ad essere mancate è l'ultima riga del file 1 allora ottengo la notifica correttamente.
Se invece manca una stringa iniziale o intermedia inizia a dirmi che tutte le stringhe successive a quella riga sono differenti.
Il consiglio che mi è stato dato è che anzichè scrivere tutte le stringhe solo se sono diverse,leggere entrambi i files e popolare due array di stringhe.
Poi con due for next controllare se ognuna delle stringhe
dell'array A è presente o meno nell'array B
Purtroppo sono un newbie...qualcuno può darmi una mano?

Questo è il codice:

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 = Mail & "Different files" & vbcrlf & line1 & vbcrlf & line2 & 
vbcrlf

end if
wend

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


oTextFile1.close
oTextFile2.close