hi.. i would like to save every word in the sentence separating by space " "...
any idea on it??
thxx
jaasaria 0 Junior Poster
Teropod 0 Light Poster
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 -2 Light Poster
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
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.