怎样将二进制文件转成上面乱七八糟的字符的形式而又不会破坏原来的文件的保存在一个文本文件中（起码可以还原的）

Question

还有分在http://www.csdn.net/expert/topic/221/221130.shtm中

Answer 1

Dim bByte as Byte
Dim nFreeNum as Integer
Dim lFileLength as Long
nFreeNum=FreeFile
Open sFile For Binary As nFreeFile
lFileLength=LOF(nFreeFile)
Dim i As Long
For i=1 To lFileLength
    Get #nFreeNum,i,bByte
    Text1.Text="Code=" & Str(bByte) & " And Char=" & Chr(bByte)
Next i
Close nFreeFile
'bByte就2进制文件一个字节的内容
Chr(bByte)就是显示的字符，有时候不可见