home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
396.lha
/
'Liner_v2.0
/
rexx
/
CountWord.rx
< prev
Wrap
Text File
|
1990-07-03
|
534b
|
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 ftt ' || SearchString /*Do the search*/
Counter=Counter+1 /*Increment the counter*/
end
/*Print the results*/
echo "The word was found " || Counter-1 || " times."