中国教程网论坛 » VB » 读取text文件的最快方法

henrry365 发表于 2007-9-27 10:05

读取text文件的最快方法

读取text文件的最快方法是使用Input$函数，就象下面的过程：  
Function FileText (filename$) As String  
Dim handle As Integer  
handle = FreeFile  
Open filename$ For Input As #handle  
FileText = Input$(LOF(handle), handle)  
Close #handle  
End Function  
使用上述方法要比使用Input命令读取文件每一行的方法快很多。下面是应用这个函数读取Autoexec.bat的内容到多行textbox控件的例子：  
Text1.Text = FileText("c:\autoexec.bat")  
但请注意：当文件包含Ctrl－Z（EOF）字符时，上面的函数代码可能会发生错误。因此，要修改一下代码：  
Function FileText(ByVal filename As String) As String  
Dim handle As Integer  
’ 判断文件存在性  
If Len(Dir$(filename)) = 0 Then  
Err.Raise 53 ’文件没有找到  
End If  
’ 以binary模式打开文件  
handle = FreeFile  
Open filename$ For Binary As #handle  
’ 读取内容，关闭文件  
FileText = Space$(LOF(handle))  
Get #handle, , FileText  
Close #handle  
End Function

别情 发表于 2008-1-1 20:51

没钱#@#$!

zglead 发表于 2008-5-19 17:19

没有金币，但急需怎么办？　

没有金币，但急需怎么办？　

大雁西南飞 发表于 2008-6-15 21:44

很好

写的不错！

老纪 发表于 2008-6-22 22:03

学习了，可惜基础不高，看不太懂！！

天籁笛音 发表于 2008-8-26 20:59

写得不错，赞一个

查看完整版本: 读取text文件的最快方法