basic 复制文件为16进制

Sub copyfile(fs_in, fs_out)
f_in = FreeFile()
Sub copyfile(fs_in, fs_out)
f_in = FreeFile()
Open fs_in For Binary Access Read As f_in
f_out = FreeFile()
Open fs_out For Append Access Write As f_out

Dim s1 As String, s2 As String, s0 As String
s0 = ""
Do While Not EOF(f_in)    ' 循环至文件尾。
    'Input #1, TextLine    ' 读入一行数据并将其赋予某变量。
    s1 = InputB(1, #f_in) ' 读入一行数据并将其赋予某变量。
    s2 = Hex(AscB(s1))
    'Debug.Print TextLine    ' 在立即窗口中显示数据。
    If s2 = "D" Then
        'Print #f_out, s2;
    ElseIf s2 = "A" Then
        Print #f_out,
    Else
        Print #f_out, s2;
    End If
Loop
Close f_in    ' 关闭文件。
Close f_out   ' 关闭文件。
Close

End Sub