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/    [EMAIL PROTECTED]/


_______________________________________________
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

Reply via email to