该如何取得 = 之后的数值?

lincctw_ccl

请问各位该如何取得 = 之后的数字

例子:

xxxx193.6 xfdfrgfgfg = 658.24 ----à只要得到  658.24

= 之前的文字,字数不一定

= 之后的数值小数点位数也不一定

谢谢!

Andyhon

(vl-list->string (cddr (member 61 (vl-string->list str))))

ll_j

(atof (vl-list->string (cdr (member 61 (vl-string->list str)))))

xyp1964

(substr str (+ (vl-string-search "=" str) 2))

lincctw_ccl

感謝Andyhon &  ll_j & 院長 指點!!
問題已解決!!

自贡黄明儒

有一种通用的方法

;;[功能] 取文字末尾的数字
;;http://bbs.mjtd.com/thread-107150-1-1.html中定义xd::string:regexps
;;示例(HH:EndNumber "a=32.3")，返回"32.3"
(defun HH:EndNumber (str)
  (car(xd::string:regexps "[0-9.]+$" str ""))
)