读取文件内容的简洁方法
读取文本文件最快的方法是使用Input$函数,就像下面的过程一样:
字符串形式的函数文件文本(文件名$)
整数形式的Dim句柄
handle = FreeFile
打开文件名$作为#handle输入
FileText = Input$(LOF(句柄),句柄)
关闭#句柄
结束功能
使用上述方法比使用Input命令读取文件的每一行要快得多。下面是一个应用此函数将Autoexec.bat的内容读取到多行textbox控件的示例:
文本1。Text = FileText("c:\autoexec.bat ")
但请注意:当文件包含Ctrl-Z (EOF)字符时,上述函数代码可能会出现错误。因此,要修改代码:
函数文件文本(字符串形式的ByVal文件名)作为字符串
整数形式的Dim句柄
判断文件是否存在。
如果Len(Dir$(文件名))= 0,则
呃。找不到提升53 '文件
如果…就会结束
以二进制模式打开文件。
handle = FreeFile
将二进制文件的文件名$作为#handle打开
阅读内容并关闭文件。
FileText = Space$(LOF(句柄))
获取#handle,,FileText
关闭#句柄
结束函数
0条评论