CAD

hjin24

CAD中大量的多行文字，怎么只提取括号中的数据

	关闭

namezg

(setq str "3.40(5.18)")
(car (read (substr str (1+ (vl-string-search "(" str)))));5.18

(setq str "3.40(5.18)")
(read (substr str (+ (vl-string-search "(" str) 2)));5.18

(setq str "3.40(5.18)")
(setq n (vl-string-search "(" str))
(substr str (+ n 2) (- (strlen str) n 2));"5.18"

(setq str "3.40(5.18)")
(vl-string-trim ")" (substr str (+ (vl-string-search "(" str) 2)));"5.18"

(setq str "3.40(5.18)")
(vl-string-trim "()" (substr str (1+ (vl-string-search "(" str))))

(setq str "3.40(5.18)")
(vl-string-right-trim ")" (substr str (+ (vl-string-search "(" str) 2)));"5.18"

(setq str "3.40(5.18)")
(vl-list->string (reverse (cdr (reverse (cdr (member (ascii "(") (vl-string->list str)))))));"5.18"

(setq str "3.40(5.18)")
(apply 'strcat (reverse (cdr (reverse (cdr (member "(" (mapcar 'chr (vl-string->list str))))))));"5.18"

Andyhon

(setq str "3.40(5.18)")
(car (read (substr str (1+ (vl-string-position (ascii "(") str)))))