[Supermax]

Код:

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

;;; ************************************************************************
;;; * Библиотека DWGruLispLib Copyright ©2007  DWGru Programmers Group
;;; *
;;; * DwgRu-List-String-Search
;;; *
;;; * 14/01/2008 Версия 0001.    Андрей Лазебный (Supermax)
;;; ************************************************************************
;;;
 ;;; Описание:
  ;;; В списке состоящем из строк, находит строку по маске 
 ;;; Синтаксис: 
  ;;; (dwgru-list-string-search string standard)
 ;;; Аргументы:
  ;;; string - список состоящий из строк
  ;;; standard - маска (строка) 
   ;;; 
   ;;; маска может содержать все спецсимволы типа *, #, и прочие, перечисленные в описании функции wcmatch
   ;;; 
  ;;; Возврат: 
   ;;; Первая найденная строка удовлетворяющая маске
 
(defun dwgru-list-string-search (string standard / )
(car (vl-member-if (function (lambda (x) (wcmatch x standard))) string))
)

[Кулик Алексей aka kpblc]

А почему бы не использовать нечто вида:

Код:

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

(defun dwgru-list-string-search (lst-string mask case / loc_lst loc_mask)
                                ;|
*    Находит строки в списке по маске
*    Параметры вызова:
	lst-string	список строк.
	mask		маска поиска. Допускается использованием символов по
			аналогии с wcmatch. Добавления символов не производится
	case		учитывать регистр (t) или нет (nil)
*    Примеры вызова:
(dwgru-list-string-search '("Autodesk" "autocad") "auto*" nil)	; '("Autodesk" "autocad")
(dwgru-list-string-search '("Autodesk" "autocad") "auto*" t)	; '("autocad")
(dwgru-list-string-search '("Autodesk" "autocad") "*caD" nil)	; '("autocad")
(dwgru-list-string-search '("Autodesk" "autocad") "cAd*" t)	; nil
|;
  (setq loc_mask (if case
                   mask
                   (strcase mask)
                   ) ;_ end of if
        loc_lst  (vl-remove-if
                   '(lambda (x) (wcmatch loc_mask x))
                   (if case
                     lst-string
                     (mapcar 'strcase lst-string)
                     ) ;_ end of if
                   ) ;_ end of vl-remove-if
        ) ;_ end of setq
  (vl-remove-if-not
    (function
      (lambda (x)
        (and (member (setq x (if case
                               x
                               (strcase x)
                               ) ;_ end of if
                           ) ;_ end of setq
                     loc_lst
                     ) ;_ end of member
             (wcmatch x loc_mask)
             ) ;_ end of and
        ) ;_ end of lambda
      ) ;_ end of function
    lst-string
    ) ;_ end of vl-remove-if
  ) ;_ end of defun

ИМХО такое решение более универсально. А вычленить первое никогда не поздно