On 27 Mar 2004, at 14:26, [EMAIL PROTECTED] wrote:
snip
go invisible to card startingCard of stack "My Database.sdb" repeat if searchKeys then find targetText in field "Record Key" else find targetText in field "Record" if the result is "Not Found" then exit repeat get the number of this card if it < startingCard or it > endingCard then exit repeat [processing logic] go next end repeat
Can I use defaultStack to accomplish this remotely -- multiple searches beginning at a specific starting card and repeating until find goes past a specific ending card? If so; can you flesh out the example a little to demonstrate, please? --
Rob Cozens CCW, Serendipity Software Company http://www.oenolog.net/who.htm
Hi Rob,
If your database is a pile of cards then marking the cards is faster than finding.
According to your example you will have to call the following function twice.
(but this should be no problem as it is pretty fast, no need to go invisible, no need to lock anything.)
-- put findTheDamnThing( "My Database.sdb","Chateau Chasse Spleen","Record Key") into tFirstResult
-- put findTheDamnThing( "My Database.sdb","Chateau Chasse Spleen","Record") into tSecondResult
function findTheDamnThing stack2Search, targetText, fldName
put the defaultstack into tOldDefault
set the defaultstack to stack2Search
mark cards where fld fldName contains targetText
### mark cards by finding targetText [in fld fldname] ### mucho slower
if the number of marked cards = 0 then put "not found" into tCollector
else
repeat with i = 1 to the number of marked cards
put the long id of marked cd i & cr after tCollector
### put the id of marked cd i & cr after tCollector
end repeat
end if
unmark all cards
set the defaultstack to tOldDefault
return tCollector
end findTheDamnThing
Once you have the list of cards then you apply the processing logic. Or you can adapt the function to do it all in 1 pass.
HTH, Greetings, WA
_______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution
