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
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
解决方案 »
- 滚动条控制图表动态演示
- 请问:如何判断用户在TextBox中输入的是一个合法的时间?
- 有什么表格控件可以固定表格底部的行?
- 请问高手VB6下API问题?
- 急,在线
- 好久没有提问了,关于奇怪的错误
- VB6.0利WMI编程问题,访问windows XP操作系统出错(利用xp操作系统开发的)!
- 我用DAO建立数据库,不知怎样建立一个递增编号的字段,代码怎么写?请大家帮忙。
- 有没有直接在数组(已经定义)中抽取随机数的函数?
- MSCOMM编写串口程序返回数据超出buffersize
- playyuer(女㊣爱)进来帮忙,多谢多谢,有关DataReport的打印问题,其他高手也请进来!!!
- 问一个简单的问题:在VB里怎么样打印一个文件如d:\text.txt?
但是如果我读取得文件比较大,文件的后面内容就读不到,我读的文本文件为73k,你能帮我试试吗,
dim filehandle as long
filehandle = FreeFile
Open FileName For Binary Access Read As #filehandle然后采用get方法获取二进制信息。
取得后,你可以用数组下标的方式取值到String中并显示。文件比较大,出现^Z的机会就越大,自然后面的内容没法读取。
StrFile=Input(Lof(1),#1)
Close #1
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