这里哪里错了？？

Question

第一个问题：因为使用put时，自动添加了回车换行符。
第二个问题：因为我用Crystal Report,所以不知道。

Answer 1

读取：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile'Text1.Text=StrConv(LoadBytes,vbUniCode) '如果要显示到文本框，就这样做写入：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=LoadBytesTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile