0

我有一个名为“MyHex.txt”的文本文件,该文件具有这些值

F0 43 00 0A 00 4f 91

我正在用我的 Sub 像这样打开我的文件,并尝试检查数组中的第一个字节是否为“F0”,然后设置值。我需要将接下来的三个字节组合在一起,然后是接下来的三个字节,依此类推

 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“标题”后,我留下了这个

第一次转储:

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 个字节和最后一个字节是唯一改变的字节。

4

0 回答 0