[求助]： 如何提取12(2.2)中的12和2.2

dhxf

(setq zjgd "12(2.2)")

2个数字,后一个在括号里,怎么样分别提取?
挨个字符判断?

xyp1964

未考虑其他组合：
[php](setq front (atof (substr zjgd 1 2))
      back  (atof (substr zjgd 4 3))
)[/php]

jinsong-liao

当字符串长度不固定时，则根据左右括弧的ASCII值判断其位置，再取其中的子字符串。

zhouri

3楼的，麻烦详细一点，我也想知道怎么座的。

dhxf

................
(if (= (substr obj2 v 1) "(" )
(progn
   (setq front (atof (substr obj2 1 (- v 1)) )
      back  (atof (substr obj2 (+ 1  v) ))
............
这样 谢谢

xyp1964

[php];;;提取括号内外的内容，格式如12.34f(2.2fdf)
(defun str_to_read (str)
  (setq        i 0
        n 0
  )
  (while (/= (substr str (setq i (1+ i)) 1) "("))
  (while (/= (substr str (setq n (1+ n)) 1) ")"))
  (setq        front (substr str 1 (- i 1))
        back  (substr str (+ i 1) (- n i 1))
  )
  (princ "\n内容（前） =  ")
  (princ front)
  (princ "\n内容（后） =  ")
  (princ back)
  (princ)
)[/php]
测试：
命令: (str_to_read "12.0d56sd45(2.245567)")
内容（前） =  12.0d56sd45
内容（后） =  2.245567

啵浪鼓

xyp1964真强，顶~~~

dandee

更 简 单 的 :
(setq a (read (strcat "(" (vl-string-translate  "("  " " zjgd))))   

--->(12  2.2)

front -->(car a)
back-->(cadr a)

xyp1964

[php](defun str_to_read (str)
  (setq        a     (read (strcat "(" (vl-string-translate "(" " " str)))
        front (car a)
        back  (cadr a)
  )
  (princ front)
  (princ " ; ")
  (princ back)
)

(defun str_to_read (str)
  (setq        i     (vl-string-search "(" str)
        n     (vl-string-search ")" str)
        front (substr str 1 i)
        back  (substr str (+ i 2) (- n i 1))
  )
  (princ front)
  (princ " ; ")
  (princ back)
)[/php]

dhxf

鼓掌鼓掌;言简意赅;
果然学无止境,佩服;

dandee

不用vl函数，再简化：

front -->(read zjgd)
back-->(caadr  (read  (strcat "("   zjgd ")"   )))

橄榄滋味

应该包容多个（），看看这个
(defun test(zifu)
(read(strcat "(" (vl-string-translate ")" " " (vl-string-translate "(" " " zifu)) ")"))
)
测试：
(test "afa(f)123(345)567(sfs)jhkk") 返回 (AFA F 123 345 567 SFS JHKK)