27/06/08 12:42
M@d_Hacker
in ke senso confrontarli??
aaa
27/06/08 12:53
gantonio
Se li vuoi confrontare, dopo averli aperto in binario, leggi una porzione del primo e un'altra del secondo e con una if confronti i due pezzi ...
e continui con gli altri pezzi fino alla fine ...
aaa
27/06/08 13:11
antometal
intanto devi prelevare i dati dai file con il get
poi vedi se i dati sono uguali
aaa
27/06/08 15:42
Overflow
è nel ciclo if non so cosa mettere
prima di tutto l'if non è un ciclo (a meno che non venga utilizzato assieme ad un goto).
Il codice viene cosi:
Private Sub cmdConfronta_Click()
dim a as byte
dim b as byte
Open (destinazione del file) For Binary Access Read As #1
Open (la destinazione del file) For Binary Access Read As #2
while not eof(1)
get #1,,a
get #2,,b
if a<>b then
msgbox "i file non sono uguali"
Close
Exit Sub
end if
wend
msgbox "i file sono uguali"
Close
End Sub
Ultima modifica effettuata da Overflow 27/06/08 15:55
aaa
28/06/08 16:05
Lino
Postato originariamente da Overflow:
è nel ciclo if non so cosa mettere
prima di tutto l'if non è un ciclo (a meno che non venga utilizzato assieme ad un goto).
Il codice viene cosi:
Private Sub cmdConfronta_Click()
dim a as byte
dim b as byte
Open (destinazione del file) For Binary Access Read As #1
Open (la destinazione del file) For Binary Access Read As #2
while not eof(1)
get #1,,a
get #2,,b
if a<>b then
msgbox "i file non sono uguali"
Close
Exit Sub
end if
wend
msgbox "i file sono uguali"
Close
End Sub
Grazie Overflow ci ero quasi arrivato, ma nn avevo considerato l'end of file
..
ora un problema che mi sorge è velocizzare il tempo di confronto, potrei dividere il contenuto della variabile "a" (ad esempio in 10 parti) in modo tale da fare un confronto con un insieme di dati ristretto?? se si come posso fare??
Ultima modifica effettuata da Lino 28/06/08 16:09
aaa