如何简单提取字符串中"实型"子字符串

blue_wind

例:

"dfafd19393.4959djfkdjf384834.56dfh"

=>"19393.4959","384834.56"

yshf

;试用以下程序
;Command: (sszh "dfafd19393.4959djfkdjf384834.56dfh")
;("19393.4959" "384834.56")
(defun sszh(xzfc /  sz zfc fhb)
    (setq sz '(43 45 46 48 49 50 51 52 53 54 55 56 57 58)
          zfc "" fhb nil
    )
    (mapcar '(lambda(x)
         (if (member x sz)
      (setq zfc (strcat zfc (chr x)))
      (if (not (member zfc fhb))
          (setq fhb (append fhb (list zfc)) zfc "")
      )
  )
       )
       (vl-string->list xzfc)
    )
    (vl-remove "" fhb)     
)

lockmyeye

;;(str2real "dfafd19393.4959djfkdjf384834.56dfh")
(DEFUN str2real (str / hold)
  (SETQ hold (VL-STRING->LIST "0123456789."))
  (READ (STRCAT "("
                (VL-LIST->STRING (MAPCAR '(LAMBDA (_tmp)
                                            (IF (MEMBER _tmp hold)
                                              _tmp
                                              32
                                            )
                                          )
                                         (VL-STRING->LIST str)
                                 )
                )
                ")"
        )
  )
)