这里哪里错了？？

[pcfanshome]

Open oFile For Binary As #1
Open tFile For Binary AS #2
For i = 0 to FileLen(oFile)
Get 1 , , a
Put 2 , , a
Next
Close #1
Close #2

上面的代码是以二进制的方式打开一个文件，然后重新以二进制的方式写到另一个文件，但是在写的时候，nFile这个文件的后面多出好多个空格，跟oFile的文件字节数不一样了，请问怎么会这样呢？

问题2：Active Report怎么才能正确的显示中文？在2000下可以，但到了98就出事了，报表的字体我已全部设为宋体了，但是还是不行.请高手解答!!!

[yjmking]

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

[pcfanshome]

那怎么办呢？？

[zyl910]

读取：
Dim TempFile As Long
Dim LoadBytes() As Byte

TempFile=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 Byte

SaveBytes=LoadBytes

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

[pcfanshome]

不行啊！格式还是跟原来的不一样！