讀取文件內(nèi)容的簡(jiǎn)潔方法

讀取text文件的最快方法是使用Input$函數(shù)，就象下面的過(guò)程：
    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命令讀取文件每一行的方法快很多。下面是應(yīng)用這個(gè)函數(shù)讀取Autoexec.bat的內(nèi)容到多行textbox控件的例子：
    Text1.Text = FileText("c:\autoexec.bat")
    但請(qǐng)注意：當(dāng)文件包含Ctrl－Z（EOF）字符時(shí)，上面的函數(shù)代碼可能會(huì)發(fā)生錯(cuò)誤。因此，要修改一下代碼：
    Function FileText(ByVal filename As String) As String
    Dim handle As Integer
    ' 判斷文件存在性
    If Len(Dir$(filename)) = 0 Then
    Err.Raise 53 '文件沒(méi)有找到
    End If
    ' 以binary模式打開(kāi)文件
    handle = FreeFile
    Open filename$ For Binary As #handle
    ' 讀取內(nèi)容，關(guān)閉文件
    FileText = Space$(LOF(handle))
    Get #handle, , FileText
    Close #handle
    End Function