求助：有没有函数方便地将字符串分割

自贡黄明儒

有没有函数方便地将字符串分割,比如"名称   重量  数量", 分割后列成表("名称"  "重量 "  " 数量"）
如果有这样的一个函数存在，那么存放数据的文件(用如下函数）就相当简单了

GILES.LEI

highflybird 发表于 2011-4-29 19:12
_$ (setq str "名称   重量  数量")
"名称   重量  数量"
_$ (setq str (STRCAT "(" str ")"))

用这个方法汉字中有小数点会出错这个是read函数的问题，例如：
命令: (READ (A.B))
; 错误: no function definition: A

highflybird

_$ (setq str "名称   重量  数量")
"名称   重量  数量"
_$ (setq str (STRCAT "(" str ")"))
"(名称   重量  数量)"
_$ (setq lst (read str))
(名称 重量 数量)
_$ (setq lst (mapcar 'VL-PRINC-TO-STRING lst))
("名称" "重量" "数量")

自贡黄明儒

;;;谢谢版主highflybird,有了这样的函数，放数据的.text文件就简单多了
;;;highflybird真是高手呀！！！就这么几句就搞定了。
(defun strinSplit (str / lst)
(setq str (STRCAT "(" str ")"))
(setq lst (read str))
(setq lst (mapcar 'VL-PRINC-TO-STRING lst))
)

自贡黄明儒

;;;我原来看过一本书，编程时存放数据如下，又是加括号，又是加引号,麻烦呀！
(        "DTII04C0532"        43.6        )
;;;有了版主highflybird的分割方法,存放数据完全可以如下，就方便多了。
DTII04C0532        43.6

jh1005

类似的函数：

1. ;by fsxm
   
2. ;用分隔符解释字符串成表
   
3. (defun fsxm-Split (string strkey / po strlst xlen)
   
4.   (setq xlen (1+ (strlen strkey)))
   
5.   (while (setq po (vl-string-search strkey string))
   
6.     (setq strlst (cons (substr string 1 po) strlst))
   
7.     (setq string (substr string (+ po xlen)))
   
8.   )
   
9.   (reverse (cons string strlst))
   
10. )

;by fsxm<br /> ;用分隔符解释字符串成表<br /> (defun fsxm-Split (string strkey / po strlst xlen)<br />   (setq xlen (1+ (strlen strkey)))<br />   (while (setq po (vl-string-search strkey string))<br />     (setq strlst (cons (substr string 1 po) strlst))<br />     (setq string (substr string (+ po xlen)))<br />   )<br />   (reverse (cons string strlst))<br /> )

pizg

jh1005 发表于 2011-4-29 23:11
在个类似的函数：

感謝 JH1005 提供源碼
但如果 (fsxm-Split  "123我最帥"  "")
將會出問題!

jh1005

pizg 发表于 2011-5-2 12:28
感謝 JH1005 提供源碼
但如果 (fsxm-Split  "123我最帥"  "")
將會出問題!

另一个版本，明经函数库里的：
http://www.mjtd.com/function/alisp/053.htm

qjchen

Highflybird版主的是好方法:)

以前编写过一个如下的函数，用于 分割字符串的
与http://www.mjtd.com/function/alisp/053.htm
的不同之处，是可以同时处理 多个作为分割的字符，如",;"

2. 
   
3. ;;;;字符串函数
   
4. ;;;;str是准备被处理的字符串，delim是一个字符串集合，其中的每一个字符都会被
   
5. ;;;;当作是分割符号
   
6. ;;;;如 (q:str:delim "25 35 45 ; 55, 66 " " ;")=> ("25" "35" "45" "55," "66")
   
7. ;;;by qjchen@gmail.com
   
8. (defun q:str:delim(str delim / l1 l2)
   
9.   (setq str (vl-string->list str) delim (vl-string->list delim))
   
10.   (while str
    
11.     (if (not (member (car str) delim))
    
12.              (setq l1 (cons (car str) l1))
    
13.              (if l1 (setq l2 (cons (vl-list->string (reverse l1)) l2) l1 nil))
    
14.     )
    
15.     (setq str (cdr str))
    
16.   )
    
17.   (if l1 (setq l2 (cons (vl-list->string (reverse l1)) l2)))
    
18.   (reverse l2)
    
19. )
    

<br /> ;;;;字符串函数<br /> ;;;;str是准备被处理的字符串，delim是一个字符串集合，其中的每一个字符都会被<br /> ;;;;当作是分割符号<br /> ;;;;如 (q:str:delim "25 35 45 ; 55, 66 " " ;")=> ("25" "35" "45" "55," "66")<br /> ;;;by qjchen@gmail.com<br /> (defun q:str:delim(str delim / l1 l2)<br />   (setq str (vl-string->list str) delim (vl-string->list delim))<br />   (while str<br />     (if (not (member (car str) delim)) <br />              (setq l1 (cons (car str) l1))<br />              (if l1 (setq l2 (cons (vl-list->string (reverse l1)) l2) l1 nil))<br />     )<br />     (setq str (cdr str))<br />   )<br />   (if l1 (setq l2 (cons (vl-list->string (reverse l1)) l2)))<br />   (reverse l2)<br /> )<br />

cdma2546

虽然有点晚，但是可以提个方向用正则应该也可以做到

highflybird

这样也很简单： 可以处理各种字符和多个字符作分割串的。

1. 
   
2. (defun Split (String Delimiter / str lst)
   
3.   (setq str (VL-STRING-TRANSLATE  Delimiter " " String))        ;首先替换
   
4.   (setq str (strcat "(" str ")"))                                                  ;然后加括号
   
5.   (setq lst (read str))                                                               ;读
   
6.   (setq lst (mapcar 'VL-PRINC-TO-STRING lst))                        ;转化
   
7. )
   
8. 
   

<br /> (defun Split (String Delimiter / str lst)<br />   (setq str (VL-STRING-TRANSLATE  Delimiter " " String))        ;首先替换<br />   (setq str (strcat "(" str ")"))                                                  ;然后加括号<br />   (setq lst (read str))                                                               ;读<br />   (setq lst (mapcar 'VL-PRINC-TO-STRING lst))                        ;转化<br /> )<br /> <br />