home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
dirs
/
'liner_451.lzh
/
'Liner
/
rexx
/
CountWord.rx
< prev
Wrap
Text File
|
1991-02-06
|
524b
|
23 lines
/*Finds out how many times a word appears in the current outline*/
address 'liner'
say "Please type in the word you want to search for."
parse pull SearchString
say "The word is " || SearchString
options results
Counter = 0
'totop' /*Go to the top of the outline*/
do until result = 'false' /*Loop until the word isn't found*/
'search ftf ' || SearchString /*Do the search*/
Counter=Counter+1 /*Increment the counter*/
end
/*Print the results*/
echo "The word was found " || Counter-1 || " times."