Question

VB如何在文件每两个字节后添加一个空格？

一个二进制的文件，如何将文件在每两个字节之后添加一个空格，然后存入新的文件中？
抱歉，有点没说明白，文件内容为16进制的（每个数据为1字节），想在每两个字节之后添加一个空格。

Answer 1

Private Sub Command1_Click()
Dim a1 As String
Open "OLoad15.jpg" For Binary As #8
If Dir("c:\###OLoad15_002.txt") <> "" Then Kill "c:\###OLoad15_002.txt"
Open "c:\###OLoad15_002.txt" For Binary As #9
Do Until EOF(8)
a1 = a1 & Right("0" & Hex(AscB(InputB(1, #8))), 2)
a1 = a1 & Right("0" & Hex(AscB(InputB(1, #8))), 2)
a1 = a1 & " "
Loop
Put #9, , a1
Close #8
Close #9
End Sub

Answer 2

用提取那个函数，从左边起一次提取两字节然后用＆连接下一次提取的两字节，最后另存下…