请教@G版

fjutcivil · 发表于 2014-4-25 11:33:43

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 fjutcivil 于 2014-4-25 11:35 编辑

以下是G版在明经的程序。
请问我要接力怎么接啊比如你的程序出来的是（0.4 5 6）我想用读取第一个数第二个第三个数 ...用于后面的计算怎么写啊？

(defun gxl-strparseNumbers (s / dot)
(
(lambda (l )
(read
(strcat "("
(vl-list->string
(apply
'append
(mapcar
(function
(lambda (a b c d)
(if
(or
(< 47 b 58)
(and (= 43 b) (< 47 c 58) )
(and (= 45 b) (< 47 c 58) )
(and (= 46 b) (< 47 a 58) (< 47 c 58))
(and (= 46 b) (not (< 47 a 58)) (< 47 c 58))
(and (= 46 b) (< 47 a 58) (not (< 47 c 58)))
(and (or (= 69 b)(= 101 b)) (< 47 a 58) (or (< 47 c 58) (and (or (= 43 c) (= 45 c)) (< 47 d 58))))
)
(if (and (= 46 b) (not (< 47 a 58)) (< 47 c 58))
(if (not dot)
(progn (setq dot t) (list 48 b))
(list 48 b)
)
(if (and (= 46 b) (< 47 a 58) (not (< 47 c 58)))
(if (not dot)
(list b 48 32)
(progn (setq dot nil) (list 32 ))
)
(if (and (< 47 b 58) (= 45 c))
(progn (setq dot nil) (list b 32))
(if (and (= 46 b) (< 47 a 58) (< 47 c 58))
(if (not dot)
(progn (setq dot t) (list b))
(progn (setq dot t) (list 32 48 b))
)
(if (and (or (= 69 b)(= 101 b)) (< 47 a 58) (or (< 47 c 58) (and (or (= 43 c) (= 45 c)) (< 47 d 58))))
(progn (setq dot t) (list b))
(list b)
)
)
)
)
)
(progn (setq dot nil) '(32))
)
)
)
(cons nil l)
l
(append (cdr l) (list nil))
(append (cddr l) (list nil nil))
)
)
)
")"
)
)
)
(vl-string->list s)
)
)
;;测试:
(GXL-STRPARSENUMBERS "BM.H0.2W12TT.4KSE15.Y3E-3PD")
;;返回
(0.2 12 0.4 15.0 0.003)

牢固 · 发表于 2014-4-25 11:42:21

基础知识要一定学好！
函数 car cadr caddr 。。。

fjutcivil · 发表于 2014-4-25 11:46:57

牢固发表于 2014-4-25 11:42
基础知识要一定学好！
函数 car cadr caddr 。。。

我试过了但是我不知道参数是读哪个啊试来试去都读不出来就是CAR 后面是什么参数啊？

Lisphk · 发表于 2014-4-25 12:18:48

你要赋值给变量才能继续使用返回值。

(setq a (GXL-STRPARSENUMBERS "BM.H0.2W12TT.4KSE15.Y3E-3PD"))
(setq c1 (nth 0 a)
c2 (nth 1 a)
c3 (nth 2 a)
)

fjutcivil · 发表于 2014-4-25 12:49:57

Lisphk 发表于 2014-4-25 12:18
你要赋值给变量才能继续使用返回值。

(setq a (GXL-STRPARSENUMBERS "BM.H0.2W12TT.4KSE15.Y3E-3PD"))

原来是这样，谢啦！

账号		自动登录	找回密码
密码			立即注册

[求助] 请教@G版