有那种函数可以提取不等长字符串的指定字符？

h806600727

大佬们，有那种函数可以提取不等长字符串中的指定字符，比如："dhf的得[]分能8897力5零551零[]@K564DJFK5611DJ",提取"能"和"力"中间的8897，或者是"@"后面的字符串K564DJFK5611DJ 。"得"前面的字符串dhf的。只截取有用的部分！

自贡黄明儒

这个要了解“正则表达式”，你去搜一下，也比较复杂
不使用正则时，我写了一个“指定字母之后的数字”，如(parse10 "100D200 自贡105 自贡-1" "自贡")＝>105.0，你可以参考一下http://bbs.xdcad.net/thread-703849-1-1.html

tryhi

可惜lsp不支持正则的零宽断言，只能自己切割

1. ;;q;指定字符串前面的字符
   
2. ;;h;指定字符串后面的字符
   
3. ;;返回一个表(作者：tryhi)
   
4. (defun strfg (str q h / lenh lenq ret)
   
5.         (setq
   
6.                 lenq(strlen q)
   
7.                 lenh(strlen h)
   
8.         )
   
9.         (if (= q "")(setq q "^"))
   
10.         (if (= h "")(setq h "$"))
    
11.         (setq ret(try-StrRegExp str (strcat"("q").+?("h")")))
    
12.         (if ret(mapcar '(lambda(x)(substr x (1+ lenq) (-(strlen x)lenq lenh)))ret)ret)
    
13. )
    
14. (strfg "dhf的得[]分能8897力5零551零[]@K力564DJFK5分能88975零556力11DJ" "分能" "力")
    
15. ;;返回("8897" "88975零556")
    
16. 
    
17. (strfg "dhf的得[]分能8897力5零551零[]@K力564DJFK5分能88975零556力11DJ" "@" "")
    
18. ;;返回("K力564DJFK5分能88975零556力11DJ")
    
19. 
    
20. (strfg "dhf的得[]分能8897力5零551零[]@K力564DJFK5分能88975零556力11DJ" "" "得")
    
21. ;;返回("dhf的")

;;q;指定字符串前面的字符<br /> ;;h;指定字符串后面的字符<br /> ;;返回一个表(作者：tryhi)<br /> (defun strfg (str q h / lenh lenq ret)<br />         (setq<br />                 lenq(strlen q)<br />                 lenh(strlen h)<br />         )<br />         (if (= q "")(setq q "^"))<br />         (if (= h "")(setq h "$"))<br />         (setq ret(try-StrRegExp str (strcat"("q").+?("h")")))<br />         (if ret(mapcar '(lambda(x)(substr x (1+ lenq) (-(strlen x)lenq lenh)))ret)ret)<br /> )<br /> (strfg "dhf的得[]分能8897力5零551零[]@K力564DJFK5分能88975零556力11DJ" "分能" "力")<br /> ;;返回("8897" "88975零556")<br /> <br /> (strfg "dhf的得[]分能8897力5零551零[]@K力564DJFK5分能88975零556力11DJ" "@" "")<br /> ;;返回("K力564DJFK5分能88975零556力11DJ")<br /> <br /> (strfg "dhf的得[]分能8897力5零551零[]@K力564DJFK5分能88975零556力11DJ" "" "得")<br /> ;;返回("dhf的")

这个函数应该怎么命名比较好？


try-StrRegExp函数点击这里->正则表达式函数

h806600727

自贡黄明儒 发表于 2024-6-19 09:27
这个要了解“正则表达式”，你去搜一下，也比较复杂
不使用正则时，我写了一个“指定字母之后的数字”，如 ...

好的，我学习一下正则表达式。

fangmin723

正则表达式多香啊，可以去学学啊

vitalgg

1. ;;;; "dhf的得[]分能8897力5零551零[]@K564DJFK5611DJ",提取"能"和"力"中间的8897，或者是"@"后面的字符串K564DJFK5611DJ 。"得"前面的字符串dhf的。只截取有用的部分！
   
2. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
3. 
   
4. (setq str "dhf的得[]分能8897力5零551零[]@K564DJFK5611DJ@dhf的得[]分能8899力5零551零[]@K564DJFK5611DJ")
   
5. ;;; 两字之间,提取"能"和"力"中间的8897
   
6. ;; 先用前面的 “能”拆分，再用后面的“力”拆分,结果为列表。
   
7. (setq res (cdr (string:to-list str "能")))
   
8. (setq res1
   
9.       (vl-remove nil
   
10.                  (mapcar '(lambda(x / sub)
    
11.                            (setq sub (string:to-list x "力"))
    
12.                            (if (cdr sub)
    
13.                                (car sub)))
    
14.                          res)))
    
15. (princ res1)
    
16. ;;; "得"前面的字符串,结果为第一个得前面
    
17. (setq res (string:to-list str "得"))
    
18. (setq res2(if (cdr res)(car res)))
    
19. (princ res2)
    
20. ;;; "@"后面的字符串列表，如果有多个@，返回以@拆分的列表
    
21. (setq res (string:to-list str "@"))
    
22. (setq res3(if (cdr res) (cdr res)))
    
23. (print res3)
    
24. (princ)
    

;;;; "dhf的得[]分能8897力5零551零[]@K564DJFK5611DJ",提取"能"和"力"中间的8897，或者是"@"后面的字符串K564DJFK5611DJ 。"得"前面的字符串dhf的。只截取有用的部分！<br /> (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> <br /> (setq str "dhf的得[]分能8897力5零551零[]@K564DJFK5611DJ@dhf的得[]分能8899力5零551零[]@K564DJFK5611DJ")<br /> ;;; 两字之间,提取"能"和"力"中间的8897<br /> ;; 先用前面的 “能”拆分，再用后面的“力”拆分,结果为列表。<br /> (setq res (cdr (string:to-list str "能")))<br /> (setq res1<br />       (vl-remove nil<br />                  (mapcar '(lambda(x / sub)<br />                            (setq sub (string:to-list x "力"))<br />                            (if (cdr sub)<br />                                (car sub)))<br />                          res)))<br /> (princ res1)<br /> ;;; "得"前面的字符串,结果为第一个得前面<br /> (setq res (string:to-list str "得"))<br /> (setq res2(if (cdr res)(car res)))<br /> (princ res2)<br /> ;;; "@"后面的字符串列表，如果有多个@，返回以@拆分的列表<br /> (setq res (string:to-list str "@"))<br /> (setq res3(if (cdr res) (cdr res)))<br /> (print res3)<br /> (princ)<br />

h806600727

tryhi 发表于 2024-6-19 10:14
可惜lsp不支持正则的零宽断言，只能自己切割

好的我试试，谢谢大佬分享

技术工作室

谢谢分享！！！！！！！！！！！！！！