使用wildc删除列表项

paulo · 发表于 2022-7-5 13:17:56

如何使用通配符查询从列表中删除项目：

（“big23”“large25”“superlarge26”“superlarge-27”“superlarge_28”等）
到
（“big23”“large25”等等），只需删除“超大…”零件）

伙计们，先谢谢你们。

Tharwat · 发表于 2022-7-5 13:40:00

你好
带有mapcar和lambda函数的单向。

copy


(mapcar '(lambda (x)
           (if (wcmatch x "superlarge*")
             (substr x 12)
             x
           )
         )
        '("big23" "large25" "superlarge26" "superlarge-27" "superlarge_28")
)

ziele_o2k · 发表于 2022-7-5 14:00:21

@Tharwat我认为@paulo whant删除项目，而不是字符串的一部分：
以下是我的解决方案：
[列表=1]

使用本文中的parse list函数
使用示例：

copy


(pz:LST_Parse
    '("big23" "large25" "superlarge26" "superlarge-27" "superlarge_28")
    '(lambda (%) (wcmatch % "superla*"))
    t
)

或在函数

copy


(vl-remove-if 
    '(lambda (%) (wcmatch % "superla*")) 
    '("big23" "large25" "superlarge26" "superlarge-27" "superlarge_28")
)

编辑：
今天我注意到我的论坛排名：新星-我爱它

登录/注册后可看大图

Grrr · 发表于 2022-7-5 14:11:15

vl remove if行为的另一个变体：

copy


(apply 'append
  (mapcar 
    '(lambda (x)
      (if (wcmatch x "superla*") (list x))
    )
    '("big23" "large25" "superlarge26" "superlarge-27" "superlarge_28")
  )
)

paulo · 发表于 2022-7-5 14:19:37

和往常一样，这个论坛是像我这样的“学习者”的必经之路。还有什么要说的，这里又是一个快乐的露营者，非常感谢。直到下一次。。。

[编程交流] 使用wildc删除列表项

发表回复

精选推荐