[LISP函数]：LISP编程问题之三

hqd9639

命令: (getenv "ACAD")
"C:\\PROGRAM FILES\\ACAD2000\\support;C:\\PROGRAM
FILES\\ACAD2000\\fonts;C:\\PROGRAM FILES\\ACAD2000\\help;C:\\PROGRAM
FILES\\ACAD2000\\express;C:\\PROGRAM FILES\\ACAD2000\\lisp2000;"

请教如何把上面返回的字符串转换成如下表：
("C:\\PROGRAM FILES\\ACAD2000\\support" "C:\\PROGRAM FILES\\ACAD2000\\fonts"
"C:\\PROGRAM FILES\\ACAD2000\\help" "C:\\PROGRAM FILES\\ACAD2000\\express"
"C:\\PROGRAM FILES\\ACAD2000\\lisp2000")

cy956

去明经通道下载一个lisp函数，可以由字串
转为表，根据某个字符，如这里的";"

e2002

doslib 中有这样一个函数干这个的。

XDSoft

最初由 hqd9639 发布
[B]命令: (getenv "ACAD")
"C:\\PROGRAM FILES\\ACAD2000\\support;C:\\PROGRAM
FILES\\ACAD2000\\fonts;C:\\PROGRAM FILES\\ACAD2000\\help;C:\\PROGRAM
FILES\\ACAD2000\\express;C:\\PROGRAM FILES\\ACAD2000\\... [/B]

看看XDRX_API的字符串处理函数，所有的字符串应用应该都可以满足了。

你可以使用：

118. xdrx_str_tok   

功能：将由给定分割字符串分割的字符串组成表，若是"",忽略

调用格式：(xdrx_str_tok <字符串> <分割字符串>)

返回值：字符串表

示例：(xdrx_str_tok "abc;;def;;efg" ";;")=("abc" "def" "efg")
     (xdrx_str_tok "abc;;def;;efg" ";")=("abc" "def" "efg")
     (xdrx_str_tok "abcddefgddzdf" "d")=("abc" "efg" "z" "f")
     (xdrx_str_tok "abcddefgddzdf" "dd")=("abc" "efg" "z" "f")
     (xdrx_str_tok ",1,2" ",")=("1" "2)  ;前面的""忽略
     (xdrx_str_tok ",1,2,,,3,")=("1" "2" "3") ;;""忽略




XDRX_API关于字符串处理的函数

103. xdrx_str_right

功能：返回字符串指定位置右边的所有字符串(类似 Basic 语言的 RIGHT$ 功能).

调用格式：(xdrx_str_right <字符串> <位置>)

说明：字符串位置从0开始

返回值：字符串

示例：a="建筑设计"
      (xdrx_str_right a 4)="设计"

104. xdrx_str_left

功能：返回字符串指定位置左边的所有字符串(类似 Basic 语言的 LEFT$ 功能).

调用格式：(xdrx_str_right <字符串> <位置>)

说明：字符串位置从0开始

返回值：字符串

示例：a="建筑设计"
      (xdrx_str_left a 4)="建筑"

105. xdrx_str_mid

功能：返回字符串从中间指定位置开始，指定长度的字符串(类似 Basic 语言的MID$)

调用格式：(xdrx_str_mid <字符串> <开始位置> <长度>)

说明：字符串位置从0开始

返回值：字符串

示例：a="建筑设计"
      (xdrx_str_mid a 4 2)="计"

106. xdrx_str_SpanIncluding

功能：从字符串位置0开始查找，提取首次仅仅出现在匹配字符表里的连续的子字符串.

调用格式：(xdrx_str_SpanIncluding <字符串> <匹配字符串>)

返回：字符串，没发现返回""

示例：a="acgwfa"
      (xdrx_str_SpanIncluding a "abc")="ac"
      (xdrx_str_SpanIncluding a "acw")="ac"
      (xdrx_str_SpanIncluding a "cgw")=""

说明：该函数从第一个字符(0)开始找连续的出现在匹配字符串中的字符。不能从中间开始。

107. xdrx_str_SpanExcluding

功能：从字符串位置0开始查找，提取首次仅仅出现在匹配字符表里的连续的子字符串.
Extracts a substring that contains only the characters not in a set.

调用格式：(xdrx_str_SpanExcluding <字符串> <匹配字符串>)

返回：字符串，没发现返回""

说明：使用该函数在字符串中寻找第一个匹配字符(在匹配字符串中)，然后返回该位置前的所有字符串
      如果没有发现，返回空字符串。

示例：a="acg;w,fa"
      (xdrx_str_SpanIncluding a ";,")="acg"
      (xdrx_str_SpanIncluding a ",")="acg;w"

108. xdrx_str_Reverse

功能：将字符串反向

调用格式：(xdrx_reverse <字符串>)

返回值：字符串

示例：(xdrx_reverse "abc")="cba"

109. xdrx_str_subst

功能：将字符串中的第一次找到的旧串用新串代替。识别大小写

调用格式：(xdrx_str_subst <新字符串> <旧字符串> <原字符串>)

返回值：字符串

示例：(xdrx_str_subst "abc" "aa" "baadeaa")="babcdeaa"

说明：仅仅替换一次。即使还有相同的旧串存在。

110. xdrx_str_replace

功能：将字符串中所有找到的旧字符串用新字符串代替。识别大小写

调用格式：(xdrx_str_replace <字符串> <旧字符串><新字符串>)

返回值：字符串

示例：(xdrx_str_subst "baadeaa" "aa" "abc")="babcdeabc"

111. xdrx_str_Find

功能：在给定的字符串中查找子串，识别大小写

调用格式：(xdrx_str_find <字符串> <子串>)

返回值：整数值(子串的位置),起始是0，若没找到，返回NIL

112. xdrx_str_findoneof

功能：在字符串中寻找第一在匹配字符串中的字符，并返回位置。区分大小写

调用格式：(xdrx_str_findoneof <字符串> <匹配字符串>)

返回值：若找到，返回整数值（位置，基于0），否，返回NIL.

示例：(xdrx_str_findoneof "abcde" "xd")=3  ;匹配的字符是d


113. xdrx_str_Insert

功能：在指定位置插入子字符串

调用格式：(xdrx_str_insert <字符串> <位置> <子字符串>)

返回值：字符串

114. xdrx_str_Remove

功能：删除指定位置，给定长度的子串

调用格式：(xdrx_str_remove <字符串> <起始位置> <长度>)

返回值：字符串

115. xdrx_str_TrimRight

功能：删除字符串尾部的出现的所有连续的子字符串，若不给子字符串参数，则
      删除字符串尾部的空格，TAB符号，换行符号

调用格式：(xdrx_str_trimright <字符串> [子字符串])

返回值：字符串

示例：(xdrx_str_trimright "afaf!!!!" "!")="afaf"
      (xdrx_str_trimright "afaf    " " ")="afaf"
      (xdrx_str_trimright "afaf   ")="afaf"   ;不带参数
      (xdrx_str_trimright "afaf  \r\n  ")="afaf"  ;不带参数
      
116. xdrx_str_TrimLeft

功能：删除字符串头部的所有连续出现的子字符串，若不给子字符串参数，则
      删除字符串头部的空格，TAB符号，换行符号。
      
调用格式：(xdrx_str_trimleft <字符串> [子字符串])

返回值：字符串

示例：(xdrx_str_trimleft "\r\n建筑" "\r\n")="建筑"
     (xdrx_str_trimleft "\r\n建筑")="建筑"  ;不带参数
     (xdrx_str_trimleft "ababdddd" "ab")="dddd"

117. xdrx_str_format

功能：将任意个数的字符串，整数，长整数，实数连接成一个字符串

调用格式：(xdrx_str_format <参数1> [参数2]...[参数n])

返回值：字符串

说明：参数N: 可以是字符串，整数，长整数，实数之一
     对于实数，后面跟的整数参数若小于等于5，作为小数点后的位数。
     若不给整数或大于5,则对实数求整。

示例：(xdrx_str_format "abc" 1 2.332 5)="abc125"
     (xdrx_str_format 1 "abc" 2.332 2 "b")="1abc2.33b"
     
118. xdrx_str_tok   

功能：将由给定分割字符串分割的字符串组成表，若是"",忽略

调用格式：(xdrx_str_tok <字符串> <分割字符串>)

返回值：字符串表

示例：(xdrx_str_tok "abc;;def;;efg" ";;")=("abc" "def" "efg")
     (xdrx_str_tok "abc;;def;;efg" ";")=("abc" "def" "efg")
     (xdrx_str_tok "abcddefgddzdf" "d")=("abc" "efg" "z" "f")
     (xdrx_str_tok "abcddefgddzdf" "dd")=("abc" "efg" "z" "f")
     (xdrx_str_tok ",1,2" ",")=("1" "2)  ;前面的""忽略
     (xdrx_str_tok ",1,2,,,3,")=("1" "2" "3") ;;""忽略

119. xdrx_str_split

功能：同116，xdrx_str_tok,不同在于对于""不忽略

示例：(xdrx_str_split ",1,2" ",")=("" "1" "2")

120. xdrx_str_join

功能：对给定的表中的每项插入给定的字符串。返回组成的字符串。

调用格式：(xdrx_str_join <字符串表> <插入串>)

返回值：字符串

示例：(xdrx_str_join '("1" "2") "/")="1/2"
     (xdrx_str_join '(1 2) "/")="1/2"
     
说明：表中的数据类型可以是字符串，整数，实数，对于实数取整。

//build 10405

修正了函数xdrx_srchdim 不能使用DIM_FONT字体的问题。
修正了函数xdrx_begin和xdrx_end配对使用时候，以前的捕捉不能恢复的问题。
增强了函数xdrx_isinside的功能：增加了，判断点是否在一个多边形顶点表集合内，不需要给定实体。

秋枫

来源： http://www.acadx.com/
本人作了一点修改

2. 
   
3. [FONT=courier new]
   
4. ;;;==================================================================
   
5. ;;; (StrParse Str Delimiter)
   
6. ;;;                Parses a delimited string into a list
   
7. ;;;------------------------------------------------------------------
   
8. ;;; Parameters:
   
9. ;;;                Str                        String to parse
   
10. ;;;                Delimiter        Delimiter to search for
    
11. ;;;------------------------------------------------------------------
    
12. ;;;        Returns:
    
13. ;;;                A list strings.
    
14. ;;;                ex:
    
15. ;;;                (setq a "Harp,Guiness,Black and Tan")
    
16. ;;;                (StrParse a ",")
    
17. ;;;                returns:
    
18. ;;;                ("Harp" "Guiness" "Black and Tan")
    
19. ;;;------------------------------------------------------------------
    
20. ;;; See Also: (StringToList)
    
21. ;;;------------------------------------------------------------------
    
22. (defun strParse        (Str Delimiter / SearchStr StringLen return n char)
    
23.         (setq SearchStr Str)
    
24.         (setq StringLen (strlen SearchStr))
    
25.         (setq return '())
    
26. 
    
27.         (while (> StringLen 0)
    
28.                 (setq n 1)
    
29.                 (setq char (substr SearchStr 1 1))
    
30.                 (while (and (/= char Delimiter) (/= char ""))
    
31.                         (setq n (1+ n))
    
32.                         (setq char (substr SearchStr n 1))
    
33.                 ) ;_ end of while
    
34.                 (setq return (cons (substr SearchStr 1 (1- n)) return))
    
35.                 (setq SearchStr (substr SearchStr (1+ n) StringLen))
    
36.                 (setq StringLen (strlen SearchStr))
    
37.         ) ;_ end of while
    
38.         (reverse return)
    
39. ) ;_ end of defun
    
40. 
    
41. ;;;==================================================================
    
42. ;;; (StrUnParse Lst Delimiter)
    
43. ;;;                Parses a list of strings into 1 delemited string
    
44. ;;;------------------------------------------------------------------
    
45. ;;; Parameters:
    
46. ;;;                Str                        List to concantenate
    
47. ;;;                Delimiter        Delimiter to use
    
48. ;;;------------------------------------------------------------------
    
49. ;;;        Returns:
    
50. ;;;                A string.
    
51. ;;;                ex:
    
52. ;;;                (setq a '("Harp" "Guiness" "Black and Tan"))
    
53. ;;;                (StrUnParse a ",")
    
54. ;;;                returns:
    
55. ;;;                "Harp,Guiness,Black and Tan"
    
56. ;;;------------------------------------------------------------------
    
57. (defun StrUnParse (Lst Delimiter / return)
    
58.         (setq return "")
    
59.         (foreach str Lst
    
60.                 (setq return (strcat return Delimiter str))
    
61.         ) ;_ end of foreach
    
62.         (substr return 2)
    
63. ) ;_ end of defun
    
64. [/FONT]

<br /> [FONT=courier new]<br /> ;;;==================================================================<br /> ;;; (StrParse Str Delimiter)<br /> ;;;                Parses a delimited string into a list<br /> ;;;------------------------------------------------------------------<br /> ;;; Parameters:<br /> ;;;                Str                        String to parse<br /> ;;;                Delimiter        Delimiter to search for<br /> ;;;------------------------------------------------------------------<br /> ;;;        Returns:<br /> ;;;                A list strings.<br /> ;;;                ex:<br /> ;;;                (setq a "Harp,Guiness,Black and Tan")<br /> ;;;                (StrParse a ",")<br /> ;;;                returns:<br /> ;;;                ("Harp" "Guiness" "Black and Tan")<br /> ;;;------------------------------------------------------------------<br /> ;;; See Also: (StringToList)<br /> ;;;------------------------------------------------------------------<br /> (defun strParse        (Str Delimiter / SearchStr StringLen return n char)<br />         (setq SearchStr Str)<br />         (setq StringLen (strlen SearchStr))<br />         (setq return '())<br /> <br />         (while (> StringLen 0)<br />                 (setq n 1)<br />                 (setq char (substr SearchStr 1 1))<br />                 (while (and (/= char Delimiter) (/= char ""))<br />                         (setq n (1+ n))<br />                         (setq char (substr SearchStr n 1))<br />                 ) ;_ end of while<br />                 (setq return (cons (substr SearchStr 1 (1- n)) return))<br />                 (setq SearchStr (substr SearchStr (1+ n) StringLen))<br />                 (setq StringLen (strlen SearchStr))<br />         ) ;_ end of while<br />         (reverse return)<br /> ) ;_ end of defun<br /> <br /> ;;;==================================================================<br /> ;;; (StrUnParse Lst Delimiter)<br /> ;;;                Parses a list of strings into 1 delemited string<br /> ;;;------------------------------------------------------------------<br /> ;;; Parameters:<br /> ;;;                Str                        List to concantenate<br /> ;;;                Delimiter        Delimiter to use<br /> ;;;------------------------------------------------------------------<br /> ;;;        Returns:<br /> ;;;                A string.<br /> ;;;                ex:<br /> ;;;                (setq a '("Harp" "Guiness" "Black and Tan"))<br /> ;;;                (StrUnParse a ",")<br /> ;;;                returns:<br /> ;;;                "Harp,Guiness,Black and Tan"<br /> ;;;------------------------------------------------------------------<br /> (defun StrUnParse (Lst Delimiter / return)<br />         (setq return "")<br />         (foreach str Lst<br />                 (setq return (strcat return Delimiter str))<br />         ) ;_ end of foreach<br />         (substr return 2)<br /> ) ;_ end of defun<br /> [/FONT]

另外，我给出addsupportpath, RemoveSupportPath的例子。这段
程序用在了晓东工具箱的安装代码中。

2. 
   
3. [FONT=courier new]
   
4. (defun addSupportPath (dir / tmp lst)
   
5.   (setq tmp "")
   
6.   (if
   
7.     (not
   
8.       (member (strcase dir)
   
9.               (setq lst (mapcar 'strcase (strParse (getenv "ACAD") ";")))
   
10.       )
    
11.     )
    
12.      (progn
    
13.        (setq tmp (StrUnParse (append lst (list dir)) ";"))
    
14.        (setenv "ACAD" tmp)
    
15.      )
    
16.   )
    
17.   (princ)
    
18. )
    
19. 
    
20. 
    
21. 
    
22. (defun removeSupportPath (dir / tmp)
    
23.   (setq tmp "")
    
24.   (mapcar '(lambda (x)
    
25.              (if (/= (strcase x) (strcase dir))
    
26.                (setq tmp (strcat tmp x ";"))
    
27.              )
    
28.            )
    
29.           (StrParse (getenv "ACAD") ";")
    
30.   )
    
31.   (setenv "ACAD" (substr tmp 1 (1- (strlen tmp))))
    
32.   (princ)
    
33. )
    
34. 
    
35. [/FONT]

<br /> [FONT=courier new]<br /> (defun addSupportPath (dir / tmp lst)<br />   (setq tmp "")<br />   (if<br />     (not<br />       (member (strcase dir)<br />               (setq lst (mapcar 'strcase (strParse (getenv "ACAD") ";")))<br />       )<br />     )<br />      (progn<br />        (setq tmp (StrUnParse (append lst (list dir)) ";"))<br />        (setenv "ACAD" tmp)<br />      )<br />   )<br />   (princ)<br /> )<br /> <br /> <br /> <br /> (defun removeSupportPath (dir / tmp)<br />   (setq tmp "")<br />   (mapcar '(lambda (x)<br />              (if (/= (strcase x) (strcase dir))<br />                (setq tmp (strcat tmp x ";"))<br />              )<br />            )<br />           (StrParse (getenv "ACAD") ";")<br />   )<br />   (setenv "ACAD" (substr tmp 1 (1- (strlen tmp))))<br />   (princ)<br /> )<br /> <br /> [/FONT]

hqd9639

受益非浅，多谢各位大侠指点。特别感谢秋枫斑主的热心帮助

hqd9639

秋枫的自定义函数addSupportPath在R14使用会出错，经查是(setenv "ACAD" tmp)的问题,能修改一下吗? R14的HELP里怎么没有setenv

wolfkingforever

或许那是邱枫自己写的函数，没有给你代码。
你把它改成

1. setvar

复制代码