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