Array Question

[Eric Chatonet]

Hi John,

These two functions might get you started.
They return common or uncommon LINES in two lists: you will adapt  
them ;-)

function CommonList plist1,plist2
   local tArray1,tArray2,tCommonList
   ------
   put empty into tArray1
   put empty into tArray2
   -----
   repeat for each line tLine in plist1
     put 1 into tArray1[tLine]
   end repeat
   repeat for each line tLine in plist2
     put 1 into tArray2[tLine]
   end repeat
   -----
   get the keys of tArray1
   repeat for each line tLine in it
     if tArray2[tLine] = 1 then
       put tLine & cr after tCommonList
     end if
   end repeat
   -----
   delete char -1 of tCommonList
   return tCommonList
end CommonList
-----------------------------------
function UnCommonList plist1,plist2
   local tArray1,tArray2,tUncommonList
   ------
   put empty into tArray1
   put empty into tArray2
   -----
   repeat for each line tLine in plist1
     put 1 into tArray1[tLine]
   end repeat
   repeat for each line tLine in plist2
     put 1 into tArray2[tLine]
   end repeat
   -----
   get the keys of tArray1
   repeat for each line tLine in it
     if tArray2[tLine] = 0 then
       put tLine & cr after tUncommonList
     end if
   end repeat
   -----
   get the keys of tArray2
   repeat for each line tLine in it
     if tArray1[tLine] = 0 then
       put tLine & cr after tUncommonList
     end if
   end repeat
   -----
   delete char -1 of tUncommonList
   return tUncommonList
end UnCommonList

Le 2 oct. 06 à 11:30, John Miller a écrit :

> Good Morning All,
>
> I am feeling rather dense this today.  I have never worked with  
> arrays, and I don't seem to be able to understand how to set them up.
>
> I have two card fields with many lines and multiple items.  I want  
> to use the intersect command to find which lines have a particular  
> item in common, but I can't figure out how to put each field into  
> an array.
>
> Can anyone offer me some guidance?
>
> Thanks,
> John Miller


Best Regards from Paris,
Eric Chatonet
------------------------------------------------------------------------ 
----------------------
http://www.sosmartsoftware.com/    eric.chatonet at sosmartsoftware.com/