[RESOLVED] Text File Problem

[guy_toforget]

I have text file content like this:

have
a
dream
A
dream
of
reality
and
fantasy

How to convert each word into array of strings?

My code look like this but doesnt work

Dim myarray() as String
Dim strWord as String
Dim i,x,k, Upper,Lower as Integer
i = LOF(1)
x=0
while not EOF(1)
input #1, strWord
myarray(x) = strWord
x=x+1
wend
Lower=LBound(myarray)
Upper=UBound(myarray)

For k=LBound(myarray()) to UBound(myarray())
Print myarray(k)

Why it doesnt convert each word as array of string?
How to use UBound(myarray) to print all strings?

[jmcilhinney]

First off, forget your wicked VB6 ways and read up on the StreamReader class. If you have a single word on each line then the thing to do is open a StreamReader and call ReadToEnd, which gets the whole file as a single string. You can then split that string on the line breaks using System.Text.RegularExpressions.Regex.Split.

[guy_toforget]

well, if each line has few strings, how to make them then? Such as

Hello please help this kids
He need you so much
Hello 49 89 66
Can or not

Please help as I am really a newbie to this VB

[jmcilhinney]

If that's the case then you can split each line on the space character. My advice would be to use a StreamReader still but call ReadLine to get one line at a time. You can call String.Split on that line to get an String array containing the individual words. You can add this array to a Specialized.StringCollection using AddRange. Once you've read every line you can call CopyTo on the StringCollection to copy all the strings to an array if required.

[guy_toforget]

Can show sample code to do such? Your way is seem complicated

[jmcilhinney]

It's not complicated but it's a good idea to do it one step at a time. Can you open the StreamReader and read each line?

[guy_toforget]

I cant do that, I dont understand

[jmcilhinney]

And have you looked up the StreamReader class in the help/MSDN and read about it to see how it gets used? I tried to give you a push but it appears that you just want it done for you:

        Dim sr As New IO.StreamReader("file path here")
        Dim sc As New Specialized.StringCollection

        Do Until sr.Peek() = -1
            'Read the line, split it at all spaces and add the individual words to the collection
            sc.AddRange(sr.ReadLine().Split(" "c))
        Loop

        sr.Close()

        'Loop through the collection and display each one individually.
        For Each word As String In sc
            MessageBox.Show(word)
        Next word

        'Create an array to store the words.
        Dim words(sc.Count - 1) As String

        'Copy the words from the collection to an array if required.
        sc.CopyTo(words, 0)

        'Loop through the array and display each one individually.
        For Each word As String In words
            MessageBox.Show(word)
        Next word

[gigemboy]

There are also ample examples in this forum if you just search for "split text" or "read text", or something to that matter...

[Kasracer]

And have you looked up the StreamReader class in the help/MSDN and read about it to see how it gets used? I tried to give you a push but it appears that you just want it done for you:

...Insert Code Here...

I think you may have done his homework for him. heh

[jmcilhinney]

I think you may have done his homework for him. heh

I know. That's the main reason I was being cagey to begin with, but some people just won't break a sweat themselves. I should have just walked away but a few expletives and some quick typing later... you've seen the result. Should take my own advice occasionally shouldn't I?

[conipto]

I know. That's the main reason I was being cagey to begin with, but some people just won't break a sweat themselves. I should have just walked away but a few expletives and some quick typing later... you've seen the result. Should take my own advice occasionally shouldn't I?

That's why you only have 400+ reps instead of 500+

Bill

[guy_toforget]

Thank you. I will give your code a try.

[jmcilhinney]

That's why you only have 400+ reps instead of 500+

Bill

That's just cruel. Did it ever occur to you that I may be sensitive and my confidence easily shaken?

[guy_toforget]

Thanks for your code. Though it doesn't work in my project, you are very professional and good tutor. I dont know which components of Vb should I add to make it work.

[gigemboy]

You may just be missing some imports statements or something... are you getting blue squigglies? What is the problem?

[guy_toforget]

Perhaps you are having that sympthon. I am only asking how to count the occurances of every strings in a text file. Could you help?

[gigemboy]

No, in your first post, you were simply wanting to convert the file to an array of strings, which the code already given to you does.

[guy_toforget]

MY file problem is solved. Thanks guys