[讨论]：想知道怎么把字串搞成一个表？

carrot1983

想知道怎么把字串搞成一个表？
用lisp编。也就是R14下能用的。
例如：字串"1-2-3-4" 变成表("1" "-" "2" "-" "3" "-" "4")
我只能得到像"1"这样一个单独的字串。但是不知道怎么把每个单独的字串组成表。这里用到一个循环，一个条件。。谁知道能否告知，先谢了。。。

taner

最初由 carrot1983 发布
[B]想知道怎么把字串搞成一个表？
用lisp编。也就是R14下能用的。
例如：字串"1-2-3-4" 变成表("1" "-" "2" "-" "3" "-" "4")
我只能得到像"1"这样一个单独的字串。但是不知道怎么把每个单独的字串组成表。这里用到?.. [/B]

2. 
   
3.   [FONT=courier new]
   
4. (defun test1 (str / lst strl i)
   
5.   (setq strl (strlen str))
   
6.   (setq i 1)
   
7.   (while (<= i strl)
   
8.     (setq lst (cons (substr str i 1) lst))
   
9.     (setq i (1+ i))
   
10.   )
    
11.   (reverse lst)
    
12. )
    
13. (defun test2 (str / lst strl i)
    
14.   (setq strl (strlen str))
    
15.   (setq i 1)
    
16.   (while (<= i strl)
    
17.     (setq lst (cons (substr str i 1) lst))
    
18.     (setq i (1+ i))
    
19.   )
    
20.   (mapcar
    
21.     'read
    
22.     (reverse lst)
    
23.   )
    
24. )
    
25.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun test1 (str / lst strl i)<br />   (setq strl (strlen str))<br />   (setq i 1)<br />   (while (<= i strl)<br />     (setq lst (cons (substr str i 1) lst))<br />     (setq i (1+ i))<br />   )<br />   (reverse lst)<br /> )<br /> (defun test2 (str / lst strl i)<br />   (setq strl (strlen str))<br />   (setq i 1)<br />   (while (<= i strl)<br />     (setq lst (cons (substr str i 1) lst))<br />     (setq i (1+ i))<br />   )<br />   (mapcar<br />     'read<br />     (reverse lst)<br />   )<br /> )<br />   [/FONT]<br />

测试:
命令: (setq a "1-2-3-4")
"1-2-3-4"
命令: (test1 a)
("1" "-" "2" "-" "3" "-" "4")

命令: (test2 a)
(1 - 2 - 3 - 4)

Underway

;; (C.) 1996 by Vladimir Nesterovsky<vne...@netvision.net.il>
;; USE THESE FUNCTIONS FOR ANY NON-PROFITABLE PURPOSE WHILE
;; KEEPING THIS NOTICE. NO WARRANTIES ARE GIVEN WHATSOEVER.


;; strtol convert string of chars into list of 1-char strings|;


(defun strtol (s / lst c)
  (repeat (setq c (strlen s))
    (Setq lst (cons (substr s c 1) lst)
   c   (1- c)
    )
  )
  lst
)


Command: (strtol "1-2-3-4")
("1" "-" "2" "-" "3" "-" "4")

fsxm

(mapcar 'chr (vl-string->list str))
就这样一行ok了吧~当然还没有管理中文字节

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;;还是VLISP强!
   
5. (defun test3(str)
   
6.   (mapcar
   
7.     'chr
   
8.     (vl-string->list str)
   
9.   )
   
10. )
    
11. (defun test4(str)
    
12.   (mapcar
    
13.     'read
    
14.     (mapcar
    
15.       'chr
    
16.       (vl-string->list str)
    
17.     )
    
18.   )
    
19. )
    
20.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;还是VLISP强!<br /> (defun test3(str)<br />   (mapcar<br />     'chr<br />     (vl-string->list str)<br />   )<br /> )<br /> (defun test4(str)<br />   (mapcar<br />     'read<br />     (mapcar<br />       'chr<br />       (vl-string->list str)<br />     )<br />   )<br /> )<br />   [/FONT]<br />

carrot1983

我想大家都很厉害。。但是可能跟我想要的理想答案差了一点点点距离。
是我没说清楚。。。
应该是想得到：由符号来做为分界的条件
例如:"10-200-30-40000"把字串变成表("10" "-" "200" "-" "30" "-" "40000").
谢谢楼上几位.
这是根据二楼的高手改的：
[php]
;取出字串中,除分隔符外的字符列成表。
(defun test1 (str / lst strl i _pos len k n a b ab ab_lst)
  (setq strl (strlen str))
  (setq i 1)
  (while (<= i strl)
    (if (= "-" (substr str i 1))
    (setq lst (cons i lst))
    )
    (setq i (1+ i))
  )
  (setq _pos (append '(0) (reverse (append (list (1+ strl)) lst))))
  (setq len (1- (length _pos)))
  (setq k 0)
  (setq n 0)
  (while (< k len)
         (setq a (1+ (nth n _pos)))
         (setq b (- (nth (1+ k) _pos) a))
         (setq ab (substr str a b))
         (setq ab_lst (cons ab ab_lst))
         (setq k (1+ k))
         (setq n k)
  )
  (reverse ab_lst)
)

(test1 "10-20-30-40")
;运行结果:("10" "20" "30" "40")
[/php]

fsxm

这个东东函数库里现成的东东了送上一个简明的：

2. 
   
3. (defun split (str x / xlen n lst)
   
4.   (setq xlen (strlen x))
   
5.   (while (setq n (vl-string-search x str))
   
6.     (setq lst (cons (substr str 1 n) lst))
   
7.     (setq str (substr str (+ 1 xlen n)))
   
8.   )
   
9.   (reverse (cons str lst))
   
10. )
    

<br /> (defun split (str x / xlen n lst)<br />   (setq xlen (strlen x))<br />   (while (setq n (vl-string-search x str))<br />     (setq lst (cons (substr str 1 n) lst))<br />     (setq str (substr str (+ 1 xlen n)))<br />   )<br />   (reverse (cons str lst))<br /> )<br />

(split "10-20-30-40" "-")