$INCLUDE "convertkeywords.inc" string SomeWords = "" SomeWords = "These are some words" 'SomeWords = "STRING ShowToolCloseBox,ShowOutputProg,ShowFontSize,ShowFontName,ShowTextForeGround,ShowTextBackGround" openconsole print print int abc int NumberOfWords = GetWords(SomeWords) print " The string 'SomeWords' has ",NumberOfWords,"words" print for abc = 1 to NumberOfWords print " Word ",abc," is --> ",GetWordX(abc) next abc ClearWords() print print " Press any key to exit..." print do:until inkey$ <> "" closeconsole end SUB GetWords(STRING BlockIn),int string StoreSubName = "" BlockSearch = "" FOR a = 1 TO LEN(BlockIn) STRING bs = MID$(BlockIn,a,1) BlockSearch = BlockSearch + bs NEXT a WordIn = "" WordCount = 0 FindWords = 0 FindDels = 0 FoundWords = 0 FoundDels = 0 WordCount = 0 y = 0 DO INT amatch = 0 INT smatch = 0 y ++ Letter = MID$(BlockSearch,y,1) IF LEN(BlockSearch) = 0 BREAK ENDIF IF INSTR(CheckLetter,Letter) > 0 amatch = 1 ENDIF 'No delimiter found, so add to the word. IF amatch = 0 WordIn = WordIn + MID$(BlockSearch,y,1) ELSE 'End of word. IF WordIn <> "" AND WordIn <> " " FindWords ++ FindWord[FindWords] = WordIn WordCount ++ WordIn = "" ENDIF IF MID$(BlockSearch,y,1) <> "" AND MID$(BlockSearch,y,1) <> " " FindDels ++ FindDel[FindDels] = MID$(BlockSearch,y,1) ENDIF ENDIF UNTIL y = LEN(BlockSearch) y = 0 'After the end of each line, add the final word. WordCount ++ IF WordIn <> "" 'AND WordIn <> "" FindWords ++ FindWord[FindWords] = WordIn ENDIF RETURN WordCount ENDSUB sub GetWordX(int WordNo),string return FindWord[WordNo] return "" endsub sub ClearWords() FOR a = 1 TO FindWords FindWord[a] = "" NEXT a FOR a = 1 TO FindDels FindDel[a] = "" NEXT a return endsub