Question

我有一个名为＆＃34; MyHex.txt＆＃34;的文本文件。在其中文件具有这些值

F0 43 00 0A 00 4f 91

我正在使用我的Sub打开我的文件并尝试检查数组中的第一个字节是否为＆＃34; F0＆＃34;然后设置值。我需要将接下来的三个字节组合在一起然后接下来的三个字节，依此类推

 Dim strings As String() = IO.File.ReadAllText(C:\MyHex.txt).Split(" "c)


    Select Case strings((0))
        Case "F0"
            StatusType = "Sysex"
    End Select

更新：需要每三个字节对值进行分组。所以它们可以被解码

使用

       Sn.xx.yy

       S=Status (8-e)
       n=CN (0-F)
       xx=FDB (00 -7F)
       yy=SDB (00-7F)

更新2：

删除Sysex＆＃34; Header＆＃34;我离开了这个

第一次转储：

08 0A 4C 4D 20 20 4E 53 45 51 31 20 46 30 30 30 30 31 46 38 45 30 43 30 36 30 32 34 36 34 30 32 37 46 46 35 46 32 60

第二次转储

08 0A 4C 4D 20 20 4E 53 45 51 31 20 46 30 30 30 30 31 46 38 45 30 43 30 36 30 32 36 36 34 30 32 37 46 46 35 46 32 5E

第29个字节，最后一个是唯一改变的字节。

在第一个之后将3个字节组合在一起

0 个答案: