求助！各位大佬

kdc

biya

用一个字 符串斜杠分割成字符串表，然后分别提取生成到表就行了

biya

2. ;字符串以指定字符分隔成字符串表
   
3. ;(by-str-to-lst "Aa bb cc dd ee" " ")>>("Aa" "bb" "cc" "dd" "ee")
   
4. (defun by-str-to-lst(str zt / n nstr)
   
5.         (while (setq n (vl-string-search zt str))
   
6.                 (setq        nstr (cons (substr str 1 n) nstr)
   
7.                         str  (substr str (+ 1 (strlen zt) n))
   
8.                 )
   
9.         )
   
10.         (reverse (cons str nstr))
    
11. )

;字符串以指定字符分隔成字符串表<br /> ;(by-str-to-lst "Aa bb cc dd ee" " ")>>("Aa" "bb" "cc" "dd" "ee")<br /> (defun by-str-to-lst(str zt / n nstr)<br />         (while (setq n (vl-string-search zt str))<br />                 (setq        nstr (cons (substr str 1 n) nstr)<br />                         str  (substr str (+ 1 (strlen zt) n))<br />                 )<br />         )<br />         (reverse (cons str nstr))<br /> )

kdc

biya 发表于 2022-6-14 20:34

没有命令吗大佬

biya

kdc 发表于 2022-6-15 10:51
没有命令吗大佬

这是核心函数，需要自己开发主函数

kdc

biya 发表于 2022-6-15 12:03
这是核心函数，需要自己开发主函数

能否帮忙写一下大佬，我是正在学习的小白还不太懂