[求助]怎样将二进制数专为文本文件？ 怎样将此文件专为文本文件？ 转换后又如何将文本文件再转回去？ 希望做个程序传上来？急用谢谢。］ 最好能批量转换。

Dim strBin As String, byteBuffer As Byte

Open "321.XYH" For Binary As #1
Do While Not EOF(1)
   Get #1, , byteBuffer
   '转换
    strBin = strBin & Chr(byteBuffer)
Loop
Close #1
MsgBox strBin '显示

谢谢，能否给做一个例子，将其转成文本后，也可以将文本再转回原格式 最好是一下能转多个文件，在下愚笨，离编制程序还有距离，望leon2

兄百忙给做个小程序，转回原格式也很重要。谢谢！！！

没人肯帮忙么？真的很急呀！！！！

Dim strBin As String,byteData() As Byte,l As Long
ReDim byteData(Len(strBin) - 1)
Open "321.XYH" For Binary As #1
For l = 1 to Len(strBin)
   byteData(l-1) = Asc(Mid(strBin,l,1)) '转换
Next
Put #1,,byteData
Close #1

注意:只能转换英文字符。

能编译个执行文件么？谢谢

急，leon2兄请帮帮忙 leon2兄程序现在转换文本成果如下：

uxiGJmQq.rar (611 Bytes) [求助][求助]怎样将二进制数专为文本文件？