*** Search UPPER("mark") CREATE CURSOR crsTestWithMemo (myMemo M) TEXT TO lcstring NOSHOW John Mark George Berbatov John George berbatov John MaRk ENDTEXT INSERT INTO crsTestWithMemo VALUES(m.lcString) m.lcSearched = "mark" DECLARE myArr[1] LineForString(crsTestWithMemo.myMemo, m.lcSearched ) CLEAR LIST MEMORY LIKE myArr RETURN FUNCTION LineForString (lcTest, lcSearched) lcTest = ALLTRIM(UPPER(m.lcTest)) lcSearched = UPPER(m.lcSearched) lnLines = ALINES(ArrayName, m.lcTest) DECLARE myArr[m.lnLines] FOR lnLoop = 1 TO lnLines IF AT(m.lcSearched, ArrayName[m.lnLoop]) # 0 myArr[m.lnLoop] = 1 ELSE myArr[m.lnLoop] = 0 ENDIF NEXT RETURN ""