How to load text file into string using VB6

Question

How can I quickly load a text file into a string using VB6?

possible duplicate of [How can I read data from a text file using VB6?](http://stackoverflow.com/questions/2873830/how-can-i-read-data-from-a-text-file-using-vb6) — MarkJ, Nov 21 '11 at 11:39

score 13 · Answer 1 · answered Nov 21 '11 at 07:28

13

This is the fastest way to load an entire file in VB6 without doing it line by line:

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

answered Nov 21 '11 at 07:28

Authman Apatira

3,994
1
26
33

1

Will not work on all regional settings. Just use the code from the VB6 manual as in my answer to [this duplicate question](http://stackoverflow.com/questions/2873830/how-can-i-read-data-from-a-text-file-using-vb6/2875248#2875248) – MarkJ Nov 21 '11 at 11:41

score 5 · Accepted Answer · answered Nov 21 '11 at 07:34

5

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

answered Nov 21 '11 at 07:34

CJ7

22,579
65
193
321

Not working in VB6... clearly this is .NET or better – Patrick Moore Jan 27 '14 at 06:10
4

@SetSailMedia not true, this is VB6. it requires a reference to `scrrun.dll` (`Microsoft Scripting Runtime`) – Brad Apr 29 '14 at 17:08

score -2 · Answer 3 · answered Nov 21 '11 at 07:30

-2

Here's one way to do it using the 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

answered Nov 21 '11 at 07:30

Nonym

6,199
1
25
21

Unnecessary looping through line by line. Don't need to close TextStream. – CJ7 Nov 21 '11 at 07:36
1

Using FSO is unnecessary in first place. Same for your answer. – wqw Nov 21 '11 at 12:49
1

@CraigJ: No harm, until some bogus uninstaller unregisters the COM server. – wqw Dec 15 '11 at 14:49
@wqw: then you use a self-heal MSI installer for your app - problem solved. – CJ7 Dec 16 '11 at 03:05

How to load text file into string using VB6

3 Answers3