リストから文字列(またはその一部)の存在を確認する...

[x11start]

私は要素のリストを持っています:

(setq list '("light picket") "pilastro" "tegolo b12" "tegolo b14" "熱切断パネル" "標準パネル"))

文字列(またはその一部)の存在を確認するつもりです。なので、メンバーは使えませんが、"discuss" wcmatch もよいでしょう。

たとえば、上記リストで「*cut*」を検索すると、真に必要になります。

完全な文字列を "extract" することもできます。 "*cut*" を探し、"("熱カット料理")" を返し、"*tegolo*" を探し、リストを取得: "("tegolo b12" "tegolo b14") ・・・

お問い合わせ

 

[dieva]

とてもエレガントではありません。 . . .

(defun はそれを見つける (s l/out )
(foreach v l)
(if) (wcmatch v (strcat "*" s "*" ))
(setq out) (cons v out) (cons vout) (cons vout) (cons vout)) (cons vout) (cons vout) (cons vout) (cons vout)) (cons vout) (cons vout)) (cons vout) (cons vout) (cons vout)) (cons vout (cons vout)) (cons vout (cons vout) (cons vout (cons vout) (cons vout (cons vout)))
)
)
インフォメーション
)
;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
(setq list '("light picket") "pilastro" "tegolo b12" "tegolo b14" "熱切断パネル" "標準パネル"))
(「teg」一覧) --> "tegolo b14" "tegolo b12")

 

[x11start]

お問い合わせ 何もないけど「スリーキー」!
私はまた、foreachを使用してみました...しかし、成功せずに:私が考えた代替品は、しばらくしてサイクルを作り、一つずつ文字列をチェックしました。