关于byte数组

Question

第一个问题：用Get读数组。Dim LAry() as ByteReDim LAry(120) As ByteOpen "1.bin" for binary as #1
  Get #1,LAry()
Close #1后几个问题我就不清楚了。

Answer 1

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 TempFileText1.Text=StrConv(LoadBytes,vbUniCode)写入：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile
2.3.可以用CopyMemory复制内存4.给分方法：http://www.csdn.net/help/over.asp