434939575 发表于 2018-6-19 11:53:50

感谢分享，我也变人员收集了

sxwc 发表于 2018-8-14 16:03:39


真心看不懂，太复杂了

表骑马实开车 发表于 2022-5-11 17:55:55

黄老师的东西，都是精华

magicheno 发表于 2022-5-12 13:27:56

感谢大佬分享

菜卷鱼 发表于 2022-9-9 10:26:07

(defun split2 (str sp / str1)
(cond
    ((= str nil) nil)
    ((= sp nil) nil)
    ((= str "") "")
    ((= sp "") str)
    (t
   (setq str1 (strcat "((\"" str "\"))"))
   (while (vl-string-search sp str1)
       (setq str1 (vl-string-subst "\")(\"" sp str1))
   )
   (apply 'append (read str1))
    )
)
)

ziyouwzb 发表于 2023-10-22 19:38:13

感谢分享，收藏下来好好学习一下。
页: 11 12 13 14 15 16 17 18 19 20 [21]
查看完整版本: 字符串分割-----------集中营