请问如何提取字符串中的数值？

Jully

(setq string "X-12.0314 Y26.9145 I48.7961 J-14.9177")
请问如何提出string中的x,y,I,J值？？各数值的位数是不定的，即是可变的。例如x=12.03，y=26,I=148,J=14

nzl1116

(read (strcat "(" (vl-string-translate "XYIJ" "    " String) ")"))

流动的清泉

这个适用性强点(defun extract-numeric-from-text (text)
  (setq str-list (vl-string->list text)) ; 将字符串转换为字符列表
  (setq num-list nil) ; 用于存储数字字符
  (foreach char str-list
    (if (and (>= char 48) (<= char 57)) ; 48 到 57 是数字 0 到 9 的 ASCII 码值
        (setq num-list (append num-list (list char)))
        (setq num-list (append num-list (list 32)))
    )
  )
  (setq num-str (vl-list->string num-list)) ; 将数字字符列表转换回字符串
)

ljpnb

(setq string "X-12.0314 Y26.9145 I48.7961 J-14.9177")
(setq n1 (vl-string-position (ascii "X") string))
(setq n2 (vl-string-position (ascii "Y") string))
(setq n3 (vl-string-position (ascii "I") string))
(setq n4 (vl-string-position (ascii "J") string))
(setq X (substr string (+ n1 2) (- n2 n1 2)))
(setq Y (substr string (+ n2 2) (- n3 n2 2)))
(setq I (substr string (+ n3 2) (- n4 n3 2)))
(setq J (substr string (+ n4 2)))

zhynt

2. 
   
3. ;;将由相同分隔字符分隔的字符串组成表（忽略“空”字串）
   
4. (defun zhy_string_tok (sstring sstr / n1 n2 m2 str_1 string_list)
   
5.   (setq string_list '())
   
6.   (setq n1 (strlen sstring))
   
7.   (setq n2 (strlen sstr))
   
8.   (while (setq m2 (zhy_string_find sstring sstr))
   
9.     (setq str_1 (substr sstring 1 (- m2 1)))
   
10.     (setq sstring (substr sstring (+ m2 n2)))
    
11.     (if        (/= str_1 "")
    
12.       (setq string_list (cons str_1 string_list))
    
13.     )
    
14.   )
    
15.   (if (/= sstring "")
    
16.     (setq string_list (cons sstring string_list))
    
17.   )
    
18.   (reverse string_list)
    
19. )
    
20. ;;======================================================
    
21. (defun str (str)
    
22.   (setq str_lst (zhy_string_tok str " "))
    
23.   (setq n (length str_lst))
    
24.   (setq        st1 '()
    
25.         st2 '()
    
26.         m 0
    
27.   )  
    
28.   (while (/= n m)
    
29.     (setq st1 (cons (substr (nth  m str_lst) 1 1) st1)
    
30.           st2 (cons (substr (nth  m str_lst) 2) st2)
    
31.           m   (1+ m)
    
32.     )
    
33.   )
    
34.   (setq        st1 (reverse st1)
    
35.         st2 (reverse st2)
    
36.   )
    
37. )
    

<br /> ;;将由相同分隔字符分隔的字符串组成表（忽略“空”字串）<br /> (defun zhy_string_tok (sstring sstr / n1 n2 m2 str_1 string_list)<br />   (setq string_list '())<br />   (setq n1 (strlen sstring))<br />   (setq n2 (strlen sstr))<br />   (while (setq m2 (zhy_string_find sstring sstr))<br />     (setq str_1 (substr sstring 1 (- m2 1)))<br />     (setq sstring (substr sstring (+ m2 n2)))<br />     (if        (/= str_1 "")<br />       (setq string_list (cons str_1 string_list))<br />     )<br />   )<br />   (if (/= sstring "")<br />     (setq string_list (cons sstring string_list))<br />   )<br />   (reverse string_list)<br /> )<br /> ;;======================================================<br /> (defun str (str)<br />   (setq str_lst (zhy_string_tok str " "))<br />   (setq n (length str_lst))<br />   (setq        st1 '()<br />         st2 '()<br />         m 0<br />   )  <br />   (while (/= n m)<br />     (setq st1 (cons (substr (nth  m str_lst) 1 1) st1)<br />           st2 (cons (substr (nth  m str_lst) 2) st2)<br />           m   (1+ m)<br />     )<br />   )<br />   (setq        st1 (reverse st1)<br />         st2 (reverse st2)<br />   )<br /> )<br />

(setq string "X-12.0314 Y26.9145 I48.7961 J-14.9177")
(str string)
st1==>
("X" "Y" "I" "J")
st2==>
("-12.0314" "26.9145" "48.7961" "-14.9177")

crazylsp

zhy_string_find 没有? 没有办法用了

zhynt

2. 
   
3. ;;;在字符串中搜索指定的字符串，返回发现的第一个字符串出现的位置（第一位为1）
   
4. ;;;
   
5. (defun zhy_string_find (string str / n m na str_1 string str)
   
6.   (setq n (strlen string))
   
7.   (setq na (strlen str))
   
8.   (setq m 0)
   
9.   (while (/= m n)
   
10.     (setq m (1+ m))
    
11.     (setq str_1 (substr string m na))
    
12.     (if        (= str_1 str)
    
13.       (setq n m)
    
14.     )
    
15.   )
    
16. )
    

<br /> ;;;在字符串中搜索指定的字符串，返回发现的第一个字符串出现的位置（第一位为1）<br /> ;;;<br /> (defun zhy_string_find (string str / n m na str_1 string str)<br />   (setq n (strlen string))<br />   (setq na (strlen str))<br />   (setq m 0)<br />   (while (/= m n)<br />     (setq m (1+ m))<br />     (setq str_1 (substr string m na))<br />     (if        (= str_1 str)<br />       (setq n m)<br />     )<br />   )<br /> )<br />

Jully

谢谢大家！

kyo90

好像很复杂呢~

自贡黄明儒

kyo90 发表于 2011-6-22 11:14
好像很复杂呢~

;;这个可能简单些
;;(setq str "aa 10.2 b10x20.2")
;;(getNumberS str)返回("10.2" "10" "20.2")
;;======================================================
(defun getNumberS (str / ASC N STR1 STRN)
  ;;先将非数字用空格代替
  (setq n 1)
  (setq str1 "")
  (repeat (strlen str)
    (setq strn (substr str n 1))
    (setq Asc (ascii strn))
    (if (or (and (> Asc 47) (< Asc 58)) (= Asc 46))
      (setq str1 (strcat str1 strn))
      (setq str1 (strcat str1 " "))
    )
    (setq n (1+ n))
  )
  (strinSplitS str1)
)

自贡黄明儒

;;这个可能简单些
;;提取字符串中数字
;;(setq str "aa 10.2 b10x20.2")
;;(getNumberA str)返回(10.2 10 20.2)
;;======================================================
(defun getNumberA (str / N STR1 STRN)
  ;;先将非数字用空格代替
  (setq n 1)
  (setq str1 "")
  (repeat (strlen str)
    (setq strn (substr str n 1))
    (if (wcmatch strn "#,.")
      (setq str1 (strcat str1 strn))
      (setq str1 (strcat str1 " "))
    )
    (setq n (1+ n))
  )
  (strinSplitA str1)
)
;;;

不语勿语

学习了。。