I have an option that allows the user to save favorites to the registry. I also have the option for the user to delete items from the favorite list. My problem is that when the user selects to delete an item from the favorite list, it deletes all the items. There is probably an easier way to do this but here is my code.
Function DelFav(keyname as String)
Print"ITEM TO DELETE>>>>"keyname
rComma = CreateObject("roRegex", ",", "") ' split on comma
sec=CreateObject("roRegistrySection","favorite")
if sec.Exists("list")
listemp=rComma.Split(ReadFav()) 'READ FAVORITE LIST FROM REGISTRY
for each line in listemp 'SEARCH REGISTRY FOR CHANNEL TO REMOVE FROM FAVORITES[/font][/size]
if line=keyname
?"FOUND*******" 'IF FOUND SKIP
sec.Delete(keyname)
else
list.Push(line)
end for
writereg("favorite","list",arraytostring(list)) 'SAVE TO REGISTRY
End function
