Here's my version:
put "dog" & cr & "cat" & cr & "dinosaur" into tWords
get aMatch(tWords,tText)
function aMatch pWords,tText
sort lines of pWords
repeat for each word W in tText
put empty into newWord
repeat for each char C in W
if charToNum(C) >= 65 then put C after newWord -- to get
rid of punctuation - maybe not ideal!
end repeat
if newWord is among the lines of pWords then put 0 into
foundWordArray[newWord]
end repeat
put the keys of foundWordArray into foundWords
sort lines of foundWords
return foundWords is pWords
end aMatch
Best,
Mark
On 29 Nov 2006, at 23:07, J. Landman Gay wrote:
Basically I need the fastest possible way to scan a large number of
text blocks for an indefinite number of words which occur in any
portion of the text.
I'll try Ken's thing too -- thanks Ken.
(I'll send this once and cross my fingers.)
--
Jacqueline Landman Gay | [EMAIL PROTECTED]
HyperActive Software | http://www.hyperactivesw.com
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your
subscription preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
