Does anyone have a function that can pull a word out of a sentene. For exmaple:

a$ = word$("I love you", 2)
Print a$

This peice of code would return "love".

I know I could right it myself but I'm sure there already is one and i'm feeling lazy...

: Does anyone have a function that can pull a word out of a sentene. For exmaple:
:
: a$ = word$("I love you", 2)
: Print a$
:
: This peice of code would return "love".
:
: I know I could right it myself but I'm sure there already is one and i'm feeling lazy...
:

I've written a function for parsing COMMAND$. I'll have to post it later. It'll do exactly what you asked, but it's simple code. You could write one yourself.

: : Does anyone have a function that can pull a word out of a sentene. For exmaple:
: :
: : a$ = word$("I love you", 2)
: : Print a$
: :
: : This peice of code would return "love".
: :
: : I know I could right it myself but I'm sure there already is one and i'm feeling lazy...
: :
:
: I've written a function for parsing COMMAND$. I'll have to post it later. It'll do exactly what you asked, but it's simple code. You could write one yourself.
:
:
:

Finally! I was having problems with my connection. Here it is:
[\red]

FUNCTION CMDLINE$ (x%)
    a$ = COMMAND$
    temp$ = ""
    count% = 1
    alen% = LEN(a$)
    FOR i% = 1 TO alen%
        m$ = MID$(a$, i%, 1)
        IF m$ = " " THEN count% = count% + 1
        IF m$ <> " " THEN
            IF x% = count% THEN temp$ = temp$ + m$
            END IF
    NEXT i%
    CMDLINE$ = UCASE$(temp$)
END FUNCTION

you'll need to modify it so that it takes a$ as an argument, and comment out the a$=COMMAND$.

I'll leave the rest to you.

This sub should do it. You'll have to make it into a function if you want it to be. Just have the function return words(x), where x is the number of the word in the sentence you want to pull out.

DIM words(100) AS STRING
text$ = "I like chicken i like liver meow mix meow mix please deliver"
lastword = 1

FOR a = 1 TO 50
IF INSTR(lastword, text$, CHR$(32)) = 0 THEN
words(a) = MID$(text$, lastword, LEN(text$) - lastword + 1)
EXIT FOR
END IF
words(a) = MID$(text$, lastword, INSTR(lastword, text$, CHR$(32)) - lastword)
lastword = lastword + LEN(words(a)) + 1
NEXT a





: Does anyone have a function that can pull a word out of a sentene. For exmaple:
:
: a$ = word$("I love you", 2)
: Print a$
:
: This peice of code would return "love".
:
: I know I could right it myself but I'm sure there already is one and i'm feeling lazy...
: