Assign a text file from hard disk into a VBA string variable

[AbiCgail]

I need your help. Recently I want to read a short text string from hard disk and assign into a VBA string variable. I have done research over the internet with the help of my browser and found no help. Actually I don’t want to open a file and put it directly on to a worksheet and then read, last close the worksheet. It is difficult for a four character long file. Please provide necessary syntax or code for it.

[Villiers]

I can understand your query that you have posted. You need a function for binary access. See the below functions:

Sub ReadFile()
Dim hFile As Long
Dim strFile As String
Dim strData As String * 4

hFile = FreeFile
strFile = "C:\Something.txt"
Open strFile For Binary Access Read As hFile Len = 4
Get hFile, 1, strData
Close hFile
MsgBox strData
End Sub

Also you can read line the file system object library.

[Ronchi]

I have tried the below functions by myself so I can assure you that it works fine with me and so it will be for you. The function will read in a multi line file where each line is enclosed by a NL/LF pair.

Sub ReadMultiLines()
'requires a reference to the Windows Script Host Object Model
Dim FSO As FileSystemObject
Dim tsInput As TextStream
Dim strFile As String
Dim strLine As String

strFile = "D:\DspfxId.txt"
Set FSO = New FileSystemObject
Set tsInput = FSO.OpenTextFile(strFile, 1)

Do While Not tsInput.AtEndOfStream

strLine = tsInput.ReadLine
Debug.Print strLine

Loop
tsInput.Close
Set FSO = Nothing
End Sub

[Dwarner]

The below coding will give you output such as.
Produced:

• this is line 1
• This is line 2
• This is line 3
• This is line 4

These outputs are in the text file. The code is:

Sub Tester4()
Dim fname As String
Dim sVal As String
fname = "C:\xlText\MyText.txt"
sVal = OpenTextFileToString2(fname)
Debug.Print sVal
End Sub

Function OpenTextFileToString2(ByVal strFile As String) As String
' RB Smissaert - Author
Dim hFile As Long
hFile = FreeFile
Open strFile For Input As #hFile
OpenTextFileToString2 = Input$(LOF(hFile), hFile)
Close #hFile
End Function

[Author]

To read the file you have to use the below code in your source code. Its very easy to understand if you read it carefully.

public string ReadFromFile(string filename)
{
StreamReader sr = File.OpenText(filename);

StringBuilder sb = new StringBuilder();
string str = sr.ReadLine();
while( str != null )
{
sb.Append(str + "\n");
str = sr.ReadLine();
}
sr.Close();
return sb.ToString();
}

[Steyn]

Add this code to read from the directory directly.

StreamReader SR;
string S;
SR=File.OpenText(filename);
S=SR.ReadLine();
while(S!=null) {
Console.WriteLine(S);
S=SR.ReadLine();
}
SR.Close();