a little help with "find" script

[Mark Wieder]

Mark-

(correcting the typo and...)

on findit pTextToFind
    local x, y
    local tText
    local tFoundList
    
    repeat for each line tCard in the cardnames of this stack
        repeat with y = 1 to number of fields of card tCard
            put field y of card tCard into tText
            if pTextToFind is in tText then
                put tCard,y & cr after tFoundList
            end if
        end repeat
    end repeat
    return tFoundList
end findit

-- 
-Mark Wieder
 mwieder at ahsoftware.net