VB code Open App.Path&"\SendMessage.txt"For InputAs #iFileDo
            DoEvents
                  Line Input #iFile, astr
                  Text1.Text= Text1.Text+ astr+ vbCrLfLoop Until EOF(iFile)
          Close iFile
          EndTime= GetTickCount
          Debug.Print EndTime- StartTime
要读取的文件大小为 31.4kb ,读取时间要2万多毫秒，也太慢了吧，各位大侠，用什么方法达到读取速度更快的目的，
有一些专用处理文本的软件打开一个有十几万行约为2M的文件只要估计1秒不到的时间。

引用楼主 zhuhuofong 的回复:
 VB code Open App.Path&"\SendMessage.txt"For InputAs #iFileDo
             DoEvents
                   Line Input #iFile, astr
                   Text1.Text= Text1.Text+ astr+ vbCrLfLoop Until EOF(iFile)
           Close iFile
           EndTime= GetTickCount
           Debug.Print EndTime- StartTime
 要读取的文件大小为 31.4kb ,读取时间要2万多毫秒，也太慢了吧，各位大侠，用什么方法达到读取速度更快的目的，
 有一些专用处理文本的软件打开一个有十几万行约为2M的文件只要估计1秒不到的时间。

 才三十四K,循环读个啥啊晕..............一次读入不就结了么........

VB codeOpen App.Path&"\SendMessage.txt"For binaryAs #iFile
          astr=space(lof(1))get #iFile, ,astr
          Text1.Text=  astr 
Close iFile
EndTime= GetTickCount
Debug.Print EndTime- StartTime
 10M以内都可以这么读,速度根本就不用考虑.

谢谢各位：
用老马的试了一下，读是很快，不过只能读1千多行。

你需要向老马支付注册费才能读取1000行以上的文件

Private Sub Command1_Click()
For i = 1 To 20000
temp = temp & "项目" & i & vbCrLf
Next
Open "d:\13.txt" For Output As #1
Print #1, temp
Close
End Sub
Private Sub Command2_Click()
ifile = FreeFile
Open "d:\13.txt" For Binary As #ifile
Text1.Text = Input(LOF(ifile), ifile)
Close #ifile
Close
End Sub

为什么这样子只能读后8千多行呢？。

谢谢各位：
用老马的试了一下，读是很快，不过只能读1千多行。

引用 15 楼 zhuhuofong 的回复:
谢谢各位：
用老马的试了一下，读是很快，不过只能读1千多行。

..........你确定读出来的内容小于32K?

文本框默认只能显示32K内容.......

引用楼主 zhuhuofong 的回复:
VB code Open App.Path&"\SendMessage.txt"For InputAs #iFileDo
            DoEvents
                  Line Input #iFile, astr
                  Text1.Text= Text1.Text+ astr+ vbCrLfLoop Until EOF(iFile)
          Close iFile
          EndTime= GetTickCount
          Debug.Print EndTime- StartTime
要读取的文件大小为 31.4kb ,读取时间要2万多毫秒，也太慢了吧，各位大侠，用什么方法达到读取速度更快的目的，
有一些专用处理文本的软件打开一个有十几万行约为2M的文件只要估计1秒不到的时间。

才三十四K,循环读个啥啊晕..............一次读入不就结了么........

VB codeOpen App.Path&"\SendMessage.txt"For binaryAs #iFile
          astr=space(lof(1))get #iFile, ,astr
          Text1.Text=  astr 
Close iFile
EndTime= GetTickCount
Debug.Print EndTime- StartTime
10M以内都可以这么读,速度根本就不用考虑.

引用 23 楼 myjian 的回复:
引用 15 楼 zhuhuofong 的回复:


心情正常了？

引用 21 楼 zhuhuofong 的回复:
Private Sub Command1_Click()
For i = 1 To 20000
temp = temp & "项目" & i & vbCrLf
Next
Open "d:\13.txt" For Output As #1
Print #1, temp
Close
End Sub
Private Sub Command2_Click()
ifile = FreeFile
Open "d:\13.txt" For Binary As #ifile
Text1.Text = Input(LOF(ifile), ifile)
Close #ifile
Close
End Sub

为什么这样子只能读后8千多行呢？。


尝试用richtextbox控件....

字符串连接注意一下细节也可以提高速度
Private Sub Command1_Click()
    Dim i As Long
    Dim s As String
    Dim t As String
    t = "123"
    Debug.Print Time
    For i = 0 To 40000
        s = s & t & vbcrlf '这种连接方式需要10秒才能完成整个循环
        s = s & (t & vbcrlf)'加个括号，时间缩短到5秒
    Next
    Debug.Print Time
End Sub

这个实际上是把两个长串连接中的一个变为短串连接。但是你想过没有，你的例子写得不好，因为在这个例子中后一个连接没有必要在循环中重复。 

Private Sub Command1_Click() 
    Dim i As Long 
    Dim s As String 
    Dim t As String 
    t = "123" & vbcrlf 
    Debug.Print Time 
    For i = 0 To 40000 
        s = s & t  '这种连接方式更快，把末尾的连接省了 
    Next 
    Debug.Print Time 
End Sub 

Private Sub Command1_Click()
    Dim i As Long
    Dim s As String
    Dim t As String
    t = "123"
    Debug.Print Time
    For i = 0 To 40000
        s = s & t & vbcrlf '这种连接方式需要10秒才能完成整个循环
        s = s & (t & vbcrlf)'加个括号，时间缩短到5秒
    Next
    Debug.Print Time
End Sub

=====================================================================================
这个实际上是把两个长串连接中的一个变为短串连接。但是你想过没有，你的例子写得不好，因为在这个例子中后一个连接没有必要在循环中重复。

Private Sub Command1_Click()
    Dim i As Long
    Dim s As String
    Dim t As String
    t = "123" & vbcrlf
    Debug.Print Time
    For i = 0 To 40000
        s = s & t  '这种连接方式更快，把末尾的连接省了
    Next
    Debug.Print Time
End Sub

如果我来做，会将每行数据放入一个字符串数组元素。例如 t()。再用 Join 连接。而不会用循环做字符串连接。

Dim t(40000) As String
For i = 0 To 40000
t(i) = "123"
Next i
s = Join(t, vbCrLf)

为什么不用强大的FSO呢
VB codeDim fso As New FileSystemObject, objTS As TextStreamSet objTS= fso.OpenTextFile("d:\13.txt", ForReading)
Debug.Print objTS.ReadAll

为什么不用强大的FSO呢
Dim fso As New FileSystemObject, objTS As TextStream
Set objTS = fso.OpenTextFile("d:\13.txt", ForReading)
Debug.Print objTS.ReadAll

richtextbox放二万行应该没问题吧？
textbox是有限制的，至于是不是32K不清楚....

引用 39 楼 zzyong00 的回复:
为什么不用强大的FSO呢
Dim fso As New FileSystemObject, objTS As TextStream
Set objTS = fso.OpenTextFile("d:\13.txt", ForReading)
Debug.Print objTS.ReadAll

FileSystemObject不是VB内置的，新建一个FileSystemObject对象
VB codeSet fso=CreateObject("Scripting.FileSystemObject")Set objts= fso.OpenTextFile("d:\13.txt",1)
Debug.Print objts.readall
objts.readall'超出文件尾

用文件影射多好啊~~只要文件大小不是很大速度要比读文件要快很多

引用 31 楼 chenhui530 的回复:
用文件影射多好啊~~只要文件大小不是很大速度要比读文件要快很多


顺便问问陈兄：计算机系统日期被修改为2003年9月8日，是什么病毒？

引用 46 楼 chenjl1031 的回复:
引用 31 楼 chenhui530 的回复:
用文件影射多好啊~~只要文件大小不是很大速度要比读文件要快很多


顺便问问陈兄：计算机系统日期被修改为2003年9月8日，是什么病毒？

会不会是"BIOS电池没电"病毒.......?