Списки: Add_To_List()

Добавление элемента в текстовый список, если его в нем еще нет. Использует функцию Find_In_List()

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Добавление значения STRING в список LIST (разделитель - запятые), если там его еще нет.
' Возвращает обновлённый список.
FUNC Add_To_List(atl_list,atl_string)

if atl_list == ""
           result = atl_string
           return
end if

if Find_In_List(atl_list,atl_string) > -1
           result = atl_list
else
           result = atl_list & "," & atl_string
end if

END FUNC

См. также Пропущенные значения в списках