Question

VB.NET中的字节翻转示例是什么？

16位无符号短

翻转之前：

02 00 0D 78 10 20 40 80 F1 F2 F4 F8 1F 2F 4F 8F

翻转之后应该是：

00 02 78 0D 20 10 80 40 F2 F1 F8 F4 2F 1F 8F 4F

它应该使用OFD翻转整个* .bin文件。

Answer 1

您只需循环遍历数组中的所有项目并交换每个字节。

Dim bytes() As Byte = {&H2, &H0, &HD, &H78, &H10, &H20, &H40, &H80, &HF1, &HF2, &HF4, &HF8, &H1F, &H2F, &H4F, &H8F}

For i As Integer = 0 To bytes.Length - 1 Step 2
    bytes(i) = bytes(i) Xor bytes(i + 1)
    bytes(i + 1) = bytes(i + 1) Xor bytes(i)
    bytes(i) = bytes(i) Xor bytes(i + 1)
Next

如果需要，请使用临时变量

For i As Integer = 0 To bytes.Length - 1 Step 2
    Dim tempByte As Byte = bytes(i)
    bytes(i) = bytes(i+1)
    bytes(i + 1) = tempByte
Next

Answer 2

你可以随便写，比如：

Dim file = dialog.FileName

Using output = New BinaryWriter(New FileStream( _
                                  file, _
                                  FileMode.Append, _
                                  FileAccess.Write, _
                                  FileShare.Read))

    Using input = New BinaryReader(New FileStream( _
                                     file, _
                                     FileMode.Open, _
                                     FileAccess.Read, _
                                     FileShare.ReadWrite))
        Dim bufferLength = 2
        While bufferLength = 2
            Dim buffer = input.ReadBytes(2)
            bufferLength = buffer.Length
            If bufferLength = 2 Then
                output.Write(buffer(1))
                output.Write(buffer(0))
            Else If bufferLength = 1 Then
                output.Write(buffer(0))
            End If
        End While
    End Using
End Using

VB.NET中的16位无符号短字节翻转

2 个答案: