byte配列を連結するには？

解決

こじ 2003-08-19 23:11:26 No: 108150

byte配列を連結するにはどうすればいいんでしょうか？
よろしくお願いします。

Take1 2003-08-19 23:28:28 No: 108151

Dim a As Byte, b As Byte

MsgBox a & b

こじ 2003-08-19 23:37:45 No: 108152

VB.NETで&演算子を使うと実行時にエラーになります。
VB.NETでも可能でしょうか？

魔界の仮面弁士 2003-08-19 23:42:11 No: 108153

VB.NETの場合は、配列のCopyメソッドにそのような機能があります。

VB6の場合は、CStr(x) または StrConv(x, 0)にて文字列化し、
それを & 演算子で連結するか、もしくは RtlMoveMemory APIで複写するか、
あるいは Stream オブジェクトなどを経由させるか…ですかね。

例えば、& で結合させるならこんな感じで。

    Dim A() As Byte
    Dim B() As Byte
    Dim C() As Byte

    'とりあえず、検証用の元データ
    Dim L As Long
    ReDim A(127), B(127)
    For L = 0 To 127
        A(L) = L
        B(L) = L + 128
    Next

'結合処理
C = CStr(A) & CStr(B)

    'データの確認
    For L = LBound(C) To UBound(C)
        Debug.Print "C("; L; ")="; C(L)
    Next

B系関数(MidB, LenB等)を併用する事で、配列の一部分の切り出しも可能です。

こじ 2003-08-19 23:53:21 No: 108154

ありがとうございます。

こじ 2003-08-19 23:58:54 No: 108155

解決しました、ありがとうございました。