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