怎样操作 二进制 文件

Question

ff 00 d5 c6 2f 等是十六进制数据，你可以将你的二进制数据转换成十六进制的，至于转换，你看看普通的算法书或网上查一下就行了

Answer 1

假设数据在LoadBytes中Dim TempStr As String
Dim HexStr As StringFor I=LBound(LoadBytes) To UBound(LoadBytes)
    TempStr=Hex$(I)
    TempStr=String$(2-Len(TempStr),"0")+TempStr
    HexStr=TempStr+" "
    
Next ITextBox.Text=HexStr '假设读取到TextBox

Answer 2

zyl910(910：分儿，我来了！)　(2002-1-24 13:41:49)  得0分 
假设数据在LoadBytes中Dim TempStr As String
Dim HexStr As StringFor I=LBound(LoadBytes) To UBound(LoadBytes)
    TempStr=Hex$(I)
    TempStr=String$(2-Len(TempStr),"0")+TempStr
    HexStr=TempStr+" "
    
Next ITextBox.Text=HexStr '假设读取到TextBox
 
同意！

Answer 3

错了，是：假设数据在LoadBytes中Dim TempStr As String
Dim HexStr As StringFor I=LBound(LoadBytes) To UBound(LoadBytes)
    TempStr=Hex$(LoadBytes(I))
    TempStr=String$(2-Len(TempStr),"0")+TempStr
    HexStr=TempStr+" "
    
Next ITextBox.Text=HexStr '假设读取到TextBox

Answer 4

简单，使用二进制方法读取文件即可：
Option ExplicitPrivate Sub Command1_Click()
    Dim tmp As Byte
    Dim FileLength As Long
    Dim i As Long
    Text1.Text = ""
    Open "D:\test.dat" For Binary Access Read Lock Read As #1
        FileLength = LOF(1)
        For i = 1 To FileLength
            Get #1, i, tmp
            If tmp < 10 Then
                Text1.Text = Text1.Text & "0" & Hex(tmp) & " "
            Else
                Text1.Text = Text1.Text & Hex(tmp) & " "
            End If
        Next
    Close #1    
End Sub

Answer 5

最快速的读取文件的代码：
Dim LoadBytes() As Byte
Dim FileNum As Long
Dim FileLong As LongFileNum=FreeFile
Open 文件名 For Binary As #FileNum
FileLong=Lof(FileNum)
Redim LoadBytes(1 To FileLong) As Bytes
Get #FileNum,,LoadBytes
Close #FileNum

Answer 6

完整的代码：
Dim LoadBytes() As Byte
Dim FileNum As Long
Dim FileLong As LongFileNum=FreeFile
Open 文件名 For Binary As #FileNum
FileLong=Lof(FileNum)
Redim LoadBytes(1 To FileLong) As Bytes
Get #FileNum,,LoadBytes
Close #FileNumDim TempStr As String
Dim HexStr As StringFor I=1 To FileLong
    TempStr=Hex$(LoadBytes(I))
    TempStr=String$(2-Len(TempStr),"0")+TempStr
    HexStr=TempStr+" "
    
Next ITextBox.Text=HexStr '假设读取到TextBox