以下代码随手写的 并没有大量测试 效率也有待提升 如果需要C#的请自行转换
Function SplitBytes(Data As Byte(), Delimiter As Byte()) As List(Of Byte())
Dim i =
Dim List As New List(Of Byte())
Dim bytes As New List(Of Byte)
Dim dl = Delimiter.Length
For Each b In Data
bytes.Add(b)
If b = Delimiter(i) Then
If i >= dl - Then
i =
bytes.RemoveRange(bytes.Count - dl, dl)
List.Add(bytes.ToArray)
bytes.Clear()
Continue For
End If
i +=
Else
i =
End If
Next
If bytes.Any Then
List.Add(bytes.ToArray)
End If
Return List
End Function