字符 1-6 转换成 “1” “2” “3” “4” “5” “6”

llsheng_73

1. (defun tt(str / a b m n op)
   
2.   (setq a(mapcar'(lambda(x)(if(>(length(setq a(vl-remove""(strsplit x'("-")))))1)
   
3.                       (reverse(setq m(if(>(atoi(car a))0)(atoi(car a))(apply'+(vl-string->list(car a))))
   
4.                                     n(if(>(atoi(last a))0)(atoi(last a))(apply'+(vl-string->list(last a))))
   
5.                                     a(list(car a))op(if(< m n)1+ 1-)
   
6.                                     b(repeat(abs(- m n))
   
7.                                        (setq m(if(>(atoi(car a))0)(atoi(car a))(vl-string->list(car a)))
   
8.                                              a(cons(if(=(type m)'list)
   
9.                                                      (if(>(length m)1)(vl-list->string(list(car m)(op(last m))))
   
10.                                                        (chr(op(last m))))
    
11.                                                      (itoa(op m)))a)))))
    
12.                       (if a(LIST(car a))'(""))))(vl-remove""(strsplit str'("+"))))
    
13.         b(car a)a(cdr a)
    
14.         b(if a(foreach x a(setq b(append b x)))b)))
    
15. (defun strsplit(str splits / i a b)
    
16.   (while(<""str)
    
17.     (if(vl-remove'nil(mapcar'(lambda(x)(vl-string-search x str))splits))
    
18.       (setq i(car(vl-sort(vl-remove'nil(mapcar'(lambda(x)(if(setq l(vl-string-search x str))(cons l x)))splits))
    
19.                          '(lambda(s1 s2)(<(car s1)(car s2)))))
    
20.             a(cons(substr str 1(car i))a)b(cons(cdr i)b)
    
21.             str(substr str(+(car i)(strlen(cdr i))1)))
    
22.       (setq a(cons str a)b(cons "" b)str"")))
    
23.   (reverse a))

(defun tt(str / a b m n op)<br />   (setq a(mapcar'(lambda(x)(if(>(length(setq a(vl-remove""(strsplit x'("-")))))1)<br />                       (reverse(setq m(if(>(atoi(car a))0)(atoi(car a))(apply'+(vl-string->list(car a))))<br />                                     n(if(>(atoi(last a))0)(atoi(last a))(apply'+(vl-string->list(last a))))<br />                                     a(list(car a))op(if(< m n)1+ 1-)<br />                                     b(repeat(abs(- m n))<br />                                        (setq m(if(>(atoi(car a))0)(atoi(car a))(vl-string->list(car a)))<br />                                              a(cons(if(=(type m)'list)<br />                                                      (if(>(length m)1)(vl-list->string(list(car m)(op(last m))))<br />                                                        (chr(op(last m))))<br />                                                      (itoa(op m)))a)))))<br />                       (if a(LIST(car a))'(""))))(vl-remove""(strsplit str'("+"))))<br />         b(car a)a(cdr a)<br />         b(if a(foreach x a(setq b(append b x)))b)))<br /> (defun strsplit(str splits / i a b)<br />   (while(<""str)<br />     (if(vl-remove'nil(mapcar'(lambda(x)(vl-string-search x str))splits))<br />       (setq i(car(vl-sort(vl-remove'nil(mapcar'(lambda(x)(if(setq l(vl-string-search x str))(cons l x)))splits))<br />                          '(lambda(s1 s2)(<(car s1)(car s2)))))<br />             a(cons(substr str 1(car i))a)b(cons(cdr i)b)<br />             str(substr str(+(car i)(strlen(cdr i))1)))<br />       (setq a(cons str a)b(cons "" b)str"")))<br />   (reverse a))

(tt"-5")->("5")
(tt"50")->("50")
(tt"5-")->("5")
(tt"+5-")->("5")
(tt"5+")->("5")
(tt"-5+")->("5")
(tt"5-21("5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16" "17" "18" "19" "20" "21")
(tt"31-15")->("31" "30" "29" "28" "27" "26" "25" "24" "23" "22" "21" "20" "19" "18" "17" "16" "15")
(tt"31-15+A")->("31" "30" "29" "28" "27" "26" "25" "24" "23" "22" "21" "20" "19" "18" "17" "16" "15" "A")
(tt"21-8+A-H")->("21" "20" "19" "18" "17" "16" "15" "14" "13" "12" "11" "10" "9" "8" "A" "B" "C" "D" "E" "F" "G" "H")
(TT"+14-8+A-F+h-e")->("14" "13" "12" "11" "10" "9" "8" "A" "B" "C" "D" "E" "F" "h" "g" "f" "e")

edata

kblh 发表于 2014-6-22 14:27
edada  在没有“-” 和 “+”时 不对  
如 1 不能得到 “1”

来源都是字符串"1"运行后返回自身。

1. (defun parse9 (str delim / I S STR1 STRLST)
   
2.   (setq        i 0 str1 "")
   
3.   (while (/= "" (setq s (substr str (setq i (1+ i)) 1)))
   
4.     (cond ((/= delim s) (setq str1 (strcat str1 s)))
   
5.           (T (setq strlst (append strlst (list str1)) str1 ""))         
   
6.     )
   
7.   )
   
8.   (if (/= str1 "")
   
9.     (append strlst (list str1))
   
10.     strlst
    
11.   )
    
12. )
    
13. 
    
14. (defun sk_str->delim(txt / a nlst B C D K)
    
15.    (vl-load-com)  
    
16.   (if (or (wcmatch txt "*-*")(wcmatch txt "*+*"))
    
17.     (progn
    
18.       (setq txt(parse9 txt "+") nlst '())
    
19.       (while(setq a(car txt))
    
20.         (if (wcmatch a "*-*")
    
21.           (progn
    
22.             (setq b(parse9 a "-"))
    
23.             (mapcar 'set '(c d)(list (atoi(car b)) (atoi(cadr b))))
    
24.             (setq k (- (min c d) 1))
    
25.             (repeat(if(< c d)(1+(- d c))(1+(- c d)))
    
26.               (setq nlst(cons (setq k(1+ k)) nlst))             
    
27.               )
    
28.             )
    
29.           (setq nlst(cons (atoi a) nlst))
    
30.           )
    
31.         (setq txt (cdr txt))
    
32.         )
    
33.       (setq nlst(vl-sort nlst '<)
    
34.             nlst(mapcar 'itoa nlst))
    
35.       )
    
36.     txt
    
37.     )
    
38.   )
    
39. ;;测试程序
    
40. (defun c:tt()  
    
41. (setq txt "1")
    
42.   (sk_str->delim txt)
    
43.   )

(defun parse9 (str delim / I S STR1 STRLST)<br />   (setq        i 0 str1 "")<br />   (while (/= "" (setq s (substr str (setq i (1+ i)) 1)))<br />     (cond ((/= delim s) (setq str1 (strcat str1 s)))<br />           (T (setq strlst (append strlst (list str1)) str1 ""))          <br />     )<br />   )<br />   (if (/= str1 "")<br />     (append strlst (list str1))<br />     strlst<br />   )<br /> )<br /> <br /> (defun sk_str->delim(txt / a nlst B C D K)<br />    (vl-load-com)  <br />   (if (or (wcmatch txt "*-*")(wcmatch txt "*+*"))<br />     (progn<br />       (setq txt(parse9 txt "+") nlst '())<br />       (while(setq a(car txt))<br />         (if (wcmatch a "*-*")<br />           (progn<br />             (setq b(parse9 a "-"))<br />             (mapcar 'set '(c d)(list (atoi(car b)) (atoi(cadr b))))<br />             (setq k (- (min c d) 1))<br />             (repeat(if(< c d)(1+(- d c))(1+(- c d)))<br />               (setq nlst(cons (setq k(1+ k)) nlst))              <br />               )<br />             )<br />           (setq nlst(cons (atoi a) nlst))<br />           )<br />         (setq txt (cdr txt))<br />         )<br />       (setq nlst(vl-sort nlst '<)<br />             nlst(mapcar 'itoa nlst))<br />       )<br />     txt<br />     )<br />   )<br /> ;;测试程序<br /> (defun c:tt()  <br /> (setq txt "1")<br />   (sk_str->delim txt)<br />   )

q3_2006

是不是列举全部情况...比如1-6....这样的会不会出现多个,如果有多个怎么表示??

edata

q3_2006 发表于 2014-6-22 17:27
是不是列举全部情况...比如1-6....这样的会不会出现多个,如果有多个怎么表示??

1-6+8-19+25-40

q3_2006

edata 发表于 2014-6-22 17:44
1-6+8-19+25-40

这样就好办了....

(defun c:tt ( / del i l lst lx pos str x)
(defun str2lst ( str del / pos lst )
    (while (setq pos (vl-string-search del str))
        (setq lst (cons (substr str 1 pos) lst)
              str (substr str (+ pos 1 (strlen del)))
        )
    )
    (reverse (cons str lst))
)
        (setq str "99+1-6+8-19+25-40+120"
                l (str2lst str "+")
                l (mapcar '(lambda(x)
                (if (null (vl-string-search "-" x)) x
                        (progn
                                (setq i -1 lx nil)
                                (mapcar 'itoa (reverse
                                (repeat (1+ (- (- (atoi (substr x (1+ (vl-string-search "-" x))))) (atoi x)))
                                (setq lx (cons (+ (setq i (1+ i)) (atoi x)) lx)))))))) l)
                l (apply 'append (mapcar '(lambda(x) (if (listp x) x (list x))) l))
        )
)

q3_2006

q3_2006 发表于 2014-6-22 18:25
这样就好办了....

(defun c:tt ( / del i l lst lx pos str x)

还带字母呀...73哥考虑这么多...

llsheng_73

q3_2006 发表于 2014-6-22 20:14
还带字母呀...73哥考虑这么多...

我本来还考虑过汉字的，但那结果太扯蛋最后给去掉了
但是"9-5"应该允许("9" "8" "7" "6" "5")

xyp1964

画蛇添足＝0分