string manipulation

[jaasaria]

hi.. i would like to save every word in the sentence separating by space " "...

any idea on it??

thxx

[Teropod]

Get lenght of sentence by len(string), use for i = 1 to lenght of sentence with mid(sentence i 1) to get characters and combine words after characters isn't space or punctuation.

[Bob Jacobs]

hi.. i would like to save every word in the sentence separating by space " "...

any idea on it??

thxx

this is one way

'set up an array to contain the words
Dim words(1 To 100) As String

'get the length of the sentence
sentencelength = Len(sentence)

'set a counter for the number of words
flag = 1

'a do loop to find the words
Do Until sentencelength = 0
'find the first space in the sentence
firstspace = InStr(sentence, " ")
'record the first word
words(flag) = Left(sentence, firstspace - 1)
'increment the word counter
flag = flag + 1
' knock the first word (and space) off sentence
sentence = Mid(sentence, firstspace + 1)
'get the new sentence length
sentencelength = Len(sentence)
Loop