[sdv79]

Есть список вида
(setq removing_list (list "П2" "П22" "П12" "П2" "П1" "Т1"))
Необходимо отсортировать по возрастанию и убрать дублирующие наполнение списка может быть разное на пример “ШР1” (“ЩАО2” “ЩО6” "ЩАО2-1" "ЩР 2.1" …)
Итого ("П1" "П2" "П12" "П22" "Т1"))

Мой вариант, работает не корректно

Код:

[Выделить все]

(defun c:vl_sort_text
       (
    removing_list    
    /
    ;text_unique
       )
 (setq removing_list    (vl-sort removing_list '> ) )
 (while (/= nil removing_list)
  (setq    text_unique_cons(cons(car removing_list)text_unique_cons)
      removing_list    (vl-remove(car removing_list)removing_list)
  ) ;/ setq
 ) ; / while
 (setq text_unique    text_unique_cons
       text_unique_cons nil)
 text_unique
); /defun (c:vl_sort_text removing_list)


пример запуска
(c:vl_sort_text (list "П2" "П22" "П12" "П2" "П1" "Т1"))

[Frigate]

ты меня неверно понял )))

пробуй со своим списком )))

короче, см. мое последнее сообщение на 1 странице )))