[求助]：提取文字中的数字

qiaqiadeng

所有的数字都被抽出来放在一个表里面了
(defun dyq-get-number (str / num i numlist key1 key2 stri) ;获得文字中的数字
  (setq num (strlen str))
  (setq i 1)
  (setq numlist '())
  (setq        key1 0
        key2 0
  )
  (repeat num
    (setq stri (ascii (substr str i 1))) ;转成ascii码
    (if        (and (= key2 0)
             (or (= stri 46) (and (>= stri 48) (<= stri 57)))
        ) ;如果是数字,并且是第一次碰到
      (setq key1 i ;起始
            key2 i
      )
    )
    (if        (and (> key2 0)
             (or (= stri 46) (and (>= stri 48) (<= stri 57)))
        ) ;如果是数字,并且不是第一次碰到
      (setq key2 i) ;起始
    )
    (if        (and (> key2 0)
             (and (/= stri 46) (or (< stri 48) (> stri 57)))
        ) ;如果不是数字了
      (setq numlist (cons (atof (substr str key1 (- key2 key1 -1))) numlist) ;将数字存起来
            key2    0
      ) ;起始
    )
    (setq i (+ i 1))
  )
  (if (> key2 0)
    (setq numlist (cons (atof (substr str key1 (- key2 key1 -1))) numlist))
  ) ;将数字存起来
  (reverse numlist)
)

haveno

也不是太明白哦

taner

看看是不是你所要

2. 
   
3.   [FONT=courier new]
   
4. (defun txt5-nump-nump (str / nump subs)
   
5.   (setq subs (substr str 2))
   
6.   (cond
   
7.     ((and
   
8.        (= (substr str 1 1) ".")
   
9.        (not (vl-string-position (ascii ".") subs))
   
10.        (not (vl-string-position (ascii "+") subs))
    
11.        (not (vl-string-position (ascii "-") subs))
    
12.      )
    
13.       (setq nump (numberp (read subs)))
    
14.     )
    
15.     ((and
    
16.        (or
    
17.          (= (substr str 1 1) "+")
    
18.          (= (substr str 1 1) "-")
    
19.        )
    
20.        (= (substr str 2 1) ".")
    
21.        (not (vl-string-position (ascii ".") (substr str 3)))
    
22.      )
    
23.       (setq nump (numberp (read (substr str 3))))
    
24.     )
    
25.     ((/= (vl-string-position (ascii ".") str) (vl-string-position
    
26.                                                                   (ascii ".")
    
27.                                                                   str nil t
    
28.                                               )
    
29.      )
    
30.       (setq nump nil)
    
31.     )
    
32.     ((or
    
33.        (vl-string-position (ascii "+") subs)
    
34.        (vl-string-position (ascii "-") subs)
    
35.      )
    
36.       (setq nump nil)
    
37.     )
    
38.     (t
    
39.       (setq nump (numberp (read str)))
    
40.     )
    
41.   )
    
42.   nump
    
43. )
    
44.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun txt5-nump-nump (str / nump subs)<br />   (setq subs (substr str 2))<br />   (cond<br />     ((and<br />        (= (substr str 1 1) ".")<br />        (not (vl-string-position (ascii ".") subs))<br />        (not (vl-string-position (ascii "+") subs))<br />        (not (vl-string-position (ascii "-") subs))<br />      )<br />       (setq nump (numberp (read subs)))<br />     )<br />     ((and<br />        (or<br />          (= (substr str 1 1) "+")<br />          (= (substr str 1 1) "-")<br />        )<br />        (= (substr str 2 1) ".")<br />        (not (vl-string-position (ascii ".") (substr str 3)))<br />      )<br />       (setq nump (numberp (read (substr str 3))))<br />     )<br />     ((/= (vl-string-position (ascii ".") str) (vl-string-position<br />                                                                   (ascii ".")<br />                                                                   str nil t<br />                                               )<br />      )<br />       (setq nump nil)<br />     )<br />     ((or<br />        (vl-string-position (ascii "+") subs)<br />        (vl-string-position (ascii "-") subs)<br />      )<br />       (setq nump nil)<br />     )<br />     (t<br />       (setq nump (numberp (read str)))<br />     )<br />   )<br />   nump<br /> )<br />   [/FONT]<br />

stegw

这个估计比较难吧

雨箭风刀

·提取字符串内数字1:
(setq str "a-.3A0.0+9.5d-1.3 1.2e-58d4d-15.1d5.6asf-1.2"
       pat "[+|-]?\\d*\\.?\\d+(e[+|-]*\\d+)*")
(xxexp  pat str "")
;;返回:("-.3" "0.0" "+9.5" "-1.3" "1.2e-58" "4" "-15.1" "5.6" "-1.2")
;;下面再验证是否是数字.
   (mapcar 'distof (xxexp  pat str ""))
   ;;返回:(-0.3 0.0 9.5 -1.3 1.2e-058 4.0 -15.1 5.6 -1.2)

函数下载:   
http://dreamskylxx.ys168.com/

2. 
   
3. 在lisp中应用正则表达式
   
4. [序]
   
5. 
   
6. 
   
7.    长久以来，文本的编辑一直是lisp编程的重点、难点之一，有不少活跃在xdcad和明经通道论坛的高手为此写了不少有代表性的文字处理工具，比较知名的如：   。而我自己也写过不少这方面的程序，多数没有发表，少数零星地发布在以上两个论坛。但由于lisp对文本编辑(*注)的支持函数不够丰富，而实际工作中遇到的情况又多种多样，使得诸多lisp程序对文本编辑的深度和灵活性上还有很多不足之处，不免遗憾。
   
8.    为此，我一直以来寻求更好的方法，最终只有一个答案：正则表达式。正则表达式对文本编辑很强，有多强？看看vb或vbs参考就知道，也可上网一搜。但是，也许本人孤陋寡闻(或是有的高手潜水潜得很深)，在网上一直没有见过在lisp中比较充分地应用正则表达式的程序。其实，我很早就想将正则表达式移植到lisp里面来，近几日一鼓作气，终有小成。谨奉献两个函数：(xxexp)(xxexpr)，这两个函数提供了正则表达式的接口，使在lisp中得以应用其强大的功能成为可能。                                 
   
9.                                                         ―――――梁雄啸.2007.7
   
10.                                                       
    
11. [*注:“文本”在本文均指对文本字符串内容，非指文本实体(0 . “*TEXT”)]
    
12. 
    
13. 函数下载:   
    
14. [url]http://dreamskylxx.ys168.com/[/url]
    
15. 
    
16. 
    
17. [函数介绍]
    
18. 
    
19. 
    
20. 函数：(xxexp pat str key)
    
21. 功能 对字符串进行正则表达式匹配测试.
    
22. 参数: pat = 正则表达式模式 ,对应vbs正则表达式的模式(expression)。说明: \ 号要用　\\ 替代.
    
23.      str = 字符串
    
24.      key = "i" "g" "m" , "i"不区分大小写（Ignorecase）,"g"全局匹配（Global）.”m”多行模式（Multiline），以上几个关键字可以组合使用，或用 ””.
    
25. 返回: 返回匹配的字符列表，或无一匹配返回nil
    
26. 
    
27. 
    
28. 函数：(xxexpr pat str nstr key)
    
29. 功能 对字符串进行正则表达式替换.
    
30. 参数: pat = 正则表达式模式 ,对应vbs正则表达式的模式(expression)。说明: \ 号要用　\\ 替代.
    
31.      str = 被替换字符串
    
32.      nstr = 替换字符串
    
33.      key = "i" "g" "m" , "i"不区分大小写（Ignorecase）,"g"全局匹配（Global）.”m”多行模式（Multiline），以上几个关键字可以组合使用，或用 ””.
    
34. 返回 :返回替换后的字符串.
    
35. 
    
36. 
    
37. [正则表达式模式]
    
38. 
    
39. 
    
40. 　正则表达式核心就是其模式(expression)，此部分资料可从网上或vb，vbs参考中得到。以下是vbs参考中关于模式的描述列表（本文略）。在xxexp,xxexpr函数应用中,注意”\”符要按”\\”来写。
    
41. 
    
42. [实战]
    
43. 
    
44. 
    
45.    也许只有通过一些实例，大家才真正知道正则表达式的强大。有的功能是仅仅用lisp提供的函数很难或无法做到的，而在这里，可一一化解。
    
46.    
    
47. 1. 汉字和非汉字提取
    
48. 
    
49.    先来点简单的，好让大家进入状态，虽然简单，但是在论坛上是经常被问到的问题：
    
50.    
    
51. 
    
52. ·;;提取汉字及空格。
    
53.     ;每字分断,汉字按1个字.
    
54.      (xxexp "[^!-~]" "a 测π啊d4少1数★M=3;is=正,2确" "")
    
55.     ;返回: (" " "测" "π" "啊" "少" "数" "★" "正" "确")
    
56.     ;连字不分断.
    
57.     (xxexp "[^!-~]+" "a 测π啊d4少1数★M=3;is=正,2确" "")
    
58.      ;返回:(" 测π啊" "少" "数★" "正" "确")
    
59.    
    
60. ·;;提取汉字
    
61.     (xxexp "[^ -~]" "a 测π啊d4少1数★M=3;is=正,2确" "")
    
62.     (xxexp "[^\\000-\\377]" "a 测π啊d4少1数★M=3;is=正,2确" "")
    
63.     ;返回: ("测" "π" "啊" "少" "数" "★" "正" "确")
    
64.     (xxexp "[\\u0C04-\\uFFFF]" "a 测π啊d4少1数★M=3;is=正,2确" "")
    
65.     ;;返回: ("测" "啊" "少" "数" "★" "正" "确") ;;（注: 查到16进制汉字从\\u0C04开始,这个方法应该是最准确的.）
    
66.     (xxexp "[^ -~]+" "a 测π啊d4少1数★M=3;is=正,2确" "")
    
67.     (xxexp "[^\\000-\\377]+" "a 测π啊d4少1数★M=3;is=正,2确" "")
    
68.      ;返回:("测π啊" "少" "数★" "正" "确")
    
69. 
    
70. ·;;提取非汉字
    
71. (xxexp "[ -~]" "a 测π啊d4少1数★M=3;is=正,2确" "")
    
72. ;返回:("a" " " "d" "4" "1" "M" "=" "3" ";" "i" "s" "=" "," "2")
    
73. (xxexp "[\\000-\\377]+" "a 测π啊d4少1数★M=3;is=正,2确" "")
    
74. ;返回: ("a " "d4" "1" "M=3;is=" ",2")
    
75. 
    
76. ·;;提取字母及数字
    
77. (xxexp "\\w" "a 测π啊d4少1数★M=3;is=正,2确" "")
    
78. ;返回:("a" "d" "4" "1" "M" "3" "i" "s" "2")
    
79. 
    
80. ·;;提取非字母及非数字
    
81. (xxexp "[^\\w]" "a 测π啊d4少1数★M=3;is=正,2确" "")
    
82.   ;返回:(" " "测" "π" "啊" "少" "数" "★" "=" ";" "=" "正" "," "确")
    
83. (xxexp "[^\\w]+" "a 测π啊d4少1数★M=3;is=正,2确" "")
    
84. ;返回:(" 测π啊" "少" "数★" "=" ";" "=正," "确")
    
85. ·;; 提取连续两个相同的字符
    
86.     (SETQ S (xxexp "(.)\\1" "aa看看 测试"M==33";is=,,2" ""))
    
87.     ;返回: ("aa" "看看" "==" "33" ",,")
    
88. 
    
89. 2. 字符串处理
    
90. 
    
91. 　看了上面的实例，大家也许有点兴趣了，好，接着来。
    
92. 　
    
93. 
    
94. 
    
95. ·;; 提取由分界符界定的字符，呵呵，这个是论坛上被编写的比较多的程序之一.
    
96. (xxexp "[^ ;,]+" "a 测试M=3;is=,2" "") ;;返回: ("a" "测试M=3" "is=" "2")
    
97. 是不是很容易? 但这只不过是牛刀小试，现在才刚刚开始。
    
98. 
    
99. ·拆分字符串，1个汉字算1个.
    
100. (xxexp "."  "少1 ,至.2e-5a‖〉∑∵∩∪チネヒжъμㄜ啊d4少1数" "")
     
101. ;返回: ("少" "1" " " "," "至" "." "2" "e" "-" "5" "a" "‖" "〉" "∑" "∵" "∩" "∪" "チ" "ネ" "ヒ" "ж" "ъ" "μ" "ㄜ" "啊" "d" "4" "少" "1" "数")
     
102. 
     
103. ·按每两个字符进行分断。1个中文按1个计算。
     
104. (xxexp ".{2}" "aa 测试M==33;is=,,2" "")
     
105. ;;返回: ("aa" " 测" "试M" "==" "33" ";i" "s=" ",,")
     
106. 
     
107. ·;;在两个连续字符处分断.（包含指定的分界符，本例指"｜"）
     
108. (setq s1 "aa 测看看试M==33;is=,,2")
     
109. (xxexp "[^｜]+" (xxexpr "(.)\\1" s1 "｜" "") "")
     
110. ;返回: (" 测" "试M" ";is=" "2")
     
111. 
     
112. ·倒排文字（按字倒排，支持中文）
     
113. (setq str "The quick brown 啊 fox jumped 至 over ∑ the lazy dog.")
     
114. (apply 'strcat (reverse(xxexp "." str "")))
     
115. ;返回: ".god yzal eht ∑ revo 至 depmuj xof 啊 nworb kciuq ehT"
     
116.   (apply 'strcat (reverse(xxexp "." "i开头，跟至少1个s" "")))
     
117.   ;返回:  "s个1少至跟，头开i"
     
118. 
     
119. ·简单替换，（但是用lisp写也不见得简单:) ）
     
120.    (setq str "IS11 is01 ISa1 iss11 id1 isss1 is1 IS1 ISa")
     
121. 2.1 替换 is 为*，不分大小写
     
122. (xxexpr "is" str "*" "") ;-> "*11 *01 *a1 *s11 id1 *ss1 *1 *1 *a"
     
123. 2.2 替换 i开头,跟s(至少1个)的字符 为*
     
124. (xxexpr "is+" str "*" "") ;-> "*11 *01 *a1 *11 id1 *1 *1 *1 *a"
     
125. 2.3 替换 非数字和非空格 为*
     
126. (xxexpr "[^0-9 ]" str "*" "") ;->"**11 **01 ***1 ***11 **1 ****1 **1 **1 ***"
     
127. 2.4 替换 i开头，至少跟2个s的字符为*
     
128. (xxexpr "Is{2,}" str "*" "") ;-> "IS11 is01 ISa1 *11 id1 *1 is1 IS1 ISa"
     
129. 2.5 替换 i开头，跟1个非换行符的字符为*
     
130. (xxexpr "I." str "*" "") ;-> "*11 *01 *a1 *s11 *1 *ss1 *1 *1 *a"
     
131. 2.6 替换 i开头，跟至少1个s,+至少1个数字的字符　为*
     
132. (xxexpr "is{1,}\\d+" str "*" "")　;－> "* * ISa1 * id1 * * * ISa"
     
133. 
     
134. 下面的加点难度:
     
135. 
     
136. ·.倒排文字(按空格划分)
     
137. (setq str "The quick brown 啊 fox jumped 至于 over ∑ the lazy dog")
     
138. (setq lst1 (xxexp "[^ |.]+" str ""))
     
139.   ;;返回: ("The" "quick" "brown" "啊" "fox" "jumped" "至于" "over" "∑" "the" "lazy" "dog.")
     
140. (setq lst2 (xxexp " +" str ""))
     
141. ;;返回: (" " " " " " " " " " " " " " " " " " " " " " ".")
     
142. (apply 'strcat (mapcar 'strcat (reverse lst1)(reverse lst2)))
     
143. ;;返回: "dog lazy the ∑ over 至于 jumped fox 啊 brown quick "
     
144. 
     
145. ·.字符倒置
     
146. 　;; 将符合匹配(词1+空格+词2)中词1和词2对调
     
147. (xxexpr "(\\S+)(\\s+)(\\S+)" "brown  啊 fox a" "$3$2$1" "") ;;返回:"啊  brown a fox"
     
148. ;;将 = 号左右两边的字符对调.
     
149. (xxexpr "(.)([-|=])(.)" "a-b=1 : c=d : a" "$3$2$1" "") ;;返回: "b-a=1 : d=c : a"
     
150. 
     
151. 3. 有条件的文本替换:
     
152. 
     
153. 再加点难度。
     
154. 
     
155. ·; "*(*)" 替换为 "*[*]"，论坛上只见过lzh写过这样一个程序，是用vba写的。
     
156. (xxexpr "(\\()([^\\(\\)]*)(\\))" "a(顶-啊)5()" "[$2]" "")
     
157. ;返回: "a[顶-啊]5[]"
     
158. 
     
159. ·; A*B*替换为B*C*
     
160. (xxexpr "(A{1})([^ABab]*)(B{1})" "A48.B小4Axa8b5" "B$2C" "") ;替换所有匹配
     
161. ;返回: "B48.C小4AxB8C5"
     
162. (xxexpr "(A{1})([^ABab]*)(B{1})" "A48.B小4Axa8b5" "B$2C" "g");替换第一个匹配的字符串
     
163. ;返回:"B48.C小4Axa8b5"
     
164. 
     
165. ·;将符合 "*写程序*Yes*" 的字符串替换为 "*测*试*" .这个是不等式替换，用vlisp写起来容易么？
     
166. (xxexpr "(.*)写程序(.*)Yes(.*)" "33写程序74=YesYb" "$1测$2试$3" "")
     
167. ;返回:"33测74=试Yb"
     
168. 　再来几个对比测试，什么功能？有点考脑力啊：）
     
169. (xxexpr "(.*)写程序(.*)Yes(.*)" "33写程序74=YesYb" "$1测$2$3" "")
     
170.   ;->"33测74=Yb"　　           ；将”写程序”替换为”测”,去掉”Yes”
     
171. (xxexpr "(.*)写程序(.*)Yes(.*)" "33写程序74=YesYb" "$1测$3" "")
     
172. 　;->"33测Yb"                 ; 去掉”写程序””Yes”及其之间的字符。
     
173. (xxexpr "(.*)写程序(.*)Yes(.*)" "33写程序74=YesYb" "$2" "")
     
174. ;->"74="　                       ; 仅保留”写程序*Yes”之间的*部分.
     
175. (xxexpr "(.*)(写程序)(.*)(Yes)(.*)" "33写程序74=YesYb" "$1$4$2$3$5" "")
     
176. ;->"33Yes写程序74=Yb"           ;将各部分随意倒置.
     
177. (xxexpr "(.*)写(程序)(.*)(Yes)(.*)" "33写程序74=YesYb" "$1看$2$3$5,$4!" "")
     
178. ;->"33看程序74=Yb,Yes!"   ; 将"*写程序*Yes*"中的”写”改为看,”Yes”放到最后并加标点
     
179. 
     
180. · 替换字符串.将=号后的10~99的数字字符改为*
     
181. (xxexpr "(.=)(\\d{2})([^\\d]+)" "M=56变量" "$1*$3" "") ;;返回:"M=*变量"
     
182. (xxexpr "(.=)(\\d{2})([^\\d]+)" "M=6变量" "$1*$3" "") ;;返回:"M=6变量"
     
183. (xxexpr "(.=)(\\d{2})([^\\d]+)" "M=556变量" "$1*$3" "") ;;返回:"M=556变量"
     
184. 
     
185. ·;; 更改字符中包含 M=数字 的字符，将M改为X
     
186. (xxexpr "(M)(=)(\\d+)" "2至M=56变量" "X$2$3" "") ;;返回:"2至X=56变量"
     
187. 
     
188. ·;; 将字符中a*d分别改为M*N
     
189. (xxexpr "(a)(.+)(d)" "测试a=c,d=e,a=3,d=1" "M$2N" "")
     
190. ;;返回: "测试M=c,d=e,a=3,N=1" （全字按顺序匹配）
     
191. (xxexpr "(a)([^a|d]+)(d)" "测试a=c,d=e,a=3,d=1" "M$2N" "")
     
192. ;;返回:"测试M=c,N=e,M=3,N=1"  （所有按顺序匹配）.
     
193. 
     
194. ·将字符 "我们*测试" 中的* 改为"不"字
     
195. (xxexpr "(.*今天)([^测试]*)(测试?.*)" "今天我们一起测试这个函数，你来测试" "$1不$3" "")
     
196. ; ;返回:"今天不测试这个函数，你来测试";;（仅匹配第一次遇到的"测试"二字）
     
197.   (xxexpr "(.*今天)(.*)(测试.*)" "今天我们一起测试这个函数，你来测试" "$1不$3" "")
     
198. ;;返回:"今天不测试" （;; 匹配最外层的"测试"二字）
     
199. 
     
200. 
     
201. 
     
202. 是不是越来越晕了？还有呢,下面是两个测试，是有一定实践意义的更改文本内数字的程序。
     
203. 
     
204. ·;; 更改字符中包含 M=数字 的字符，将数字加1.5。可能还有更好更有效的写法。
     
205. (defun c:test1()
     
206. (setq str "2至M=56.5变M=3量M=.22"
     
207.        pat "(M)(=)(\\d{0,}\\.{0,1}\\d{1,})")
     
208.   (setq lst (xxexp pat str ""))
     
209.   ;; 此步返回: ("M=56.5" "M=3" "M=.22")
     
210.   (setq lst2(mapcar '(lambda(x)(strcat "M=" (rtos(+ 1.5(distof(vl-string-subst "" "M=" x)))2 2)))lst))
     
211.   ;此步返回:("M=58.00" "M=4.50" "M=1.72")
     
212.   (mapcar '(lambda(x y)(setq str (xxexpr x str y ""))) lst lst2)
     
213.   str)
     
214. ;;最后返回: "2至M=58.00变M=4.50量M=1.72"
     
215. 
     
216. · ;; 将a=或d=开头的数字加一个数(1.75).。另外一种写法。
     
217. (defun c:test2()
     
218.     (setq str "测试a=2,d=3结果f=2,aa-3"
     
219.        add 1.75
     
220.        jd 2) ;精度
     
221.     (setq str2 (xxexpr "([a|d])(=)(\\d+)" str (strcat"$1$2(+ " (rtos add 2 jd) " $3)") ""))
     
222.     ;;返回: "测试a=(+ 1.75 2),d=(+ 1.75 3)结果f=2,aa-3"
     
223.     (setq as (mapcar '(lambda(x)(eval(read x))) (xxexp "(\\([^()]*\\))" str2  "")))
     
224.     ;;返回:("(+ 1.75 2)" "(+ 1.75 3)");返回:(3.75 4.75)
     
225.     (mapcar '(lambda(x)(setq str2 (xxexpr "([a|d])(=)(\\([^()]*\\))" str2 (strcat "$1$2" (rtos x 2 jd)) "g"))) as)
     
226.     str2
     
227. ) ;;最后返回: "测试a=3.75,d=4.75结果f=2,aa-3"
     
228. 
     
229. 
     
230. 4. 提取数字文本:
     
231. 
     
232.    之所以把这个专门做一小节，是因为现实意义较大，而我以前也用vlisp写过这样的程序，但写起来难免有些考虑不到的情况，总是不爽，现在，终于可以松一口气。
     
233.    先说说字符中的数字可能出现的情况。其实很简单，就是distof认得的就应该看做数字。如：
     
234. “+1“ “+1.0““+.3““1.3““1.3e1“ “1.3e2““1.3e-2“ 等.
     
235. 虽然乍一看简单，但是如果遇到“..2.3 +-2.5.6e-3.6 -1d.+3e.1“等不规范的字符串，要正确提取数字用lisp写起来可就困难了。
     
236. 现在看看正则表达式的功能如何，下面是我摸索到的，pat也许有更科学的写法。
     
237. 
     
238. [复制代码到剪贴板]
     
239. ·提取字符串内数字1:
     
240. (setq str "a-.3A0.0+9.5d-1.3 1.2e-58d4d-15.1d5.6asf-1.2"
     
241.        pat "[+|-]?\\d*\\.?\\d+(e[+|-]*\\d+)*")
     
242. (xxexp  pat str "")
     
243. ;;返回:("-.3" "0.0" "+9.5" "-1.3" "1.2e-58" "4" "-15.1" "5.6" "-1.2")
     
244. ;;下面再验证是否是数字.
     
245.    (mapcar 'distof (xxexp  pat str ""))
     
246.    ;;返回:(-0.3 0.0 9.5 -1.3 1.2e-058 4.0 -15.1 5.6 -1.2)
     
247. 
     
248. ·提取字符串内数字2：
     
249. (setq str "-1e4-31++3485..3.1a.38 3..14f-.86e-1d3.a4f8.48"
     
250.        pat "[+|-]?\\d*\\.?\\d+(e[+|-]*\\d+)*")
     
251. (xxexp  pat str "")
     
252. ;;返回:　("-1e4" "-31" "+3485" ".3" ".1" ".38" "3" ".14" "-.86e-1" "3" "4" "8.48")
     
253. ;;下面再验证是否是数字.
     
254.    (mapcar 'distof (xxexp  pat str ""))
     
255.    ;;返回:(-10000.0 -31.0 3485.0 0.3 0.1 0.38 3.0 0.14 -0.086 3.0 4.0 8.48)
     
256. 
     
257. 5. 函数各参数对比   
     
258. 
     
259.   结束前，对函数的各参数的用法做一些实例，以便通过对比加深理解。
     
260. 
     
261. ·xxexp参数及partten对比测试
     
262. (setq str "IS11 is01 ISa1 iss11 id1 isss1 is1 IS1 ISa")
     
263. 1.1;查找 str 中符合　is开头跟至少１个数字的字符.　i 大小写敏感；g　全局(仅找第一个符合条件的字符)
     
264. (xxexp "is\\d+" str "iG") ;-> ("is0") ;　小写，第一个
     
265. (xxexp "is\\d+" str "i") ;-> ("is01" "is1")　;小写，全局
     
266. (xxexp "is\\d+" str "g") ;->("IS11");大小写，第一个
     
267. (xxexp "is\\d+" str "") ;-> ("IS11" "is01" "is1" "IS1");大小写，所有.
     
268. 1.2 查找IS开头,跟非换行单字符，跟0-9数字
     
269. (xxexp "IS.[0-9]" str "") ;-> ("IS11" "is01" "ISa1" "iss1")
     
270. 1.3 查找IS开头,跟非A或a，跟0-9数字
     
271. (xxexp "IS[^Aa][0-9]" str "") ;->("IS11" "is01" "iss1")
     
272. 1.4 查找IS开头,至少两个S的字符
     
273. (xxexp "IS{2,}" str "") ;-> ("iss" "isss")
     
274. 1.5 查找IS开头,跟两个数字
     
275. (xxexp "IS[0-9][0-9]" str "") ;-> ("IS11" "is01")
     
276. 1.6 查找IS开头,跟两个数字,大小写敏感.
     
277. (xxexp "IS[0-9][0-9]" str "i") ;-> ("IS11")
     
278. 1.7 查找IS开头,跟1个数字.
     
279. (xxexp "IS[0-9]" str "") ;-> ("IS1" "is0" "is1" "IS1")
     
280. 1.8 查找IS开头,跟1个数字,跟空格.
     
281. (xxexp "IS[0-9] " str "") ;-> ("is1 " "IS1 ")
     
282. 
     
283. ·xxexp和xxexpr的配合使用
     
284.    Xxexp 可提取符合条件的字符(列表)，得到的表可提供给别的程序进行进一步处理。
     
285.    Xxexpr 替换的结果(个数)，可以用xxexp预知。
     
286.      (xxexp "\\band\\b" "weekend,endfor,end" "") ;返回: nil ;没有一个匹配
     
287. 　(xxexpr "\\band\\b" "weekend,endfor,end" "start" "")
     
288. 　　;返回:"weekend,endfor,end" ;不改变字符串
     
289. (xxexp "\\bend\\b" "weekend,endfor,end" "")  
     
290. ;返回: ("end") ;; 仅仅有一个匹配. \\b:指单词边界.
     
291. (xxexpr "\\bend\\b" "weekend,endfor,end" "start" "")
     
292. ;返回: "weekend,endfor,start" ;仅替换一个.
     
293. (xxexp "end" "weekend,endfor,end" "")
     
294.   ;返回: ("end" "end" "end") ;;有三个匹配
     
295. (xxexpr "end" "weekend,endfor,end" "start" "")
     
296.   ;返回: "weekstart,startfor,start" ;替换3个.
     
297.    
     
298. 
     
299. 
     
300. [结语：“一刀屠文”]
     
301. 
     
302. 
     
303.    通过pat，和key的不同设定，可以看到正则表达式的功能不是一般的强，对应一种要求，pat可能有不只一种写法，只要pat写的好，在字符处理上，你能做的很多很多，而且也轻而易举，免去写n个程序的痛苦。呵呵，我以前写的几十个字符串处理函数很多都要下岗贱卖了。
     
304.    差点忘了给这两个函数起个名号了，鉴于文字处理方面叫的好听的名号都被用的差不多了，大师之类的又不敢叫，一时间也想不到更好的，暂时叫“一刀屠文”吧，“屠”，表示对文字的深入解析，刀随心动，所向披靡，物我两忘。（%^$哎哟!谁砸的砖头!$%#）
     
305.    今天就到这里吧，更多更强的功能等待你去发现。
     
306.    
     
307.    
     
308.                                                            梁雄啸
     
309.       2007.7.28夜
     

<br /> 在lisp中应用正则表达式<br /> [序]<br /> <br /> <br />    长久以来，文本的编辑一直是lisp编程的重点、难点之一，有不少活跃在xdcad和明经通道论坛的高手为此写了不少有代表性的文字处理工具，比较知名的如：   。而我自己也写过不少这方面的程序，多数没有发表，少数零星地发布在以上两个论坛。但由于lisp对文本编辑(*注)的支持函数不够丰富，而实际工作中遇到的情况又多种多样，使得诸多lisp程序对文本编辑的深度和灵活性上还有很多不足之处，不免遗憾。<br />    为此，我一直以来寻求更好的方法，最终只有一个答案：正则表达式。正则表达式对文本编辑很强，有多强？看看vb或vbs参考就知道，也可上网一搜。但是，也许本人孤陋寡闻(或是有的高手潜水潜得很深)，在网上一直没有见过在lisp中比较充分地应用正则表达式的程序。其实，我很早就想将正则表达式移植到lisp里面来，近几日一鼓作气，终有小成。谨奉献两个函数：(xxexp)(xxexpr)，这两个函数提供了正则表达式的接口，使在lisp中得以应用其强大的功能成为可能。                                  <br />                                                         ―――――梁雄啸.2007.7<br />                                                        <br /> [*注:“文本”在本文均指对文本字符串内容，非指文本实体(0 . “*TEXT”)]<br /> <br /> 函数下载:    <br /> [url]http://dreamskylxx.ys168.com/[/url] <br /> <br /> <br /> [函数介绍]<br /> <br /> <br /> 函数：(xxexp pat str key)<br /> 功能 对字符串进行正则表达式匹配测试. <br /> 参数: pat = 正则表达式模式 ,对应vbs正则表达式的模式(expression)。说明: \ 号要用　\\ 替代.<br />      str = 字符串<br />      key = "i" "g" "m" , "i"不区分大小写（Ignorecase）,"g"全局匹配（Global）.”m”多行模式（Multiline），以上几个关键字可以组合使用，或用 ””.<br /> 返回: 返回匹配的字符列表，或无一匹配返回nil<br /> <br /> <br /> 函数：(xxexpr pat str nstr key)<br /> 功能 对字符串进行正则表达式替换. <br /> 参数: pat = 正则表达式模式 ,对应vbs正则表达式的模式(expression)。说明: \ 号要用　\\ 替代.<br />      str = 被替换字符串<br />      nstr = 替换字符串<br />      key = "i" "g" "m" , "i"不区分大小写（Ignorecase）,"g"全局匹配（Global）.”m”多行模式（Multiline），以上几个关键字可以组合使用，或用 ””.<br /> 返回 :返回替换后的字符串.<br /> <br /> <br /> [正则表达式模式]<br /> <br /> <br /> 　正则表达式核心就是其模式(expression)，此部分资料可从网上或vb，vbs参考中得到。以下是vbs参考中关于模式的描述列表（本文略）。在xxexp,xxexpr函数应用中,注意”\”符要按”\\”来写。<br /> <br /> [实战]<br /> <br /> <br />    也许只有通过一些实例，大家才真正知道正则表达式的强大。有的功能是仅仅用lisp提供的函数很难或无法做到的，而在这里，可一一化解。<br />    <br /> 1. 汉字和非汉字提取<br /> <br />    先来点简单的，好让大家进入状态，虽然简单，但是在论坛上是经常被问到的问题：<br />    <br /> <br /> ·;;提取汉字及空格。<br />     ;每字分断,汉字按1个字.<br />      (xxexp "[^!-~]" "a 测π啊d4少1数★M=3;is=正,2确" "") <br />     ;返回: (" " "测" "π" "啊" "少" "数" "★" "正" "确")<br />     ;连字不分断.<br />     (xxexp "[^!-~]+" "a 测π啊d4少1数★M=3;is=正,2确" "")<br />      ;返回:(" 测π啊" "少" "数★" "正" "确") <br />     <br /> ·;;提取汉字<br />     (xxexp "[^ -~]" "a 测π啊d4少1数★M=3;is=正,2确" "") <br />     (xxexp "[^\\000-\\377]" "a 测π啊d4少1数★M=3;is=正,2确" "") <br />     ;返回: ("测" "π" "啊" "少" "数" "★" "正" "确")<br />     (xxexp "[\\u0C04-\\uFFFF]" "a 测π啊d4少1数★M=3;is=正,2确" "") <br />     ;;返回: ("测" "啊" "少" "数" "★" "正" "确") ;;（注: 查到16进制汉字从\\u0C04开始,这个方法应该是最准确的.）<br />     (xxexp "[^ -~]+" "a 测π啊d4少1数★M=3;is=正,2确" "")<br />     (xxexp "[^\\000-\\377]+" "a 测π啊d4少1数★M=3;is=正,2确" "") <br />      ;返回:("测π啊" "少" "数★" "正" "确")<br /> <br /> ·;;提取非汉字<br /> (xxexp "[ -~]" "a 测π啊d4少1数★M=3;is=正,2确" "")<br /> ;返回:("a" " " "d" "4" "1" "M" "=" "3" ";" "i" "s" "=" "," "2")<br /> (xxexp "[\\000-\\377]+" "a 测π啊d4少1数★M=3;is=正,2确" "")<br /> ;返回: ("a " "d4" "1" "M=3;is=" ",2")<br /> <br /> ·;;提取字母及数字<br /> (xxexp "\\w" "a 测π啊d4少1数★M=3;is=正,2确" "")<br /> ;返回:("a" "d" "4" "1" "M" "3" "i" "s" "2")<br /> <br /> ·;;提取非字母及非数字<br /> (xxexp "[^\\w]" "a 测π啊d4少1数★M=3;is=正,2确" "")<br />   ;返回:(" " "测" "π" "啊" "少" "数" "★" "=" ";" "=" "正" "," "确")<br /> (xxexp "[^\\w]+" "a 测π啊d4少1数★M=3;is=正,2确" "")<br /> ;返回:(" 测π啊" "少" "数★" "=" ";" "=正," "确")<br /> ·;; 提取连续两个相同的字符<br />     (SETQ S (xxexp "(.)\\1" "aa看看 测试"M==33";is=,,2" "")) <br />     ;返回: ("aa" "看看" "==" "33" ",,") <br /> <br /> 2. 字符串处理<br /> <br /> 　看了上面的实例，大家也许有点兴趣了，好，接着来。<br /> 　<br /> <br /> <br /> ·;; 提取由分界符界定的字符，呵呵，这个是论坛上被编写的比较多的程序之一.<br /> (xxexp "[^ ;,]+" "a 测试M=3;is=,2" "") ;;返回: ("a" "测试M=3" "is=" "2")<br /> 是不是很容易? 但这只不过是牛刀小试，现在才刚刚开始。<br /> <br /> ·拆分字符串，1个汉字算1个.<br /> (xxexp "."  "少1 ,至.2e-5a‖〉∑∵∩∪チネヒжъμㄜ啊d4少1数" "")<br /> ;返回: ("少" "1" " " "," "至" "." "2" "e" "-" "5" "a" "‖" "〉" "∑" "∵" "∩" "∪" "チ" "ネ" "ヒ" "ж" "ъ" "μ" "ㄜ" "啊" "d" "4" "少" "1" "数")<br /> <br /> ·按每两个字符进行分断。1个中文按1个计算。<br /> (xxexp ".{2}" "aa 测试M==33;is=,,2" "")<br /> ;;返回: ("aa" " 测" "试M" "==" "33" ";i" "s=" ",,")<br /> <br /> ·;;在两个连续字符处分断.（包含指定的分界符，本例指"｜"）<br /> (setq s1 "aa 测看看试M==33;is=,,2")<br /> (xxexp "[^｜]+" (xxexpr "(.)\\1" s1 "｜" "") "")<br /> ;返回: (" 测" "试M" ";is=" "2")<br /> <br /> ·倒排文字（按字倒排，支持中文）<br /> (setq str "The quick brown 啊 fox jumped 至 over ∑ the lazy dog.")<br /> (apply 'strcat (reverse(xxexp "." str "")))<br /> ;返回: ".god yzal eht ∑ revo 至 depmuj xof 啊 nworb kciuq ehT"<br />   (apply 'strcat (reverse(xxexp "." "i开头，跟至少1个s" "")))<br />   ;返回:  "s个1少至跟，头开i" <br /> <br /> ·简单替换，（但是用lisp写也不见得简单:) ）<br />    (setq str "IS11 is01 ISa1 iss11 id1 isss1 is1 IS1 ISa")<br /> 2.1 替换 is 为*，不分大小写<br /> (xxexpr "is" str "*" "") ;-> "*11 *01 *a1 *s11 id1 *ss1 *1 *1 *a"<br /> 2.2 替换 i开头,跟s(至少1个)的字符 为*<br /> (xxexpr "is+" str "*" "") ;-> "*11 *01 *a1 *11 id1 *1 *1 *1 *a"<br /> 2.3 替换 非数字和非空格 为*<br /> (xxexpr "[^0-9 ]" str "*" "") ;->"**11 **01 ***1 ***11 **1 ****1 **1 **1 ***"<br /> 2.4 替换 i开头，至少跟2个s的字符为*<br /> (xxexpr "Is{2,}" str "*" "") ;-> "IS11 is01 ISa1 *11 id1 *1 is1 IS1 ISa"<br /> 2.5 替换 i开头，跟1个非换行符的字符为*<br /> (xxexpr "I." str "*" "") ;-> "*11 *01 *a1 *s11 *1 *ss1 *1 *1 *a"<br /> 2.6 替换 i开头，跟至少1个s,+至少1个数字的字符　为*<br /> (xxexpr "is{1,}\\d+" str "*" "")　;－> "* * ISa1 * id1 * * * ISa"<br /> <br /> 下面的加点难度:<br /> <br /> ·.倒排文字(按空格划分)<br /> (setq str "The quick brown 啊 fox jumped 至于 over ∑ the lazy dog")<br /> (setq lst1 (xxexp "[^ |.]+" str ""))<br />   ;;返回: ("The" "quick" "brown" "啊" "fox" "jumped" "至于" "over" "∑" "the" "lazy" "dog.")<br /> (setq lst2 (xxexp " +" str "")) <br /> ;;返回: (" " " " " " " " " " " " " " " " " " " " " " ".")<br /> (apply 'strcat (mapcar 'strcat (reverse lst1)(reverse lst2)))<br /> ;;返回: "dog lazy the ∑ over 至于 jumped fox 啊 brown quick "<br /> <br /> ·.字符倒置<br /> 　;; 将符合匹配(词1+空格+词2)中词1和词2对调<br /> (xxexpr "(\\S+)(\\s+)(\\S+)" "brown  啊 fox a" "$3$2$1" "") ;;返回:"啊  brown a fox"<br /> ;;将 = 号左右两边的字符对调.<br /> (xxexpr "(.)([-|=])(.)" "a-b=1 : c=d : a" "$3$2$1" "") ;;返回: "b-a=1 : d=c : a" <br /> <br /> 3. 有条件的文本替换:<br /> <br /> 再加点难度。<br /> <br /> ·; "*(*)" 替换为 "*[*]"，论坛上只见过lzh写过这样一个程序，是用vba写的。<br /> (xxexpr "(\\()([^\\(\\)]*)(\\))" "a(顶-啊)5()" "[$2]" "") <br /> ;返回: "a[顶-啊]5[]" <br /> <br /> ·; A*B*替换为B*C*<br /> (xxexpr "(A{1})([^ABab]*)(B{1})" "A48.B小4Axa8b5" "B$2C" "") ;替换所有匹配<br /> ;返回: "B48.C小4AxB8C5" <br /> (xxexpr "(A{1})([^ABab]*)(B{1})" "A48.B小4Axa8b5" "B$2C" "g");替换第一个匹配的字符串 <br /> ;返回:"B48.C小4Axa8b5" <br /> <br /> ·;将符合 "*写程序*Yes*" 的字符串替换为 "*测*试*" .这个是不等式替换，用vlisp写起来容易么？<br /> (xxexpr "(.*)写程序(.*)Yes(.*)" "33写程序74=YesYb" "$1测$2试$3" "") <br /> ;返回:"33测74=试Yb"<br /> 　再来几个对比测试，什么功能？有点考脑力啊：）<br /> (xxexpr "(.*)写程序(.*)Yes(.*)" "33写程序74=YesYb" "$1测$2$3" "")<br />   ;->"33测74=Yb"　　           ；将”写程序”替换为”测”,去掉”Yes”<br /> (xxexpr "(.*)写程序(.*)Yes(.*)" "33写程序74=YesYb" "$1测$3" "")<br /> 　;->"33测Yb"                 ; 去掉”写程序””Yes”及其之间的字符。<br /> (xxexpr "(.*)写程序(.*)Yes(.*)" "33写程序74=YesYb" "$2" "")<br /> ;->"74="　                       ; 仅保留”写程序*Yes”之间的*部分.<br /> (xxexpr "(.*)(写程序)(.*)(Yes)(.*)" "33写程序74=YesYb" "$1$4$2$3$5" "")<br /> ;->"33Yes写程序74=Yb"           ;将各部分随意倒置.<br /> (xxexpr "(.*)写(程序)(.*)(Yes)(.*)" "33写程序74=YesYb" "$1看$2$3$5,$4!" "")<br /> ;->"33看程序74=Yb,Yes!"   ; 将"*写程序*Yes*"中的”写”改为看,”Yes”放到最后并加标点<br /> <br /> · 替换字符串.将=号后的10~99的数字字符改为*<br /> (xxexpr "(.=)(\\d{2})([^\\d]+)" "M=56变量" "$1*$3" "") ;;返回:"M=*变量"<br /> (xxexpr "(.=)(\\d{2})([^\\d]+)" "M=6变量" "$1*$3" "") ;;返回:"M=6变量"<br /> (xxexpr "(.=)(\\d{2})([^\\d]+)" "M=556变量" "$1*$3" "") ;;返回:"M=556变量"<br /> <br /> ·;; 更改字符中包含 M=数字 的字符，将M改为X<br /> (xxexpr "(M)(=)(\\d+)" "2至M=56变量" "X$2$3" "") ;;返回:"2至X=56变量"<br /> <br /> ·;; 将字符中a*d分别改为M*N<br /> (xxexpr "(a)(.+)(d)" "测试a=c,d=e,a=3,d=1" "M$2N" "") <br /> ;;返回: "测试M=c,d=e,a=3,N=1" （全字按顺序匹配）<br /> (xxexpr "(a)([^a|d]+)(d)" "测试a=c,d=e,a=3,d=1" "M$2N" "") <br /> ;;返回:"测试M=c,N=e,M=3,N=1"  （所有按顺序匹配）.<br /> <br /> ·将字符 "我们*测试" 中的* 改为"不"字<br /> (xxexpr "(.*今天)([^测试]*)(测试?.*)" "今天我们一起测试这个函数，你来测试" "$1不$3" "")<br /> ; ;返回:"今天不测试这个函数，你来测试";;（仅匹配第一次遇到的"测试"二字）<br />   (xxexpr "(.*今天)(.*)(测试.*)" "今天我们一起测试这个函数，你来测试" "$1不$3" "")<br /> ;;返回:"今天不测试" （;; 匹配最外层的"测试"二字）<br /> <br /> <br /> <br /> 是不是越来越晕了？还有呢,下面是两个测试，是有一定实践意义的更改文本内数字的程序。<br /> <br /> ·;; 更改字符中包含 M=数字 的字符，将数字加1.5。可能还有更好更有效的写法。<br /> (defun c:test1()<br /> (setq str "2至M=56.5变M=3量M=.22"<br />        pat "(M)(=)(\\d{0,}\\.{0,1}\\d{1,})")<br />   (setq lst (xxexp pat str "")) <br />   ;; 此步返回: ("M=56.5" "M=3" "M=.22")<br />   (setq lst2(mapcar '(lambda(x)(strcat "M=" (rtos(+ 1.5(distof(vl-string-subst "" "M=" x)))2 2)))lst))<br />   ;此步返回:("M=58.00" "M=4.50" "M=1.72")<br />   (mapcar '(lambda(x y)(setq str (xxexpr x str y ""))) lst lst2)<br />   str) <br /> ;;最后返回: "2至M=58.00变M=4.50量M=1.72" <br /> <br /> · ;; 将a=或d=开头的数字加一个数(1.75).。另外一种写法。<br /> (defun c:test2()<br />     (setq str "测试a=2,d=3结果f=2,aa-3"<br />        add 1.75<br />        jd 2) ;精度<br />     (setq str2 (xxexpr "([a|d])(=)(\\d+)" str (strcat"$1$2(+ " (rtos add 2 jd) " $3)") "")) <br />     ;;返回: "测试a=(+ 1.75 2),d=(+ 1.75 3)结果f=2,aa-3"<br />     (setq as (mapcar '(lambda(x)(eval(read x))) (xxexp "(\\([^()]*\\))" str2  "")))<br />     ;;返回:("(+ 1.75 2)" "(+ 1.75 3)");返回:(3.75 4.75)<br />     (mapcar '(lambda(x)(setq str2 (xxexpr "([a|d])(=)(\\([^()]*\\))" str2 (strcat "$1$2" (rtos x 2 jd)) "g"))) as)<br />     str2<br /> ) ;;最后返回: "测试a=3.75,d=4.75结果f=2,aa-3"<br /> <br /> <br /> 4. 提取数字文本:<br /> <br />    之所以把这个专门做一小节，是因为现实意义较大，而我以前也用vlisp写过这样的程序，但写起来难免有些考虑不到的情况，总是不爽，现在，终于可以松一口气。<br />    先说说字符中的数字可能出现的情况。其实很简单，就是distof认得的就应该看做数字。如：<br /> “+1“ “+1.0““+.3““1.3““1.3e1“ “1.3e2““1.3e-2“ 等.<br /> 虽然乍一看简单，但是如果遇到“..2.3 +-2.5.6e-3.6 -1d.+3e.1“等不规范的字符串，要正确提取数字用lisp写起来可就困难了。<br /> 现在看看正则表达式的功能如何，下面是我摸索到的，pat也许有更科学的写法。<br /> <br /> [复制代码到剪贴板]<br /> ·提取字符串内数字1:<br /> (setq str "a-.3A0.0+9.5d-1.3 1.2e-58d4d-15.1d5.6asf-1.2"<br />        pat "[+|-]?\\d*\\.?\\d+(e[+|-]*\\d+)*")<br /> (xxexp  pat str "")<br /> ;;返回:("-.3" "0.0" "+9.5" "-1.3" "1.2e-58" "4" "-15.1" "5.6" "-1.2")<br /> ;;下面再验证是否是数字.<br />    (mapcar 'distof (xxexp  pat str ""))<br />    ;;返回:(-0.3 0.0 9.5 -1.3 1.2e-058 4.0 -15.1 5.6 -1.2)<br /> <br /> ·提取字符串内数字2：<br /> (setq str "-1e4-31++3485..3.1a.38 3..14f-.86e-1d3.a4f8.48"<br />        pat "[+|-]?\\d*\\.?\\d+(e[+|-]*\\d+)*")<br /> (xxexp  pat str "")<br /> ;;返回:　("-1e4" "-31" "+3485" ".3" ".1" ".38" "3" ".14" "-.86e-1" "3" "4" "8.48")<br /> ;;下面再验证是否是数字.<br />    (mapcar 'distof (xxexp  pat str ""))<br />    ;;返回:(-10000.0 -31.0 3485.0 0.3 0.1 0.38 3.0 0.14 -0.086 3.0 4.0 8.48) <br /> <br /> 5. 函数各参数对比    <br /> <br />   结束前，对函数的各参数的用法做一些实例，以便通过对比加深理解。<br /> <br /> ·xxexp参数及partten对比测试<br /> (setq str "IS11 is01 ISa1 iss11 id1 isss1 is1 IS1 ISa")<br /> 1.1;查找 str 中符合　is开头跟至少１个数字的字符.　i 大小写敏感；g　全局(仅找第一个符合条件的字符)<br /> (xxexp "is\\d+" str "iG") ;-> ("is0") ;　小写，第一个<br /> (xxexp "is\\d+" str "i") ;-> ("is01" "is1")　;小写，全局<br /> (xxexp "is\\d+" str "g") ;->("IS11");大小写，第一个<br /> (xxexp "is\\d+" str "") ;-> ("IS11" "is01" "is1" "IS1");大小写，所有.<br /> 1.2 查找IS开头,跟非换行单字符，跟0-9数字<br /> (xxexp "IS.[0-9]" str "") ;-> ("IS11" "is01" "ISa1" "iss1")<br /> 1.3 查找IS开头,跟非A或a，跟0-9数字<br /> (xxexp "IS[^Aa][0-9]" str "") ;->("IS11" "is01" "iss1")<br /> 1.4 查找IS开头,至少两个S的字符<br /> (xxexp "IS{2,}" str "") ;-> ("iss" "isss")<br /> 1.5 查找IS开头,跟两个数字<br /> (xxexp "IS[0-9][0-9]" str "") ;-> ("IS11" "is01")<br /> 1.6 查找IS开头,跟两个数字,大小写敏感.<br /> (xxexp "IS[0-9][0-9]" str "i") ;-> ("IS11") <br /> 1.7 查找IS开头,跟1个数字.<br /> (xxexp "IS[0-9]" str "") ;-> ("IS1" "is0" "is1" "IS1")<br /> 1.8 查找IS开头,跟1个数字,跟空格.<br /> (xxexp "IS[0-9] " str "") ;-> ("is1 " "IS1 ")<br /> <br /> ·xxexp和xxexpr的配合使用<br />    Xxexp 可提取符合条件的字符(列表)，得到的表可提供给别的程序进行进一步处理。<br />    Xxexpr 替换的结果(个数)，可以用xxexp预知。<br />      (xxexp "\\band\\b" "weekend,endfor,end" "") ;返回: nil ;没有一个匹配<br /> 　(xxexpr "\\band\\b" "weekend,endfor,end" "start" "") <br /> 　　;返回:"weekend,endfor,end" ;不改变字符串<br /> (xxexp "\\bend\\b" "weekend,endfor,end" "")  <br /> ;返回: ("end") ;; 仅仅有一个匹配. \\b:指单词边界.<br /> (xxexpr "\\bend\\b" "weekend,endfor,end" "start" "")<br /> ;返回: "weekend,endfor,start" ;仅替换一个.<br /> (xxexp "end" "weekend,endfor,end" "") <br />   ;返回: ("end" "end" "end") ;;有三个匹配<br /> (xxexpr "end" "weekend,endfor,end" "start" "") <br />   ;返回: "weekstart,startfor,start" ;替换3个.<br />    <br /> <br /> <br /> [结语：“一刀屠文”]<br /> <br /> <br />    通过pat，和key的不同设定，可以看到正则表达式的功能不是一般的强，对应一种要求，pat可能有不只一种写法，只要pat写的好，在字符处理上，你能做的很多很多，而且也轻而易举，免去写n个程序的痛苦。呵呵，我以前写的几十个字符串处理函数很多都要下岗贱卖了。<br />    差点忘了给这两个函数起个名号了，鉴于文字处理方面叫的好听的名号都被用的差不多了，大师之类的又不敢叫，一时间也想不到更好的，暂时叫“一刀屠文”吧，“屠”，表示对文字的深入解析，刀随心动，所向披靡，物我两忘。（%^$哎哟!谁砸的砖头!$%#）<br />    今天就到这里吧，更多更强的功能等待你去发现。<br />    <br />    <br />                                                            梁雄啸<br />       2007.7.28夜<br />

zhuan1

谢了，收下。

jxghsj

还是不明白。

asdttkjn

太好了
学习中

qk983113

实在是高手啊， 有了这个东西，我们就可以直接把图上的数字进行运算了，这样能够开发出不少的图形计算工具呢！！