ادغام فایل ها

[Mohsen6558]

با سلام
من به یه کدی نیاز دارم که دو تا فایل رو باز کنه بایت هاش رو برداره و با هم ادغام کنه و یه فایل بسازه
حالا من می تونم بایت های یک فایل رو بردارم (ReadaAllByte) اما نمی دونم تو چی ذخیره کنم یعنی تو چه نوع داده ای اینو ذخیره کنم که بعدا بتونم فایل دوم رو هم بازکنم و بایت هاش رو بخونم به اون نوع داده ای اضافه کنم
با تشکر

[nima898]

سلام من دقیقا متوجه مشکل نشدم
اگه داده از نوع byte باشه با writeallbyte میشه ذخیره کرد

[milad.biroonvand]

اگه لطف کنی دقیق تر بگی ، خیلی بهتره و ما هم منظورت و دقیقا می فهمیم .:متفکر:

[nima898]

یه مثال ساده نوشتم ببین به دردت می خوره


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(255) As Byte, i As Integer
For i = 0 To 255
a(i) = i
Next
My.Computer.FileSystem.WriteAllBytes("c:\test\a1.txt", a, False)
For i = 0 To 255
a(i) = 255 - i
Next
My.Computer.FileSystem.WriteAllBytes("c:\test\a2.txt", a, False)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a() As Byte = My.Computer.FileSystem.ReadAllBytes("c:\test\a1.txt")
Dim b() As Byte = My.Computer.FileSystem.ReadAllBytes("c:\test\a2.txt")
Dim c(511) As Byte, i As Integer
For i = 0 To 255
c(2 * i) = a(i)
c(2 * i + 1) = b(i)
Next
My.Computer.FileSystem.WriteAllBytes("c:\test\a3.txt", c, False)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim d() As Byte = My.Computer.FileSystem.ReadAllBytes("c:\test\a3.txt")
End Sub