>>>>>I suspect I have made a mistake and cannot see it. Can you?
>>>>>I am looking up a key word and seaching a string (lcTEXT) for that key word.
>>>>>If the keyword is found then 30 characters on either side of the found key word
>>>>>should be collected and stored in the results table.
>>>>>
>>>>>VFP Help is pasted below.
>>>>>
>>>>>

>>>>>***********************WORKING HERE*************************
>>>>>	IF LEN(ALLTRIM(lcTEXT)) > 3
>>>>>		SELECT KEYWORDS
>>>>>		SCAN
>>>>>		TempKey = KEYWORDS.keyword
>>>>>		TempKey = LOWER(TempKey)
>>>>>		TempCtrlWord = KEYWORDS.ctrlword
>>>>>		IF Tempkey $ lcTEXT
>>>>>				SELECT results  
>>>>>				APPEND BLANK
>>>>>				REPLACE results.WORD WITH TempKey
>>>>>				REPLACE results.ctrlword WITH TempCtrlWord
>>>>>				WordStart = AT(lcTEXT, TempKey,1)
>>>>>				PreWord = SUBSTR(lcTEXT,(WordStart-31),30)
>>>>>				REPLACE Results.pre WITH PreWord
>>>>>				WordEnd = RAT(TempKey,lcTEXT,1)
>>>>>				PostWord = SUBSTR(lcTEXT,(WordEnd+1),30)
>>>>>				REPLACE Results.Post WITH PostWord
>>>>>				SELECT KEYWORDS
>>>>>				Thisform.refresh &&& TEMP DEBUG
>>>>>			ENDIF			
>>>>>		ENDSCAN
>>>>>********************END WORKING HERE*************************
>>>>>
>>>>>

>>>>
>>>>Whether there are errors, then probably debug will show them. But I would say, there are many uncertaincies:
>>>>- why LEN(ALLTRIM(lcTEXT)) > 3; whether,it is good enough if you are looking for 30 characthers befor and 30 characters after the tempkey that also has a length?
>>>>- wheter lcText always in lower case?
>>>>- whether KEYWORDS.keyword does not cointain spaces at the right or left? Whether tempkey always has length of KEYWORDS.keyword ?
>>>>.......
>>>>
>>>>Good Luck
>>>> 3 = is checking to make sure lcTEXT is not ""
>>>lcTEXT is lowercase - I ised LOWER(lcTEXT) on it
>>>I will add alltrim() to the routine and repott back. - Thanks :-)
>>
>>
>>FIXED!! It was alltrim() - Thank you .
>
>
>I glad you fixed it. But I still doubt that the code is healthy (just because I do not know anything in paricular about lcTExt and
>KEYWORDS.keyword values):
>
>- what if there are several tempkeys in lctext? Then AT and RAT will give you different anbd not synchronized positions in lcText; (I'll use the 'occurance' option)
>- what if a particular tempkey is also a fragment of unrelated word in lcText -(Handled by adding a space on either end of the word. Eliminates junk from the headers)
>..... Thanks again

For me, this is a fun and recreational project. (Keeps my old brain thinking:-)