将具有分隔符的字符串解析为列表 的问题

gufeng

(StrParse Str Delimiter)

  说明:

将具有分隔符的字符串解析为列表

  函数内容:

(defun strParse (Str Delimiter / SearchStr StringLen return n char)
 (setq SearchStr Str)
 (setq StringLen (strlen SearchStr))
 (setq return '())


 (while (> StringLen 0)
  (setq n 1)
  (setq char (substr SearchStr 1 1))
  (while (and (/= char Delimiter) (/= char ""))
   (setq n (1+ n))
   (setq char (substr SearchStr n 1))
  ) ;_ end of while
  (setq return (cons (substr SearchStr 1 (1- n)) return))
  (setq SearchStr (substr SearchStr (1+ n) StringLen))
  (setq StringLen (strlen SearchStr))
 ) ;_ end of while
 (reverse return)
) ;_ end of defun

  参数:

Str:要解析的字符串
Delimiter :要搜索的分隔符

  返回值:

一个字符串列表

  示例:

(setq a "Harp,Guiness,Black and Tan")
(StrParse a ",")
返回:
("Harp" "Guiness" "Black and Tan")

上面的函数是否对于顿号("、")不起作用的 谢谢

(setq a "Harp、Guiness、Black and Tan")

 (StrParse a "、")

返回还是

("Harp、Guiness、Black and Tan")

jxlsp

因为"、"是全角字,而比较时是半角,所以不成功.

gufeng

、 这个占了两个字符 晕 怪不得,一下忘了

gufeng

改了一下好像可以了  没时间自己再想了 将就用着先  嘿嘿

(defun C:aab ( / SearchStr StringLen return n char)
  (setq Str "aaate、btae12、c45、d313")
  (setq Delimiter "、")
 (setq SearchStr Str)
 (setq StringLen (strlen SearchStr))
 (setq return '())
 (while (> StringLen 0)
  (setq n 1)
  (setq char (substr SearchStr 1 2))
  (while (and (/= char Delimiter) (/= char ""))
   (setq n (1+ n))
   (setq char (substr SearchStr n 2))
  ) ;_ end of while
  (setq return (cons (substr SearchStr 1 (1- n)) return))
  (setq SearchStr (substr SearchStr (+ n 2) StringLen))
  (setq StringLen (strlen SearchStr))
 ) ;_ end of while
 (reverse return)
) ;_ end of defun

TANER

2. (defun txt-str-split (str x / lst n str-n xlen)
3.   (setq xlen (strlen x))
4.   (while (setq n (vl-string-search x str))
5.     (setq str-n (substr str 1 n))
6.     (if (/= str-n "")
7.       (setq lst (cons str-n lst))
8.     )
9.     (setq str (substr str (+ 1 xlen n)))
10.   )
11.   (if (/= str "")
12.     (setq lst (cons str lst))
13.   )
14.   (reverse lst)
15. )
16. ;;; 定界符分割文字成表,定界符去掉,定界符可以是多字符
17. (defun t2-str-split (str x / lst n str-n xlen)
18.   (setq xlen (strlen x))
19.   (while (setq n (vl-string-search x str))
20.     (setq str-n (substr str 1 (+ n xlen)))
21.     (if (/= str-n "")
22.       (setq lst (cons str-n lst))
23.     )
24.     (setq str (substr str (+ 1 xlen n)))
25.   )
26.   (if (/= str "")
27.     (setq lst (cons str lst))
28.   )
29.   (reverse lst)
30. )
31. ;;; 定界符分割文字成表,定界符不去掉,定界符可以是多字符

(defun txt-str-split (str x / lst n str-n xlen)   (setq xlen (strlen x))   (while (setq n (vl-string-search x str))     (setq str-n (substr str 1 n))     (if (/= str-n "")       (setq lst (cons str-n lst))     )     (setq str (substr str (+ 1 xlen n)))   )   (if (/= str "")     (setq lst (cons str lst))   )   (reverse lst) ) ;;; 定界符分割文字成表,定界符去掉,定界符可以是多字符 (defun t2-str-split (str x / lst n str-n xlen)   (setq xlen (strlen x))   (while (setq n (vl-string-search x str))     (setq str-n (substr str 1 (+ n xlen)))     (if (/= str-n "")       (setq lst (cons str-n lst))     )     (setq str (substr str (+ 1 xlen n)))   )   (if (/= str "")     (setq lst (cons str lst))   )   (reverse lst) ) ;;; 定界符分割文字成表,定界符不去掉,定界符可以是多字符