module1.bas

这是一个自制的实用的文件格式转化工具

Attribute VB_Name = "Module1"
Sub Main()

  Dim filelen As Integer
        Dim filesum As String
        Dim path As String
        Dim b2 As Byte
        filepath = "avr.obj"
        dfile = "top.obj"
           On Error Resume Next
        Kill dfile
        'filesum = ""
        comchr = ""
        '-------------------------------------------------------
        Open dfile For Random As #2 Len = 1   '打开或创建被写的随机存取文件，每次操作数长度为一个字节
        Open filepath For Binary As #1        '打开被读的二进制文件，每次读一个字节
        
        filelen = LOF(1)

         kg = 0
         xi = 1                            '用于标记写二进制文件时字节位置
       For i = 1 To filelen
           Get #1, i, b2
           
             If ((Chr(b2) = "A") Or (Len(comchr) >= 1)) And (kg = 0) Then
              ' MsgBox (Chr(b2))
              
                  comchr = comchr + Chr(b2)
                 If Len(comchr) = 15 Then
                    If comchr = "AVR Object File" Then
                       conchr = comchr
                
                       i = Seek(1) + 4
                       Seek #1, i
                    Else
                        comchr = ""
                    End If
                 End If
             End If
             If conchr = "AVR Object File" Then      'coNchr获得字串后由gk＝1控制不许再进入上面的if--en if
                ' g = Seek(1)
               
                    kg = 1
                 
                    Get #1, i, b2
                
                    Put #2, xi, b2
                    xi = xi + 1
                    i = i + 1
                    Get #1, i, b2
                
                    Put #2, xi, b2
                    xi = xi + 1
                    i = Seek(1) + 6
             End If
        
        '--------------------------------------------------------------
        
                  ' If (b2 >= 124) Or (b2 = &HD&) Or (b2 = &HA&) Or (b2 = &H20&) Then '大于等于124说明不是ASC码，后面的或为不可显示码
                  '      ss = ss + "."
                  ' Else
                  '      ss = ss + Chr(b2)
                  ' End If
       Next
           
       
 'MsgBox (ss)         'msgbox 显示的字符不能超过1024个.


'MsgBox (i)
Close #1
Close #2
End
'------------------------------------------------------------------

 'Seek #1, i
       '  MsgBox (i)
          'filesum$ = filesum$ + Right$(Hex$(a%), 4) + " "
          'filesum$ = filesum$ + Hex$(a%) + " "
         'ss = ss + Right(Hex$(Str(b2)), 2) + " "
         'MsgBox ("chr:   " & Chr(b2))
         '   aaa = Len(b2)
         '   MsgBox ("len:  " & aaa)

'------------------------------------------------------------------

''Dim ba1 As Byte
''Open filepath For Binary As #1
''    Seek #1, 2
''Get #1, 2, ba1
''k = Len(ba1)
''MsgBox ("len:  " & k)
''   xs = Right(Hex$(Str(ba1)), 2)
''MsgBox (xs)
' ss = Seek(1)
'MsgBox (ss)


End Sub