CREATE CURSOR mylist (text M) INSERT INTO mylist VALUES ("This are red pencils") INSERT INTO mylist VALUES ("Somes pencils are red") INSERT INTO mylist VALUES ("I need a pencil red for you") filterWords("text","red pencils") BROWSE filterWords("text","red pencils are") BROWSE filterWords("text","red pencils are This") BROWSE PROCEDURE filterWords(eText,cWords) PRIVATE aWords,cFilter IF BETWEEN(ALINES(aWords,m.cWords," "),1,23) cFilter=[ALINES(adummy,]+m.eText+[,2,"]+aWords[1]+["] FOR w=2 TO ALEN(aWords) cFilter=m.cFilter+[,"]+aWords[m.w]+["] NEXT cFilter=m.cFilter+[)>]+LTRIM(STR(ALEN(aWords))) SET FILTER TO &cFilter ELSE SET FILTER TO ENDIF