再次求助怎么分离数字与符号? - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - 第2页

无痕发表于 2008-2-19 14:27:00

4.7;; 更改字符中包含 M=数字的字符，将数字加1.5 (defun c:test1() (setq str "2至M=56.5变M=3量M=.22"       pat "(M)(=)(<a href="file://\\d{0,}\\.{0,1}\\d{1">\\d{0,}\\.{0,1}\\d{1</a>,})") (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 href="file://\\d">\\d</a>+)" 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 "(<a href="file://\\([^()]*\\">\\([^()]*\\</a>))" str2  "")));->("(+ 1.75 2)" "(+ 1.75 3)")->(3.75 4.75)    (mapcar '(lambda(x)(setq str2 (xxexpr "()(=)(<a href="file://\\([^()]*\\">\\([^()]*\\</a>))" str2 (strcat "$1$2" (rtos x 2 jd)) "g"))) as)    str2 ) ;-> "测试a=3.75,d=4.75结果f=2,aa-3"

zml84 发表于 2008-2-19 16:19:00

http://zml84.blog.sohu.com/79553255.html <pre>(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) )
</pre>

无痕发表于 2008-2-19 22:26:00

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

;|实例：
(setq pat "(.?T\\d+.?)|(\\d+\\.?\\d+)")
(xxexp pat "125.36(T5)")
->返回：("125.36" "(T5)")
(xxexp pat "585.360052")
->返回：("" "585.360052")
(xxexp pat "{T8}125.36<T5>")
->返回：("{T8}" "125.36" "<T5>")
|; ;|正则表达式分断字符串---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)
)

页: 1 [2]

明经CAD社区's Archiver