如何使用 VB6 快速将文本文件加载到字符串中?
问问题
29767 次
3 回答
12
这是在 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
于 2011-11-21T07:28:19.703 回答
4
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
于 2011-11-21T07:34:53.193 回答
-2
这是使用文件系统对象的一种方法:
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
于 2011-11-21T07:30:02.567 回答