by En Fuego por Christo (3 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 26th July 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Separates any given string into words, then stores each one in an array.
Dim i, a As Integer
For i = 0 To 10
Word(i) = ""
Next
a = a + 1
For i = 1 To Len(Phrase)
If Mid(Phrase, i, 1) <> " " Then
Word(a) = Word(a) & Mid(Phrase, i, 1)
Else
a = a + 1
End If
Next
End Sub
No comments have been posted about Separates any given string into words, then stores each one in an array.. Why not be the first to post a comment about Separates any given string into words, then stores each one in an array..