如何使用VB6將文本文件加載到字符串中

Question

如何使用VB6將文本文件快速加載到字符串中？

Answer 1

Public Function ReadFileIntoString(strFilePath As String) As String 

    Dim fso As New FileSystemObject 
    Dim ts As TextStream 

    Set ts = fso.OpenTextFile(strFilePath) 
    ReadFileIntoString = ts.ReadAll 

End Function 

Answer 2

這是加載在VB6整個文件，無需線做它行的最快的方法：

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 

Answer 3

下面是使用FileSystemObject做到這一點的一種方法：

Public Function ReadTextFileIntoString(strPathToFile as String) as String 
    Dim objFSO As New FileSystemObject 
    Dim objTxtStream As TextStream   
    Dim strOutput as String 
    Set objTxtStream = objFSO.OpenTextFile(strPathToFile) 
    Do until objTxtStream.AtEndOfStream 
    strOutput = strOutput + objTxtStream.ReadLine 
    Loop 

    objTxtStream.Close 
    ReadTextFileIntoString = strOutput 
End Sub