سوال در مورد روش مقایسه دو فایل باینری

[ali_nob]

سلام
من دو فایل باینری رو می خواهم با هم مقایسه کنم و اختلاف اونها رو در یک فایل بانری دیگه ذخیره کنم !
در این خصوص چه کدی رو پیشنهاد می کنید
متشکرم

[nima898]

اگه منظورتون مقایسه بایت به بایت باشه میتونید از


Dim a1() AsByte = My.Computer.FileSystem.ReadAllBytes("c:\a1.txt")

استفاده کنید

[ali_nob]

سلام
لطفا نحوه نوشتن در فایل رو هم توضیح بدید
ممنون

[nima898]

Dim a1() As Byte = My.Computer.FileSystem.ReadAllBytes("c:\a1.txt")
Dim a2() As Byte = My.Computer.FileSystem.ReadAllBytes("c:\a2.txt")
Dim out As Boolean, i As Integer
out = False
If a1.Length = a2.Length Then
For i = 0 To a1.Length - 1
If a1(i) <> a2(i) Then Exit For
Next
If i = a1.Length Then out = True
End If

[nima898]

سلام
لطفا نحوه نوشتن در فایل رو هم توضیح بدید
ممنون

متوجه منظورتون نشدم از writeallbyte میشه استفاده کرد ولی چی رو باید تو فایل بنویسیم؟

[ali_nob]

بسیار متشکرم روش بسیار جالبی بود
مشکل من با همین روش حل شد.
ممنون