New Text Challenge

[ChatKing]

Hi Friends
Can anybody write qbasic code for the following challenge.

A program where we enter a complete sentence and then program display each word singly on a separate lines.

Let me explain

Console ask for the a complete sentence, let suppose use input. We are humans
and the program display it like this
We
are
humans

I am waiting for the replies and your code. When I get your code, then I will share with you mine code.

Thanks

[GarrisonRicketson]

I had something like this, somewhere , Sorry to be slow on the reply. If I can remember, or find the code I had for this, I'll post it
from Garry

[SMcNeill]

An easy solution to this one:

Code:

DIM sentence AS STRING, word AS STRING
PRINT "Give me a sentence: ";
INPUT sentence
sentence = sentence + " "
DO
    wordpos = INSTR(sentence, " ")
    word = LEFT$(sentence, wordpos - 1)
    sentence = RIGHT$(sentence, LEN(sentence) - wordpos)
    PRINT word
LOOP UNTIL wordpos = 0

[GarrisonRicketson]

Thanks SMcNeill
 I tried it and it works good. Thanks for stopping by and posting this.
from Garry