Joining To Arrays in VB.NET
' First off we will be joining a Array of Bytes.
Public Module JoiningArrays
Public Sub JoinByteArray(Byref Args() As Byte, Args1() As Byte)
Dim nArgs(Args.Length + Args1.Length - 1) As Byte ' Here we are getting the total of the two arrays.
Dim x As Integer = 0 ' Increment Pointer.
For i = 0 to Args.Length - 1
nArgs(x) = Args(i)
x+=1
Next
For i = 0 to Args1.Length - 1
nArgs(x) = Args1(i)
x+=1
Next
Erase Args
Args = nArgs
End Sub
End Module
No comments:
Post a Comment