读取文件内容的简洁方法

读取文本文件最快的方法是使用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

关闭#句柄

结束函数