[求助]：用lisp编程,如何将下例数值取出？5-10-18

JQKA · 发表于 2003-5-26 00:19:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

用lisp编程,如何将下例数值取出？
5-10-18,11-7-3,2-1-9
要求：将相同位置的数值放在同一集合。
如：5,11,2同一集合
18,3,9同一集合
望各位指点。

eachy · 发表于 2003-5-26 00:37:29

最初由 JQKA 发布
[B]用lisp编程,如何将下例数值取出？
5-10-18,11-7-3,2-1-9
要求：将相同位置的数值放在同一集合。
如：5,11,2同一集合
18,3,9同一集合
望各位指点。 [/B]

;;;==================================================================
;;; (strparse str delimiter)
;;; 将具有分隔符的字符串解析为列表
;;;------------------------------------------------------------------
;;; 参数:
;;; str 要解析的字符串
;;; delimiter 要搜索的分隔符
;;;------------------------------------------------------------------
;;; 返回:
;;; 一个字符串列表。
;;; 示例:
;;; (setq a "harp,guiness,black and tan")
;;; (strparse a ",")
;;; 返回:
;;; ("harp" "guiness" "black and tan")
;;;------------------------------------------------------------------
;;; 相关主题: (stringtolist)
;;;------------------------------------------------------------------
(defun string_parse
(str delimiter / searchstr stringlen return n char)
(setq searchstr str)
(setq stringlen (strlen searchstr))
(setq return '())
(while (> stringlen 0)
(setq n 1)
(setq char (substr searchstr 1 1))
(while (and (/= char delimiter) (/= char ""))
(setq n (1+ n))
(setq char (substr searchstr n 1))
)
(setq return (cons (substr searchstr 1 (1- n)) return))
(setq searchstr (substr searchstr (1+ n) stringlen))
(setq stringlen (strlen searchstr))
)
(reverse return)
)
(defun test (strlst / strlst1)
(setq strlst1 (mapcar '(lambda (x) (string_parse x "-")) strlst))
(list (mapcar 'car strlst1)
(mapcar 'cadr strlst1)
(mapcar 'last strlst1)
)
)

;;;================================================================== 
;;; (strparse str delimiter) 
;;;             将具有分隔符的字符串解析为列表 
;;;------------------------------------------------------------------ 
;;; 参数: 
;;;             str                     要解析的字符串 
;;;             delimiter       要搜索的分隔符 
;;;------------------------------------------------------------------ 
;;;     返回: 
;;;             一个字符串列表。 
;;;             示例: 
;;;             (setq a "harp,guiness,black and tan") 
;;;             (strparse a ",") 
;;;             返回: 
;;;             ("harp" "guiness" "black and tan") 
;;;------------------------------------------------------------------ 
;;; 相关主题: (stringtolist) 
;;;------------------------------------------------------------------ 
(defun string_parse 
                    (str delimiter / searchstr stringlen return n char) 
  (setq searchstr str) 
  (setq stringlen (strlen searchstr)) 
  (setq return '()) 
  (while (> stringlen 0) 
    (setq n 1) 
    (setq char (substr searchstr 1 1)) 
    (while (and (/= char delimiter) (/= char "")) 
      (setq n (1+ n)) 
      (setq char (substr searchstr n 1)) 
    ) 
    (setq return (cons (substr searchstr 1 (1- n)) return)) 
    (setq searchstr (substr searchstr (1+ n) stringlen)) 
    (setq stringlen (strlen searchstr)) 
  ) 
  (reverse return) 
) 
(defun test (strlst / strlst1) 
  (setq strlst1 (mapcar '(lambda (x) (string_parse x "-")) strlst)) 
  (list        (mapcar 'car strlst1) 
        (mapcar 'cadr strlst1) 
        (mapcar 'last strlst1) 
  ) 
)

测试：
_$ (test '("2-4-6" "4-6-7" "8-9-0"))
(("2" "4" "8") ("4" "6" "9") ("6" "7" "0"))

_$(mapcar '(lambda (x) (mapcar 'read x))
(test '("2-4-6" "4-6-7" "8-9-0"))
)
((2 4 8) (4 6 9) (6 7 0))

JQKA · 发表于 2003-5-26 00:45:16

感谢eachy！回复神速。

梦断江南 · 发表于 2003-5-26 02:36:21

凑凑热闹:),功能一样:
;;转换 ("2-4-6" "4-6-7" "8-9-0") -> ((2 4 8)(4 6 9)(6 7 0))

(defun test (lst / lst2 lst3)
(setq lst2 (mapcar '(lambda (x) (read (strcat "(" (vl-string-translate "-" " " x) ")")) ) lst)
lst3 (list (mapcar 'car lst2) (mapcar 'cadr lst2) (mapcar 'last lst2))
))

测试:
命令: (TEST '("2-4-6" "4-6-7" "8-9-0"))
((2 4 8) (4 6 9) (6 7 0))

eachy · 发表于 2003-5-26 12:50:41

最初由梦断江南发布
[B]凑凑热闹:),功能一样:
;;转换 ("2-4-6" "4-6-7" "8-9-0") -> ((2 4 8)(4 6 9)(6 7 0))

(defun test (lst / lst2 lst3)

(setq lst2 (mapcar '(lambda (x) (read (strcat "(" (vl-string-translate "-" " "...
 (defun test (lst / lst2 lst3) (setq lst2 (mapcar '(lambda (x) (read (strcat "(" (vl-string-translate "-" " "...
[/B]

受江南启发，自己写了个字串拆分

;;;==================================================================
;;; (ea:string_parse str delimiter)
;;; 将具有分隔符的字符串解析为列表
;;;------------------------------------------------------------------
;;; 参数:
;;; str 要解析的字符串
;;; delimiter 要搜索的分隔符
;;;------------------------------------------------------------------
;;; 返回:
;;; 一个字符串列表。
;;; 示例:
;;; (setq a "harp,guiness,black and tan")
;;; (ea:string_parse a ",")
;;; 返回:
;;; ("harp" "guiness" "black and tan")
;;;------------------------------------------------------------------
(defun ea:string_parse (str delimiter / post strlst)
(setq strlst '())
(while (vl-string-search delimiter str)
(setq post (vl-string-search delimiter str))
(setq strlst (append strlst (list (substr str 1 post))))
(setq str (substr str (+ post 2)))
)
(vl-remove "" (append strlst (list str)))
)

;;;================================================================== 
;;; (ea:string_parse str delimiter) 
;;;             将具有分隔符的字符串解析为列表 
;;;------------------------------------------------------------------ 
;;; 参数: 
;;;             str                     要解析的字符串 
;;;             delimiter               要搜索的分隔符 
;;;------------------------------------------------------------------ 
;;;     返回: 
;;;             一个字符串列表。 
;;;             示例: 
;;;             (setq a "harp,guiness,black and tan") 
;;;             (ea:string_parse a ",") 
;;;             返回: 
;;;             ("harp" "guiness" "black and tan") 
;;;------------------------------------------------------------------ 
(defun ea:string_parse (str delimiter / post strlst) 
  (setq strlst '()) 
  (while (vl-string-search delimiter str) 
    (setq post (vl-string-search delimiter str)) 
    (setq strlst (append strlst (list (substr str 1 post)))) 
    (setq str (substr str (+ post 2))) 
  ) 
  (vl-remove  "" (append strlst (list str))) 
)

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

[求助] [求助]：用lisp编程,如何将下例数值取出？5-10-18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：用lisp编程,如何将下例数值取出？5-10-18

浏览过的版块