007集——数据存储的端序(大端序和小端序转换代码)——VB/VBA

VB/VBA存储的端序

1、要想制造高性能的VB/VBA代码，离了指针是很难办到的。

2、因为VB/VBA里，用Long来表示指针，而32位(包括64位兼容的)计算机里4字节整数的处理，是最快的方式！

3、要想用指针来处理数据，那就得明白数据在内存里的结构(最近系列文章正在分享，欢迎关注)，更需要明白数据在内存中的存储顺序问题，这就是端序啦！

4、端序1词最早出于《格列佛游记》中小人国吃鸡蛋，他们不知道是从鸡蛋小头吃起，还是从大头吃起，进而引发了争论！后来，随着计算机的发展，也出现了同样的状况！

5、比如字符串"abc"，a在b的左边，c在b的右边。如果将其放入字节数组aByte中，则a为aByte(0)，b为aByte(1)，也即是说左边的存储到低地址，右边存储到高位置。这就是小端序。

6、再比如数字12345，左边的1比右边的2要大，也即是说低位置是高单位，高位置是低单位。这就是大端序。

例如，对于 int 型整数 0x01020304 来说，按照小端序存储，在内存中的顺序（从低到高）如下：

04    03    02    01
按照大端序存储，在内存中的顺序（从低到高）如下：
01    02    03    04
采用哪种字节序？
        大端和小端有其各自的优势。大端存储的第一个字节是高位，对于一些数值判断（比如正负）会很迅速；小端存储的第一个字节是低位，符号位在最后一个字节，从低位开始计算，效率比较高。

        0x为16进制数的前缀，意思就是当你看到0X,那么后面跟的数字就是16进制的数。上面 的例子为什么用16进制表示呢？

        在计算机底层，内存地址通常以十六进制表示。使用十六进制可以更好地理解和识别内存地址、指针和寄存器等底层系统信息。关于这个本博有专门的一篇文章——>CSDN

7、很显然，在现实生活中，我们同时在使用大、小端序，而且都符合习惯。那在计算机里，能否这样呢？

8、答案是否定的，这跟计算机只认整数的原理是一样的，为了简化计算机设计，一种类型的计算机往往只默认一种端序，尤其是在存储领域。

9、我们常用的X86计算机，就是小端序的。这与我们平时大部分人的习惯顺序是一致的，也即“从小到大”和“从左至右”是主流。

10、但是理解大端序也非常有必要，比如汇编机器码中的地址，就需要端序转换。堆栈结构，也需要有类似的理解。

十进制转化为 r 进制，整数部分用除 r 取余法，小数部分用乘r取整法。

以下实例为4个字节长整型long数据从小端序转为大端序的vba代码：

Function LongToBigEndianBytes(ByVal value As Long) As Byte()
    ' 创建一个4字节的数组，用于存储结果的每个字节
    Dim bytes(3) As Byte
        
    ' 将value的每个字节分别赋给数组，从大端序到小端序
    bytes(0) = value And &HFF        ' 最低字节
    bytes(1) = (value And &HFF00) \ &H100       ' 次低字节
    bytes(2) = (value And &HFF0000) \ &H100     ' 次高字节
    bytes(3) = (value And &HFF000000) \ &H1000000 ' 最高字节
        
    ' 返回大端序字节数组
    LongToBigEndianBytes = bytes
End Function
Sub TestLongToBigEndianBytes()
    Dim littleEndianLong As Long
    littleEndianLong = 1000 ' 原始数值
        Dim mys
    ' 将小端序长整型数转换为大端序字节数组
    Dim bigEndianBytes() As Byte
    bigEndianBytes = LongToBigEndianBytes(littleEndianLong)
        
    ' 打印结果（这里打印的是字节的十六进制表示）
    Dim i As Integer
    For i = LBound(bigEndianBytes) To UBound(bigEndianBytes)
        mys = mys & Right("00" & Hex(bigEndianBytes(i)), 2)
    Next i
    MsgBox "十进制数： " & littleEndianLong & "  对应的十六进制大端序是：" & vbCr & Space(15) & mys
End Sub

1000(十进制) = 3E8(十六进制)，补齐8字节后为00 00 03 E8 ,小端序转大端序为E8 03 00 00，如下图所示：