VB读取文件内容的简单方法

时间:2010-01-28 13:49:32  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:, handle) Close #handle End Function 使用上述方法要比使用Input命令读取文件每一行的方法快很多。下面是应用这个函数读取Autoexec.bat的内容到多行textbox控件的例子: Text1.Text = FileText("c:autoexec.bat") 但请注意:当文件包含Ctrl-Z(EOF)字符时,上面的函数代码可能会发生错误。因此,要修改一下代码: Function File...
  正文:

读取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


"VB读取文件内容的简单方法"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/VB/12551.html


关键字:

关于《VB读取文件内容的简单方法》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td