How to find the number of words in a string?

Question

1.00/5 (1 vote)

See more:

VB.NET

Public Sub word()
            Dim l, i, number As Integer
            no = 0
            Console.WriteLine("Type the text")
            s = Console.ReadLine()
            l = Len(s)
            Do While (i < l)
                If s(i) = "" Then
                    no = no + 1

                End If
                i = i + 1
                number = no
            Loop

            Console.WriteLine("The no of words is {0}", number)
        End Sub
    End Class

What I have tried:

i have tried a lot of times .it says the no of words is 0.

Posted 7-Sep-16 4:00am

Member 12725211

Updated 7-Sep-16 9:36am

Add a Solution

Comments

[no name] 7-Sep-16 10:03am

Maybe it's time you learned how to use the debugger instead of expecting us to teach you programming.

Member 12725211 7-Sep-16 10:05am

I like your honesty ..ok will try but a few suggestion doesn't hurt

Maciej Los 7-Sep-16 13:33pm

Define, what you mean by saying: "word". Does the word is punctuation sign like: {",", ";", "."} or {"Ms.", "Mr."}, etc.?

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Mehdi Gholam · Answer 1 · 2016-09-07T04:04:00

Solution 1

Use Split() : http://www.dotnetperls.com/split-vbnet[^]

Posted 7-Sep-16 4:04am

Mehdi Gholam

Patrice T · Answer 2 · 2016-09-07T05:00:00

Solution 2

You should try:

VB

If s(i) = " " Then

a space was added between quotes

Otherwise, you can simplify your code:

VB

    Public Sub word()
        Dim l, i , number As Integer
        no = 0
        Console.WriteLine("Type the text")
        s = Console.ReadLine()
        l = Len(s)
        Do While (i < l)
            If s(i) = " " Then
                no = no + 1

            End If
            i = i + 1
            number = no
        Loop

        Console.WriteLine("The no of words is {0}", number no)
    End Sub
End Class

Posted 7-Sep-16 5:00am

Patrice T

Updated 7-Sep-16 9:13am

v3

Comments

Richard MacCutchan 7-Sep-16 11:37am

Can you be sure that i is zero at the beginning of the loop? (I am not a VB expert, as you may have guessed).

Patrice T 7-Sep-16 11:41am

Unfortunately, VB gives default values to variables and fo not enforce manual initialization.

Richard MacCutchan 7-Sep-16 13:12pm

:thumbsup:

Maciej Los 7-Sep-16 13:46pm

This is partially true. It depends on few factors. For further details, please see: Dim Statement (Visual Basic) (Default Data Types and Values - section)

Maciej Los · Answer 3 · 2016-09-07T09:36:00

Solution 3

Please, read my comment to the question first. As i mentioned there, it depends on what you define as a word.

There's a lot of similar questions[^] on this forum. For example:
How to split string in words[^]

Posted 7-Sep-16 9:36am

Maciej Los