以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  字节数组取中间4个字节怎么取  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176902)
--  作者：237756360
--  发布时间：2022/4/30 22:37:00
--  字节数组取中间4个字节怎么取
 Dim bs() As Byte = {&H01，&H03，&H49, &H16, &H01, &H54，&H02，&H16}

求助，想把上面那一段代码中间标黄的字节放到新的“字节”数组里，然后接下面的代码，请问应该怎么办？


Dim bs() As Byte = {&H49, &H16, &H01, &H54}
Array.Reverse(bs) \'将数组倒置
Dim f = BitConverter.ToSingle(bs, 0)
Output.Show(f)


[此贴子已经被作者于2022/4/30 23:38:41编辑过]
--  作者：狐狸爸爸
--  发布时间：2022/5/1 8:19:00
--  
Dim bs1() As Byte = {&H0, &H03, &H49, &H16, &H01, &H54, &H02, &H16}
Dim bs(4) As Byte 
For i As Integer = 2 To 5
    bs(i - 2) = bs1(i)
Next 
Array.Reverse(bs) \'将数组倒置
Dim f = BitConverter.ToSingle(bs, 0)
Output.Show(f)