Reading In a Text File One Line At a Time

[paulhenderson]

I am trying to read in one line of a text file at a time, basically, the text file will be full of numbers, but i want to read in one line at a time and display it in a text box, i can read in a full text file in one go but i dont know how to read in one line at a time, here is the code that reads in the whole text file, any help would be great, thanks....

'code:

Dim line As String
Open Filename For Input As #1
Do While Not EOF(1)
Input #1, line
Text1.Text = Text1.Text & vbCrLf & line
DoEvents
Loop
Close #1

[ahara]

I must be missing something (???) If you lose the loop, you can input a line. Is that what you want? (ps - you do realize that you share your name with one of the most famous Canadians ever )

[paulhenderson]

im not really sure, the text file looks like

254
147
587
84
64
etc etc.....
i want to read in one line at a time, is that possible without using excel???

[BrianS]

Turn on MultiLine for your text box and use this:

Line Input #1, line

instead of

Input #1, line

[paulhenderson]

thanks i will give it a go

[paulhenderson]

sorry mate it didnt work, still gives the smae result, appreciate the help

so can anyone else help me or am i doomed forever, and who is this famous Canadian with the same name as me, must be a good lookin guy!!!!!

[BrianS]

Sure it does, use Debug and Step Into the code and read your Line string on each pass.

[paulhenderson]

yeah, but what do u do when u compile the programme and havent got the option to debug and step???

[BrianS]

Not sure what you mean.. the code pulls in 1 line at a time just like you asked. You need to decide what to do with each line as it comes in.

Why not explain what your goal is?

[paulhenderson]

i have tried what you suggested but it simply pulls in the entire text of the file when i click on my import button, i cant get it to jsut simply read in one line at a time

i.e if the text files looks like this:

245
547
874
854
...etc etc....
when i click on import i want my text box to look like:

245

then when i cick the import button again i want the text box to look like:

245
547

and so on untill all lines have been read in, is this possible?

[ahara]

I played around with a test project - it is attached...hope it helps (it does import one line at a time)....Paul Henderson scored the winning goal in the first series between Canada and Russia in 1972....as for his or your looks, I honestly cannot say

[paulhenderson]

cheers mate thats great, just one question, i know i sound thick right now but how do i make it so that the programme can choose which text file it imports??? i have included what i have done so far, this one lets u choose while text file but how do i merge ur code and my code together!!!!

[BrianS]

I didnt look at the other code posted, but this is what I did real fast just to give you an idea

Option Explicit
 
Dim line As String
Dim filename As String
Dim myarray() As String
Dim strTemp As String
Dim x As Integer
 
 
Private Sub Command1_Click()
If x = UBound(myarray) + 1 Then
    MsgBox "Last Record was read"
Else
    Text1.Text = Text1.Text & vbCrLf & myarray(x)
    x = x + 1
End If
End Sub
 
Private Sub Form_Load()
 
x = 1
filename = "C:\test.txt"
 
Open filename For Input As #1
Do While Not EOF(1)
    Input #1, line
    strTemp = strTemp & "," & line
    DoEvents
Loop
Close #1
 
myarray = Split(strTemp, ",")
 
End Sub

[junno]

I read this post and find it is useful. However, I experienced that if the text file contains commas, it will be omitted while displaying in the textbox. Any comments and idea? Thanks

[BrianS]

If the comma is part of the string it will be displayed. If you use it as a delimiter as I did in my example and split the string into an array, then it will be stripped.

[paulhenderson]

cheers mate i will give it a go, is there any way it can be simply modified to allow you to choose which text fileu want to use, ie a file open button?

[BrianS]

Sure can, you can use a Text box on your form for them to enter a path/filename or use the CommonDialog component to grab the filename.

[ahara]

I'll be honest - I have not used the input statement since school....my work rarely involves the use of flat files...just did a quick check and yeah the delimiter for the input statement is a comma by default. I suppose you could read the file in and use replace function to clean it up if worst came to worst, but the advantage is it allows you to read in fields using multiple variables:

Input #iFileNum, strField1, strField2, strField3

If the file above had three fields separated by commas, you could read each line into its respective variable. But since henderson's need is only one column, it should still work out for him.

[paulhenderson]

cheers you guys have been great, ill give u a bit of backround as to why in need this and also why i am so confused. I hav e been given this assignment from a lecturer at uni, he wants us to read in a .wav file in text format, i used to think i knew a fair bit about computers music mp3's wav files and all that stuff, obviously not, i didnt know u could read in a .wav file as text, then he wants teh values in the text file, each line to be multiplied by 256 and add on the next line... still following, im not.... then these answers are displayed in another label or text box, presumably to give a list of values to form a spectrum analyser..... do any of you infinetley beings have a clue what im talking about????


Sincerely mad and dillusional

Paul Henderson