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

kblh

1-6  转换成 “1” “2” “3” “4” “5” “6”
1-6+8 转换成 “1” “2” “3” “4” “5” “6” ”8“
8+1-6  转换成 “1” “2” “3” “4” “5” “6” ”8“
- 表示 从1 到6的意思
+表示在加一个数

kblh

(if (or (wcmatch txt1 "*-*")(wcmatch txt1 "*+*"))(progn
    (if (wcmatch txt1 "*-*")
     (progn
      (setq x1 (substr txt1  (+ 1 (vl-string-position (ascii "-") txt1)))
            x2 (atof(vl-string-subst " " x1 txt1))
            x3 (atof(substr txt1 (+ 2 (vl-string-position (ascii "-") txt1))))
            n2 x2
      )
      (while (<= n2 x3 )
        (setq gna (list (rtos x2 2 0))  oba (append gna oba))
        (setq x2 ( + 1 x2))
        (setq n2 (+ n2 1))
      )
     )
    )
    (if (wcmatch txt1 "*+*")
      (setq x4 (substr txt1  (+ 1 (vl-string-position (ascii "+") txt1)))
            x5 (atof(vl-string-subst " " x4 txt1))
            x6 (atof(substr txt1 (+ 2 (vl-string-position (ascii "+") txt1))))
            gna (list (rtos x6 2 0) (rtos x5 2 0))  oba (append gna oba)   
      )
    )
    (setq obb (del-same oba) lst (vl-sort obb '< ))
    (setq gnb (list (length lst) lst b1)))

kblh

这样 好像不行的

edata

第一步，读取加减字符串，以加号作为分隔符分解2个字符串 1～6 8
读取分解串，发现减号再分解字符串  1 6并atoi出数字计算生成连续字符
合并连续字符和加号分割字符串
排序完成

Student

可先将字符串用 + 字符分割为1个或多个子字符串
再判断各子字符串中有无 - 字符，对各子字符串进行处理
将子字符串的处理结果合并
供参考

Andyhon

Command: (parse txt1 "-")
("1" "6")
-------------- 部份思路
(setq a (parse txt1 "-")   ; ==> ("1" "6")
      b (mapcar 'atoi a)
      c (car b)
      d (cadr b)
      
)
(while (< c d)
  (setq s (cons c s)
        c (1+ c)
))
(setq s (reverse (cons d s)))
(mapcar 'itoa s)

edata

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.     )
    
37.   )
    
38. ;;测试程序
    
39. (defun c:tt()  
    
40. (setq txt "86+0-60")
    
41.   (sk_str->delim txt)
    
42.   )
    

(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 />     )<br />   )<br /> ;;测试程序<br /> (defun c:tt()  <br /> (setq txt "86+0-60")<br />   (sk_str->delim txt)<br />   )<br />

xyp1964

2. ;; (aaa "8+1-6+10-20") → '("8" "1" "2" "3" "4" "5" "6" "10" "11" "12" "13" "14" "15" "16" "17" "18" "19" "20")
   
3. (defun aaa (str / lst a b a1 a2)
   
4.   (foreach tx (xyp-Get-Str2Lstspr str "+")
   
5.     (if  (vl-string-search "-" tx)
   
6.       (progn
   
7.         (setq b (xyp-Get-Str2Lstspr tx "-")
   
8.               a1 (atoi (car b))
   
9.               a2 (atoi (cadr b))
   
10.         )
    
11.         (while (<= a1 a2)
    
12.           (setq lst (cons (itoa a1) lst)
    
13.                 a1  (1+ a1)
    
14.           )
    
15.         )
    
16.       )
    
17.       (setq lst (cons tx lst))
    
18.     )
    
19.   )
    
20.   (reverse lst)
    
21. )

;; (aaa "8+1-6+10-20") → '("8" "1" "2" "3" "4" "5" "6" "10" "11" "12" "13" "14" "15" "16" "17" "18" "19" "20") <br /> (defun aaa (str / lst a b a1 a2)<br />   (foreach tx (xyp-Get-Str2Lstspr str "+")<br />     (if  (vl-string-search "-" tx)<br />       (progn<br />         (setq b (xyp-Get-Str2Lstspr tx "-")<br />               a1 (atoi (car b))<br />               a2 (atoi (cadr b))<br />         )<br />         (while (<= a1 a2)<br />           (setq lst (cons (itoa a1) lst)<br />                 a1  (1+ a1)<br />           )<br />         )<br />       )<br />       (setq lst (cons tx lst))<br />     )<br />   )<br />   (reverse lst)<br /> )

kblh

no function definition: XYP-GET-STR2LSTSPR

kblh

edada  在没有“-” 和 “+”时 不对  
如 1 不能得到 “1”