再次求助怎么分离数字与符号?

无痕

4.7;; 更改字符中包含 M=数字 的字符，将数字加1.5
(defun c:test1()
(setq str "2至M=56.5变M=3量M=.22"
      pat "(M)(=)(\\d{0,}\\.{0,1}\\d{1,})")
(setq lst (xxexp pat str "")) ;->("M=56.5" "M=3" "M=.22")
(setq lst2(mapcar '(lambda(x)(strcat "M=" (rtos(+ 1.5(distof(vl-string-subst "" "M=" x)))2 2)))lst))
 ;->("M=58.00" "M=4.50" "M=1.72")
(mapcar '(lambda(x y)(setq str (xxexpr x str y ""))) lst lst2)
str) ;-> "2至M=58.00变M=4.50量M=1.72"
4.8 ;; 将a=或d=开头的数字加一个数.
(defun c:test2()
   (setq str "测试a=2,d=3结果f=2,aa-3"
      add 1.75
      jd 2) ;精度
   (setq str2 (xxexpr "([a|d])(=)(\\d+)" str (strcat"$1$2(+ " (rtos add 2 jd) " $3)") "")) ;-> "测试a=(+ 1.75 2),d=(+ 1.75 3)结果f=2,aa-3"
   (setq as (mapcar '(lambda(x)(eval(read x))) (xxexp "(\\([^()]*\\))" str2  "")));->("(+ 1.75 2)" "(+ 1.75 3)")->(3.75 4.75)
   (mapcar '(lambda(x)(setq str2 (xxexpr "([a|d])(=)(\\([^()]*\\))" str2 (strcat "$1$2" (rtos x 2 jd)) "g"))) as)
   str2
) ;-> "测试a=3.75,d=4.75结果f=2,aa-3"

zml84

http://zml84.blog.sohu.com/79553255.html

(vl-load-com)
;;;=============================================
;;;功能：字符串分割                             
;;;参数：STR ----欲分割的字符串，支持汉字       
;;;      LST ----分隔符表，大小写敏感           
;;;日期：zml84 于 2008-02-19                    
;;;示例：(test "1N3.5(2)" '(("N")("(" ")")))    
;;;       ===>>  ("1" "N" "3.5" "(2)")          
;;;示例：(test "abc汉字2(1.5)" '(("汉""字")))   
;;;       ===>>  ("abc" "汉字" "2(1.5)")        
(defun
		TEST
		(STR
		LST
		/
		I
		LST2
		LST_TMP
		STRI
		STR_TMP)

		(setq
		LST2
		'())
		;_存放结果的变量

		(setq
		STR_TMP
		"")

		(while
		(/=
		STR
		"")
	(if
		(>
		(ascii(substr
		STR
		1
		1))
		159)
	    (setq
		STRI
		(substr
		STR
		1
		2)
		  STR
		(substr
		STR
		3)
	    )
	    (setq
		STRI
		(substr
		STR
		1
		1)
		  STR
		(substr
		STR
		2)
	    )
	)
	(if
		(setq
		LST_TMP
		(assoc
		STRI
		LST))
	    (progn
		(if
		(/=
		STR_TMP
		"")
		    (setq
		LST2	  (cons
		STR_TMP
		LST2)
			  STR_TMP
		""
		    )
		)
		(cond
		    ((=
		1
		(length
		LST_TMP))
		     (setq
		LST2
		(cons
		STRI
		LST2))		     
		    )
		    ((=
		2
		(length
		LST_TMP))
		     (if
		(setq
		I
		(vl-string-search
		(cadr
		LST_TMP)
		STR))
			 (setq
		LST2
		(cons
					(strcat
		STRI(substr
		STR
		1
		I)
		(cadr
		LST_TMP))
					LST2
				    )
			       STR
		(substr
		STR
		(+
		1
		I
		(strlen
		(cadr
		LST_TMP))))
			 )
			 (setq
		LST2
		(cons
		STR
		LST2)
			       STR
		""
			 )
		     )
		    )
		)
	    )
	    (setq
		STR_TMP
		(strcat
		STR_TMP
		STRI)
		)
	)

		)

		(if	(/=
		STR_TMP
		"")
	(setq
		LST2
		(cons
		STR_TMP
		LST2))

		)

		(reverse
		LST2)
)

无痕

jaminth发表于2008-2-18 22:24:00无痕斑主，能不能用正则表达式帮一下忙：我给出三种情况：----------------分离结果：(setq all \"125.36(T5)\")--------(setq sz \"125.36\");(setq wz \"(T5)\")(setq all \"585.360052\")--

3. ;|实例：
4. (setq pat "(.?T\\d+.?)|(\\d+\\.?\\d+)")
5. (xxexp pat "125.36(T5)")
6. ->返回：("125.36" "(T5)")
7. (xxexp pat "[T6]585.360052")
8. ->返回：("[T6]" "585.360052")
9. (xxexp pat "{T8}125.36<T5>")
10. ->返回：("{T8}" "125.36" "<T5>")
11. |;

;|实例： (setq pat "(.?T\\d+.?)|(\\d+\\.?\\d+)") (xxexp pat "125.36(T5)") ->返回：("125.36" "(T5)") (xxexp pat "[T6]585.360052") ->返回：("[T6]" "585.360052") (xxexp pat "{T8}125.36<T5>") ->返回：("{T8}" "125.36" "<T5>") |;

2. ;|正则表达式分断字符串---by lxx|;
3. (defun xxexp (pat str / end)
4.   (vl-load-com)
5.   (setq *xxvbsexp (vlax-get-or-create-object "VBScript.RegExp"))
6.   (vlax-put *xxvbsexp 'Pattern pat)
7.   (vlax-put *xxvbsexp 'Global -1)
8.   (setq matches (vlax-invoke *xxvbsexp 'Execute str))
9.   (vlax-for x matches (setq end (cons (vla-get-value x) end)))
10.   (reverse end)
11. )

;|正则表达式分断字符串---by lxx|; (defun xxexp (pat str / end)   (vl-load-com)   (setq *xxvbsexp (vlax-get-or-create-object "VBScript.RegExp"))   (vlax-put *xxvbsexp 'Pattern pat)   (vlax-put *xxvbsexp 'Global -1)   (setq matches (vlax-invoke *xxvbsexp 'Execute str))   (vlax-for x matches (setq end (cons (vla-get-value x) end)))   (reverse end) )