#include vhLib.Macro
 
 
 #define InList(%lb,%li)	($listfind(%lb,%li)>0)
 
 
RemoveValue(Listbuild, Value)
	new Pos 
	set Pos = $listfind(Listbuild,Value)
	if Pos > 0 set $List(Listbuild,Pos,Pos)=""
	quit Listbuild
	
 
RemoveDoubles(Listbuild)
	new ctrList
	new Result set Result = ""
	For ctrList = 1 : 1 : $listlength(Listbuild) Do
	. if $$$Not($listfind(Result,$list(Listbuild,ctrList)))  set Result = Result _ $listbuild($list(Listbuild,ctrList))
	Quit Result
	
 
CommonItems(Listbuild1,Listbuild2)
	set resListbuild = ""
	for ctrListbuild = 1 : 1 : $listlength(Listbuild1)
		{	set ListItem = $listget(Listbuild1,ctrListbuild)
			if $$$InList(Listbuild2,ListItem) set resListbuild = resListbuild _ $listbuild(ListItem)
	}
	quit resListbuild