依条件取得字符串问题

尘缘一生

有如下格式字符串

"C:\\Program Files\\Autodesk\\AutoCAD 2020\\support;C:\\Program Files\\Autodesk\\AutoCAD 2020\\support\\zh-CN;C:\\Program Files\\Autodesk\\AutoCAD 2020\\Express;C:\\Program Files\\Autodesk\\AutoCAD 2020\\support\\color;D:\\LX\\三领外挂;"


  如何编写个LISP，判断里面有“三领外挂”4个字的话，就取得：它所在部分的字符（蓝色部分，前后两分号之间）？


    实质就是：有了搜索路径了，如何依据条件，提取这一个特定路径出来。

highflybird

highflybird 发表于 2019-6-29 14:28
用这个获取到支持路径到列表，然后就好办了，用wcmatch 就可以得到你想要的。

1. (defun c:test (/ str lst)  (setq str (getvar "ACADPREFIX")) ;TRUSTEDPATHS ¶
   
2.   (setq lst (GetSupportPath str))
   
3.   (foreach n lst
   
4.     (if (wcmatch n "*三领外挂*")
   
5.       (princ (strcat "\n" n))
   
6.     )
   
7.   )
   
8.   (princ)
   
9. )
   

(defun c:test (/ str lst)  (setq str (getvar "ACADPREFIX")) ;TRUSTEDPATHS &#182;<br />   (setq lst (GetSupportPath str))<br />   (foreach n lst<br />     (if (wcmatch n "*三领外挂*")<br />       (princ (strcat "\n" n))<br />     )<br />   )<br />   (princ)<br /> )<br />

highflybird

1. (defun GetSupportPath (str / i j lst)
   
2.   (setq i 0)
   
3.   (while (setq i (vl-string-position 58 str i))
   
4.     (setq j (vl-string-position 58 str (1+ i)))
   
5.     (if j
   
6.       (setq lst (cons (substr str i (- j i)) lst))
   
7.       (setq lst (cons (substr str i) lst))
   
8.     )
   
9.     (setq i (1+ i))
   
10.   )
    
11.   (reverse lst)
    
12. )

(defun GetSupportPath (str / i j lst)<br />   (setq i 0)<br />   (while (setq i (vl-string-position 58 str i))<br />     (setq j (vl-string-position 58 str (1+ i)))<br />     (if j<br />       (setq lst (cons (substr str i (- j i)) lst))<br />       (setq lst (cons (substr str i) lst))<br />     )<br />     (setq i (1+ i))<br />   )<br />   (reverse lst)<br /> )

用这个获取到支持路径到列表，然后就好办了，用wcmatch 就可以得到你想要的。

被承包的东子

就是想要这个功能，厉害厉害，好好研究下

被承包的东子

highflybird 发表于 2019-6-29 14:28
用这个获取到支持路径到列表，然后就好办了，用wcmatch 就可以得到你想要的。

是我想错了 不好意思