// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
// ! This script is provided "as is" by Applied Maths.              !
// ! You are free to use and modify this script for your own needs. !
// ! Redistribution or reproduction of the script is prohibited.    !
// ! DISCLAIMER:                                                    !
// ! Improper use of scripts may corrupt your database.             !
// ! Running this script is entirely at your own responsibility.    !
// ! Applied Maths accepts no lialibility for any consequences      !
// ! resulting from its use.                                        !
// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

DIALOG dlg;
string st,method,key;
integer i,j,ok;

st="";
DlgAddEdit(dlg,st,20,40,210,20);

method="Add to list";
DlgAddList(dlg,"Add to list	Replace list	Search in list",method,20,95,100,120,"DROP");

if not(DlgShow(dlg,"Find string in any field",250,200)) then stop;

for i=1 to DbGetEntryCount do {
   key=DbGetEntryKey(i);
   ok=0;
   for j=1 to DbGetFieldCount do
      if find(DbGetField(key,DbGetFieldName(j)),st,1)>0 then ok=1;
   if (method="Add to list") and DbGetSel(key) then ok=1;
   if (method="Search in list") and not(DbGetSel(key)) then ok=0;
   DbSetSel(key,ok);
}