二进制读取文件的相关问题

Question

Dim strAll as String
Dim strLine as StringOpen FileName For Input As #1
Do While not eof(1)
    Line Input #1,strLine
    strAll=strAll & strLine & vbCrLf
Loop
Close #1MsgBox strAll

Answer 1

TO:foolishtiger(吴文智),谢谢你
但是如果我读取得文件比较大,文件的后面内容就读不到,我读的文本文件为73k,你能帮我试试吗,　

Answer 2

首先请用二进制方式打开文件
dim filehandle as long
filehandle = FreeFile
Open FileName For Binary Access Read As #filehandle然后采用get方法获取二进制信息。
取得后，你可以用数组下标的方式取值到String中并显示。文件比较大，出现^Z的机会就越大，自然后面的内容没法读取。

Answer 3

Dim StrFile as StringOpen FileName For Binary As #1
StrFile=Input(Lof(1),#1)
Close #1

Answer 4

我前一段时间也做过一个类似的项目，我这里有些代码，因为我开始也是用二进制方式打开，将数据存入字符型数组，试了好多次，最后还是按随机文件，按定长方式打开，效果不错，希望能对你有所帮助，加分（嘻嘻）！
Dim i As Long, j As Long
    Dim mydata() As Long
    lenth = Len("filename")
    ReDim mydata(lenth, 10)
    Open "filename" For Random Access Read As #1 Len = 4
    For i = 1 To 7
             For j = 1 To 10
        Get #1, , mydata(i, j)
        Print mydata(i, j);
            Next j
               
    Next i
    Close #1End Sub