ShinobiSoft Professional Member


Joined: 06 Nov 2002 Posts: 790 Location: Knoxville, Tn
|
Posted: Thu Oct 21, 2004 5:11 am Post subject: |
|
|
| Code: |
rem A couple of lists
list create,1
list loadtext,1
"Item 1
"Item 2
"Item A
"Item B
"Item 3
"Item 4
list create,2
list loadtext,2
"Item A
"Item B
"Item C
"Item D
rem A loop to compare list items
%x = @count(1)
%c = 0
repeat
list seek,2,0
%M = @match(2, @item(1,%c))
if %M
rem If we have a match in list 2 from list 1, delete the item in list 2
list seek,2,@index(2)
list delete,2
end
%c = @succ(%c)
until @equal(%c,%x)
rem Clean up
list clear,2
list clear,1
list close,2
list close,1
|
This might help. It's a very simple demo, so if you get more advanced
with this than it is, you need to add more error handling.
Happy coding...  _________________ Bill Weckel
ShinobiSoft Software
"The way is known to all, but not all know it." |
|