請教：如何提取"DETAIL 2:1"中數字2和1

Andyhon · 发表于 2010-12-27 22:42

(setq str "DETAIL 15:21")

(setq strR (substr str (1+ (1+ (vl-string-search " " str))))
   Strnn (vl-string-search ":" strR)
   StrA (substr strR 1 Strnn)
   Strz (substr StrR (1+ (1+ Strnn)))
)

xiaobao02 · 发表于 2010-12-27 23:09

谢谢Andyhon的帮助！问题基本解决，就怕有些人输入“DETAIL 2:1”时不输空格，如真那样就没辙了，不过这样的结果已经很可以了！TKS！

Gu_xl · 发表于 2010-12-27 23:12

改下即可
(apply 'strcat (mapcar 'chr (vl-remove-if '(lambda (x) (or (> x 58)(< x 48))) (VL-STRING->LIST "DETAIL 2:1"))))

Gu_xl · 发表于 2010-12-28 08:45

回复 Gu_xl 的帖子

都已经是2：1了，你自己还分不开吗？

xiaobao02 · 发表于 2010-12-28 11:35

回复 Gu_xl 的帖子

(setq OK (strcat "Andyhon" "+" "Gu_xl")) 搞定了!
版主批評的是，即使不會，也不要只會等著拿來就用，要學會變通! 不就OK了嗎!!!
(setq str (apply 'strcat  (mapcar 'chr (vl-remove-if '(lambda (x) (or (> x 58)(< x 48))) (VL-STRING->LIST "DETAIL 2:1")))) )

(setq Strnn (vl-string-search ":" str)
   StrA (substr str 1 Strnn)
   Strz (substr Str (1+ (1+ Strnn)))
)
此問題已完全解決!!
但如有更好，更簡短，歡迎再討論!!!

e2002 · 发表于 2010-12-28 11:57

要编程解决这种问题,必然你的字符串必须存在特定的规则,比如都是 Detail 开头, 后面接一个空格然后是数字字符串:数字字符串.

用户选择后,如不符合的程序应该过滤掉.

原地踏步 · 发表于 2011-1-1 15:02

(mapcar 'chr (vl-remove-if '(lambda (x) (or (> x 58)(< x 48)))
(VL-STRING->LIST "DETAIL 15:21")))

("1" "5" ":" "2" "1")
分别将":"前与":"后的数字连起来即可。

lsjj · 发表于 2011-1-1 18:15

(defun strim-ccm ( bk ax / b c)
  (setq ax (vl-string-translate bk " " ax))
  (while (setq c (vl-string-search " " ax))
(setq b  (cons (substr ax 1 c) b)
         ax (vl-string-trim " " (substr ax (1+ c)))
)
  )
  (setq b (cons ax b))
  (reverse b)
)

指令: (strim-ccm ":" "detail 15 : 21")
("detail" "15" "21")

指令: (strim-ccm ":" "detail 15:21")
("detail" "15" "21")

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

[讨论] 請教：如何提取"DETAIL 2:1"中數字2和1

点评

评分

点评