请问有没有办法使Byte型数组转换成long型数组

Question

我这里有一个3维byte型数组，是存储位图数据的，但是在分析数据的时候，我想把他们都转换成long型来计算，我想问问有没有办法在vb中直接把这个数组转换成long型，clng貌似不顶用，除了每个成员逐个转换外

Answer 1

b(0),b(1),b(2)L=b(0)+256*b(1)+b(2)*65536

Answer 2

Option ExplicitPrivate Declare Sub GetMem4 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Long)Private Sub Command1_Click()
   Dim b(2) As Byte
   Dim lRlt As Long
   ' b数组 中的字节顺序要与 Long 类型的内存字节序一致
   b(0) = &H12
   b(1) = &H34
   b(2) = &H56
   Call GetMem4(VarPtr(b(0)), lRlt)
   lRlt = lRlt And &HFFFFFF   ' 把最高字节屏蔽掉
   MsgBox Hex$(lRlt), 64      ' 输出：563412
End Sub

Answer 3

你们那个转换的好像是long型数据，不是数组吧，我指的是一个把byte数组变成long型数组，注意，是数组，里面的数据值是完全一样，比如
dim a(4) as byte
a(0)=1
a(1)=2
a(2)=3
a(3)=4
a(4)=5
然后因为数组a()是byte，我想把他变成long,但是无论维数，还是里面的每个成员的值都不变，也就是说从a(0)到a(4)还是1,2,3,4,5但是是long型的

Answer 4

这个很重要啊，因为大量的运算用long型在vb里是最快捷的，而且byte好像还不能为负

Answer 5

两种数组逐个赋值得了，速度也很快，印象中标准的汇编里是没这种批量转换的，实在还嫌速度不够就要去MMX,SSE这类东西里找。
不过我要提醒你一下，你这个测速肯定是要编译成EXE后测试，你别在VBIDE里测，那不是执行的编译后的机器码，速度会慢很多的

Answer 6

转换数组要方便的话，觉得还是用CopyMemory吧Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" ( _
     ByRef Destination As Any, _
     ByRef Source As Any, _
     ByVal Length As Long)'ByteArray()为要转换的Byte数组
'LongArray()为接收转换后数据的Long数组，下标从0开始，最好定义为可变数组，或传入的数组长度必须能容纳Byte数组，否则内存将会越界
'成功返回True，失败（字节数组长度不是4的倍数或为空）返回False
Private Function TransByteArrayToLongArray(ByteArray() As Byte, LongArray() As Long) As Boolean
    Dim ByteArrayLen As Long
    On Error Resume Next
    ByteArrayLen = UBound(ByteArray) - LBound(ByteArray) + 1
    If Err.Number = 0 And ByteArrayLen > 0 And ByteArrayLen Mod 4 = 0 Then
        ReDim LongArray(ByteArrayLen / 4 - 1)
        CopyMemory ByVal VarPtr(LongArray(0)), ByVal VarPtr(ByteArray(LBound(ByteArray))), ByteArrayLen
        TransByteArrayToLongArray = True
    End If
End Function'测试
Private Sub Command1_Click()
    Dim a(7999) As Byte, b() As Long
    Dim i As Integer
    For i = 0 To 7999
        a(i) = i Mod &H100
    Next i
    TransByteArrayToLongArray a, b
    For i = 0 To UBound(b)
        Debug.Print Hex(b(i))
    Next i
End Sub
其实如果不考虑转换会出错及越界的可能，数组下标又确定是从0开始的话，只需要一条语句就行了：CopyMemory ByVal VarPtr(长整型数组(0)), ByVal VarPtr(字节数组(0)), 字节数组长度

Answer 7

又看了楼主说的，好像搞错了，原来是将字节数组直接变为长整型数组，值又要一样，那就没有什么方便的办法吧，直接赋值就行了，好像也只能逐个直接赋值吧Dim a(3) as byte,b(3) as long
b(0)=a(0):b(1)=a(1):b(2)=a(2):b(3)=a(3)

Answer 8

其他没有特别的必要去转换的，使用的时候如果结果为Long或者访问函数参数为Long都会自动转换的

Answer 9

求教，我就遇到了这样的问题，但是我的要求是把byte数组转为long，不过我的byte数组长度不一定，也就是说，可能是byte(N)，求教那组被乘的数是什么规律……我好些的循环，或者有什么更高效的办法没……谢谢