[求助]分割字符串

carrot1983

(defun c:tt ()
  (if (setq x (vlax-create-object "MSComDlg.CommonDialog"))
    (progn (vlax-put-property x "DialogTitle" "选择图形文件")
    (vlax-put-property x "Filename" "*.dwg")
    (vlax-put-property x "Filter" "*.dwg")
    (vlax-put-property x "MaxFileSize" 10000)
    ;; in lisp unbedingt notwendig, sonst kommt ne fehlermeldung von wegen zu wenig speicher
    (vlax-put-property x "Flags" 512) ;_ mehrer Dateien+explorer-design
    (vlax-put-property x "Action" 1) ;_ showopen-dialog 
    (setq str (vlax-get-property x "Filename"))
    )
  )
  (if (/= str "*.dwg")
    str
    nil
  )
  str
)

返回如："F:\\2008\\下湖\\ 1.dwg 2.dwg 3.dwg"

怎么样漂亮的转成
'("F:\\2008\\下湖\\1.dwg"
"F:\\2008\\下湖\\2.dwg"
"F:\\2008\\下湖\\3.dwg")

carrot1983

(setq str "F:\\2008\\下湖\\ 1.dwg 2.dwg 3.dwg" files nil)
(setq path (strcat (vl-filename-directory  str) "\\"))
(setq bases (substr str (+ (strlen path) 2) (strlen str)))
(while (setq n (vl-string-position (ascii " ") bases))
  (setq file (substr bases 1 n))
  (setq bases (substr bases (+ n 2) (strlen bases)))
  (setq files (cons file files))
)
(setq file (substr bases 1 n))
(setq files (cons file files))
(reverse files)

返回：("1.dwg" "2.dwg" "3.dwg")

哪位来个漂亮一点的...也好收藏成通用函数

byghbcx

(defun str2lst (str / i)
   (while (setq i (vl-string-search " " str (if i (+ 2 i) 0)))
     (setq str (vl-string-subst "\"\"" " " str i))
   )(read (strcat "(\"" str "\")"))
)

carrot1983

byghbcx

先谢谢。。。你的代码很漂亮，收藏先。

carrot1983

这个是我找到的分割字符串的代码，跟大家分享

2. ;;;(setq str "F:\\2008\\下湖\\ 1.dwg 2.dwg 3.dwg")
3. ;;;(cjw-string-split str " ")
4. ;;;("F:\\2008\\下湖\" "1.dwg" "2.dwg" "3.dwg")
5. (defun cjw-string-split (str
6.        delimiter
7.        /
8.        lenStr
9.        lenDelimiter
10.        start@
11.        lstStr
12.        done
13.        find@
14.       )
15.   (setq lenStr      (strlen str)
16. lenDelimiter (strlen delimiter)
17. start@      0
18. lstStr      nil
19. done      nil
20.   )
21.   (while (and (not done) (<= (1+ start@) lenStr))
22.     (if (setq find@ (vl-string-search delimiter str start@))
23.       (setq lstStr (cons
24.        (if (zerop find@)
25.          ""
26.          (substr str (1+ start@) (- find@ start@))
27.        )
28.        lstStr
29.      )
30.      start@ (+ find@ lenDelimiter)
31.       )
32.       (setq done   t
33.      lstStr (cons (substr str (1+ start@)) lstStr)
34.       )
35.     )
36.   )
37.   (if (= start@ lenStr)
38.     (setq lstStr (cons "" lstStr))
39.   )
40.   (reverse lstStr)
41. )

;;;(setq str "F:\\2008\\下湖\\ 1.dwg 2.dwg 3.dwg") ;;;(cjw-string-split str " ") ;;;("F:\\2008\\下湖\" "1.dwg" "2.dwg" "3.dwg") (defun cjw-string-split (str        delimiter        /        lenStr        lenDelimiter        start@        lstStr        done        find@       )   (setq lenStr      (strlen str) lenDelimiter (strlen delimiter) start@      0 lstStr      nil done      nil   )   (while (and (not done) (<= (1+ start@) lenStr))     (if (setq find@ (vl-string-search delimiter str start@))       (setq lstStr (cons        (if (zerop find@)          ""          (substr str (1+ start@) (- find@ start@))        )        lstStr      )      start@ (+ find@ lenDelimiter)       )       (setq done   t      lstStr (cons (substr str (1+ start@)) lstStr)       )     )   )   (if (= start@ lenStr)     (setq lstStr (cons "" lstStr))   )   (reverse lstStr) )

freeok

byghbcx 发表于 2008-8-13 17:28
(defun
        str2lst
        (str / i)&nbsp;&nbsp; (while

大哥，我想请问下这个函数我要怎么调用到分割带空格字符串程序里呢？谢谢！