设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 12940|回复: 48

[选择集] xxexp;xxexpr-在lisp中应用正则表达式(“一刀屠文”)

[复制链接]

签到天数: 25 天

连续签到: 1 天

[LV.4]偶尔看看III

点击这里给我发消息

发表于 2013-6-20 00:31:08 | 显示全部楼层 |阅读模式
函数发布
函数名称: xxexp;xxexpr
调用格式: (xxexp pat str key)
参数说明: 参数: pat = 正则表达式模式 ,对应vbs正则表达式的模式(expression)。说明: \ 号要用 \\ 替代.
str = 字符串
key = "i" "g" "m" , "i"不区分大小写(Ignorecase),"g"全局匹配(Global).”m”多行模式(Multiline),以上几个关键字可以组合使用,或用 ””.
返回值: 返回: 返回匹配的字符列表,或无一匹配返回nil
函数简介: xxexp;xxexpr-在lisp中应用正则表达式(“一刀屠文”)
函数来源: 原创
函数作者: 梁雄啸
适用版本: 不限 
最后更新时间: 2007
备注: 用到正则表达式;vbscript
这是以前发表在明经通道的(当时xdcad歇业中),翻出来也放这里吧
演示图片: -

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
在lisp中应用正则表达式
[
   长久以来,文本的编辑一直是lisp编程的重点、难点之一,有不少活跃在xdcad和明经通道论坛的高手为此写了不少有代表性的文字处理工具,比较知名的如:   。而我自己也写过不少这方面的程序,多数没有发表,少数零星地发布在以上两个论坛。但由于lisp对文本编辑(*)的支持函数不够丰富,而实际工作中遇到的情况又多种多样,使得诸多lisp程序对文本编辑的深度和灵活性上还有很多不足之处,不免遗憾。
为此,我一直以来寻求更好的方法,最终只有一个答案:正则表达式。正则表达式对文本编辑很强,有多强?看看vbvbs参考就知道,也可上网一搜。但是,也许本人孤陋寡闻(或是有的高手潜水潜得很深),在网上一直没有见过在lisp中比较充分地应用正则表达式的程序。其实,我很早就想将正则表达式移植到lisp里面来,近几日一鼓作气,终有小成。谨奉献两个函数:(xxexp)(xxexpr),这两个函数提供了正则表达式的接口,使在lisp中得以应用其强大的功能成为可能。                                 
―――――梁雄啸.2007.7
[*:“文本”在本文均指对文本字符串内容,非指文本实体(0 . *TEXT

[函数介绍
函数:(xxexp pat str key)
功能 对字符串进行正则表达式匹配测试.
参数: pat = 正则表达式模式 ,对应vbs正则表达式的模式(expression)。说明: \ 号要用 \\ 替代.
     str = 字符串
     key = "i" "g" "m" , "i"不区分大小写(Ignorecase),"g"全局匹配(Global).”m”多行模式(Multiline),以上几个关键字可以组合使用,或用 ””.
返回: 返回匹配的字符列表,或无一匹配返回nil
函数:(xxexpr pat str nstr key)
功能 对字符串进行正则表达式替换.
参数: pat = 正则表达式模式 ,对应vbs正则表达式的模式(expression)。说明: \ 号要用 \\ 替代.
     str = 被替换字符串
     nstr = 替换字符串
     key = "i" "g" "m" , "i"不区分大小写(Ignorecase),"g"全局匹配(Global).”m”多行模式(Multiline),以上几个关键字可以组合使用,或用 ””.
返回 :返回替换后的字符串.

正则表达式模式

正则表达式核心就是其模式(expression),此部分资料可从网上或vbvbs参考中得到。以下是vbs参考中关于模式的描述列表。在xxexp,xxexpr函数应用中,注意”\”符要按”\\”来写。

字符
描述
\
将下一个字符标记为一个特殊字符、或一个原义字符、或一个 向后引用、或一个八进制转义符。例如,'n' 匹配字符 "n"。'\n' 匹配一个换行符。序列 '\\' 匹配 "\" 而 "\(" 则匹配 "("。
^
匹配输入字符串的开始位置。如果设置了 RegExp 对象的 Multiline 属性,^ 也匹配 '\n' 或 '\r' 之后的位置。
$
匹配输入字符串的结束位置。如果设置了 RegExp 对象的 Multiline 属性,$ 也匹配 '\n' 或 '\r' 之前的位置。
*
匹配前面的子表达式零次或多次。例如,zo* 能匹配 "z" 以及 "zoo"。* 等价于{0,}。
+
匹配前面的子表达式一次或多次。例如,'zo+' 能匹配 "zo" 以及 "zoo",但不能匹配 "z"。+ 等价于 {1,}。
?
匹配前面的子表达式零次或一次。例如,"do(es)?" 可以匹配 "do" 或 "does" 中的"do" 。? 等价于 {0,1}。
{n}
n 是一个非负整数。匹配确定的 n 次。例如,'o{2}' 不能匹配 "Bob" 中的 'o',但是能匹配 "food" 中的两个 o。
{n,}
n 是一个非负整数。至少匹配n 次。例如,'o{2,}' 不能匹配 "Bob" 中的 'o',但能匹配 "foooood" 中的所有 o。'o{1,}' 等价于 'o+'。'o{0,}' 则等价于 'o*'。
{n,m}
m 和 n 均为非负整数,其中n <= m。最少匹配 n 次且最多匹配 m 次。例如,"o{1,3}" 将匹配 "fooooood" 中的前三个 o。'o{0,1}' 等价于 'o?'。请注意在逗号和两个数之间不能有空格。
?
当该字符紧跟在任何一个其他限制符 (*, +, ?, {n}, {n,}, {n,m}) 后面时,匹配模式是非贪婪的。非贪婪模式尽可能少的匹配所搜索的字符串,而默认的贪婪模式则尽可能多的匹配所搜索的字符串。例如,对于字符串 "oooo",'o+?' 将匹配单个 "o",而 'o+' 将匹配所有 'o'。
.
匹配除 "\n" 之外的任何单个字符。要匹配包括 '\n' 在内的任何字符,请使用象 '[.\n]' 的模式。
(pattern)
匹配 pattern 并获取这一匹配。所获取的匹配可以从产生的 Matches 集合得到,在VBScript 中使用 SubMatches 集合,在 JScript 中则使用 $0…$9 属性。要匹配圆括号字符,请使用 '\(' 或 '\)'。
(?:pattern)
匹配 pattern 但不获取匹配结果,也就是说这是一个非获取匹配,不进行存储供以后使用。这在使用 "或" 字符 (|) 来组合一个模式的各个部分是很有用。例如, 'industr(?:y|ies) 就是一个比 'industry|industries' 更简略的表达式。
(?=pattern)
正向预查,在任何匹配 pattern 的字符串开始处匹配查找字符串。这是一个非获取匹配,也就是说,该匹配不需要获取供以后使用。例如, 'Windows (?=95|98|NT|2000)' 能匹配 "Windows 2000" 中的 "Windows" ,但不能匹配 "Windows 3.1" 中的 "Windows"。预查不消耗字符,也就是说,在一个匹配发生后,在最后一次匹配之后立即开始下一次匹配的搜索,而不是从包含预查的字符之后开始。
(?!pattern)
负向预查,在任何不匹配 pattern 的字符串开始处匹配查找字符串。这是一个非获取匹配,也就是说,该匹配不需要获取供以后使用。例如'Windows (?!95|98|NT|2000)' 能匹配 "Windows 3.1" 中的 "Windows",但不能匹配 "Windows 2000" 中的 "Windows"。预查不消耗字符,也就是说,在一个匹配发生后,在最后一次匹配之后立即开始下一次匹配的搜索,而不是从包含预查的字符之后开始
x|y
匹配 x 或 y。例如,'z|food' 能匹配 "z" 或 "food"。'(z|f)ood' 则匹配 "zood" 或 "food"。
[xyz]
字符集合。匹配所包含的任意一个字符。例如,'[abc]' 可以匹配 "plain" 中的 'a'。
[^xyz]
负值字符集合。匹配未包含的任意字符。例如,'[^abc]' 可以匹配 "plain" 中的'p'。
[a-z]
字符范围。匹配指定范围内的任意字符。例如,'[a-z]' 可以匹配 'a' 到 'z' 范围内的任意小写字母字符。
[^a-z]
负值字符范围。匹配任何不在指定范围内的任意字符。例如,'[^a-z]' 可以匹配任何不在 'a' 到 'z' 范围内的任意字符。
\b
匹配一个单词边界,也就是指单词和空格间的位置。例如, 'er\b' 可以匹配 "never" 中的 'er',但不能匹配 "verb" 中的 'er'。
\B
匹配非单词边界。'er\B' 能匹配 "verb" 中的 'er',但不能匹配 "never" 中的 'er'。
\cx
匹配由 x 指明的控制字符。例如, \cM 匹配一个 Control-M 或回车符。x 的值必须为 A-Z 或 a-z 之一。否则,将 c 视为一个原义的 'c' 字符。
\d
匹配一个数字字符。等价于 [0-9]。
\D
匹配一个非数字字符。等价于 [^0-9]。
\f
匹配一个换页符。等价于 \x0c 和 \cL。
\n
匹配一个换行符。等价于 \x0a 和 \cJ。
\r
匹配一个回车符。等价于 \x0d 和 \cM。
\s
匹配任何空白字符,包括空格、制表符、换页符等等。等价于 [ \f\n\r\t\v]。
\S
匹配任何非空白字符。等价于 [^ \f\n\r\t\v]。
\t
匹配一个制表符。等价于 \x09 和 \cI。
\v
匹配一个垂直制表符。等价于 \x0b 和 \cK。
\w
匹配包括下划线的任何单词字符。等价于 '[A-Za-z0-9_]'。
\W
匹配任何非单词字符。等价于 '[^A-Za-z0-9_]'。
\xn
匹配 n,其中 n 为十六进制转义值。十六进制转义值必须为确定的两个数字长。例如,'\x41' 匹配 "A"。'\x041' 则等价于 '\x04' & "1"。正则表达式中可以使用 ASCII 编码。.
\num
匹配 num,其中 num 是一个正整数。对所获取的匹配的引用。例如,'(.)\1' 匹配两个连续的相同字符。
\n
标识一个八进制转义值或一个向后引用。如果 \n 之前至少 n 个获取的子表达式,则 n 为向后引用。否则,如果 n 为八进制数字 (0-7),则 n 为一个八进制转义值。
\nm
标识一个八进制转义值或一个向后引用。如果 \nm 之前至少有 nm 个获得子表达式,则 nm 为向后引用。如果 \nm 之前至少有 n 个获取,则 n 为一个后跟文字 m 的向后引用。如果前面的条件都不满足,若 n 和 m 均为八进制数字 (0-7),则 \nm 将匹配八进制转义值 nm。
\nml
如果 n 为八进制数字 (0-3),且 m 和 l 均为八进制数字 (0-7),则匹配八进制转义值 nml。
\un
匹配 n,其中 n 是一个用四个十六进制数字表示的 Unicode 字符。例如, \u00A9 匹配版权符号 (&#169;)。

[实战
也许只有通过一些实例,大家才真正知道正则表达式的强大。有的功能是仅仅用lisp提供的函数很难或无法做到的,而在这里,可一一化解。

1. 汉字和非汉字提取

先来点简单的,好让大家进入状态,虽然简单,但是在论坛上是经常被问到的问题:
·;;提取汉字及空格。
   ;每字分断,汉字按1个字.
(xxexp "[^!-~]" "a 测π啊d41数★M=3;is=,2" "")
;返回: (" " "" "π" "" "" "" "" "" "")
;连字不分断.
(xxexp "[^!-~]+" "a 测π啊d41数★M=3;is=,2" "")
;返回:(" 测π啊" "" "数★" "" "")
·;;提取汉字
(xxexp "[^ -~]" "a 测π啊d41数★M=3;is=,2" "")
(xxexp "[^\\000-\\377]" "a 测π啊d41数★M=3;is=,2" "")
;返回: ("" "π" "" "" "" "" "" "")
(xxexp "[\\u0C04-\\uFFFF]" "a 测π啊d41数★M=3;is=,2" "")
;;返回: ("" "" "" "" "" "" "") ;;(注: 查到16进制汉字从\\u0C04开始,这个方法应该是最准确的.
(xxexp "[^ -~]+" "a 测π啊d41数★M=3;is=,2" "")
(xxexp "[^\\000-\\377]+" "a 测π啊d41数★M=3;is=,2" "")
;返回:("测π啊" "" "数★" "" "")
·;;提取非汉字
(xxexp "[ -~]" "a 测π啊d41数★M=3;is=,2" "")
;返回:("a" " " "d" "4" "1" "M" "=" "3" ";" "i" "s" "=" "," "2")
(xxexp "[\\000-\\377]+" "a 测π啊d41数★M=3;is=,2" "")
;返回: ("a " "d4" "1" "M=3;is=" ",2")
·;;提取字母及数字
(xxexp "\\w" "a 测π啊d41数★M=3;is=,2" "")
;返回:("a" "d" "4" "1" "M" "3" "i" "s" "2")
·;;提取非字母及非数字
(xxexp "[^\\w]" "a 测π啊d41数★M=3;is=,2" "")
;返回:(" " "" "π" "" "" "" "" "=" ";" "=" "" "," "")
(xxexp "[^\\w]+" "a 测π啊d41数★M=3;is=,2" "")
;返回:(" 测π啊" "" "数★" "=" ";" "=," "")
·;; 提取连续两个相同的字符
(SETQ S (xxexp "(.)\\1" "aa看看 测试\"M==33\";is=,,2" ""))
;返回: ("aa" "看看" "==" "33" ",,")

2. 字符串处理

看了上面的实例,大家也许有点兴趣了,好,接着来。
·;; 提取由分界符界定的字符,呵呵,这个是论坛上被编写的比较多的程序之一.
(xxexp "[^ ;,]+" "a 测试M=3;is=,2" "") ;;返回: ("a" "测试M=3" "is=" "2")
是不是很容易? 但这只不过是牛刀小试,现在才刚刚开始。
·拆分字符串,1个汉字算1.
(xxexp "."  "1 ,.2e-5a‖〉∑∵∩∪チネヒжъμㄜ啊d41" "")
;返回: ("" "1" " " "," "" "." "2" "e" "-" "5" "a" "" "" "" "" "" "" "" "" "" "ж" "ъ" "μ" "" "" "d" "4" "" "1" "")
·按每两个字符进行分断。1个中文按1个计算。
(xxexp ".{2}" "aa 测试M==33;is=,,2" "")
;;返回: ("aa" " " "M" "==" "33" ";i" "s=" ",,")
·;;在两个连续字符处分断.(包含指定的分界符,本例指""
(setq s1 "aa 测看看试M==33;is=,,2")
(xxexp "[^]+" (xxexpr "(.)\\1" s1 "" "") "")
;返回: (" " "M" ";is=" "2")
·倒排文字(按字倒排,支持中文)
(setq str "The quick brown fox jumped over the lazy dog.")
(apply 'strcat (reverse(xxexp "." str "")))
;返回: ".god yzal eht revo depmuj xof nworb kciuq ehT"
(apply 'strcat (reverse(xxexp "." "i开头,跟至少1s" "")))
;返回:  "s1少至跟,头开i"
·简单替换,(但是用lisp写也不见得简单J )
  (setq str "IS11 is01 ISa1 iss11 id1 isss1 is1 IS1 ISa")

2.1 替换 is *,不分大小写

(xxexpr "is" str "*" "") ;-> "*11 *01 *a1 *s11 id1 *ss1 *1 *1 *a"

2.2 替换 i开头,s(至少1)的字符 为*

(xxexpr "is+" str "*" "") ;-> "*11 *01 *a1 *11 id1 *1 *1 *1 *a"

2.3 替换 非数字和非空格 为*
(xxexpr "[^0-9 ]" str "*" "") ;->"**11 **01 ***1 ***11 **1 ****1 **1 **1 ***"

2.4 替换 i开头,至少跟2s的字符为*

(xxexpr "Is{2,}" str "*" "") ;-> "IS11 is01 ISa1 *11 id1 *1 is1 IS1 ISa"

2.5 替换 i开头,跟1个非换行符的字符为*

(xxexpr "I." str "*" "") ;-> "*11 *01 *a1 *s11 *1 *ss1 *1 *1 *a"

2.6 替换 i开头,跟至少1s,+至少1个数字的字符 为*

(xxexpr "is{1,}\\d+" str "*" "") ;> "* * ISa1 * id1 * * * ISa"

下面的加点难度:

·.倒排文字(按空格划分)
(setq str "The quick brown fox jumped 至于 over the lazy dog")
(setq lst1 (xxexp "[^ |.]+" str ""))
;;返回: ("The" "quick" "brown" "" "fox" "jumped" "至于" "over" "" "the" "lazy" "dog.")
(setq lst2 (xxexp " +" str ""))
;;返回: (" " " " " " " " " " " " " " " " " " " " " " ".")
(apply 'strcat (mapcar 'strcat (reverse lst1)(reverse lst2)))
;;返回: "dog lazy the over 至于 jumped fox brown quick "

·.字符倒置
;; 将符合匹配(1+空格+2)中词1和词2对调
(xxexpr "(\\S+)(\\s+)(\\S+)" "brown  fox a" "$3$2$1" "") ;;返回:"啊  brown a fox"
;;= 号左右两边的字符对调.
(xxexpr "(.)([-|=])(.)" "a-b=1 : c=d : a" "$3$2$1" "") ;;返回: "b-a=1 : d=c : a"

3. 有条件的文本替换:

再加点难度。
·; "*(*)" 替换为 "*",论坛上只见过lzh写过这样一个程序,是用vba写的。
(xxexpr "(\\()([^\\(\\)]*)(\\))" "a(-)5()" "[$2]" "")
;返回: "a[-]5[]"
·; A*B*替换为B*C*
(xxexpr "(A{1})([^ABab]*)(B{1})" "A48.B4Axa8b5" "B$2C" "") ;替换所有匹配
;返回: "B48.C4AxB8C5"
(xxexpr "(A{1})([^ABab]*)(B{1})" "A48.B4Axa8b5" "B$2C" "g");替换第一个匹配的字符串
;返回:"B48.C4Axa8b5"
·;将符合 "*写程序*Yes*" 的字符串替换为 "***" .这个是不等式替换,用vlisp写起来容易么?
(xxexpr "(.*)写程序(.*)Yes(.*)" "33写程序74=YesYb" "$1$2$3" "")
;返回:"3374=Yb"
 再来几个对比测试,什么功能?有点考脑力啊:)
(xxexpr "(.*)写程序(.*)Yes(.*)" "33写程序74=YesYb" "$1$2$3" "")
;->"3374=Yb"             ;将”写程序”替换为”测”,去掉”Yes”
(xxexpr "(.*)写程序(.*)Yes(.*)" "33写程序74=YesYb" "$1$3" "")
 ;->"33Yb"                 ; 去掉”写程序””Yes”及其之间的字符。
(xxexpr "(.*)写程序(.*)Yes(.*)" "33写程序74=YesYb" "$2" "")
;->"74="                        ; 仅保留”写程序*Yes”之间的*部分.
(xxexpr "(.*)(写程序)(.*)(Yes)(.*)" "33写程序74=YesYb" "$1$4$2$3$5" "")
;->"33Yes写程序74=Yb"           ;将各部分随意倒置.
(xxexpr "(.*)(程序)(.*)(Yes)(.*)" "33写程序74=YesYb" "$1$2$3$5,$4!" "")
;->"33看程序74=Yb,Yes!"   ; "*写程序*Yes*"中的”写”改为看,”Yes”放到最后并加标点
· 替换字符串.=号后的10~99的数字字符改为*
(xxexpr "(.=)(\\d{2})([^\\d]+)" "M=56变量" "$1*$3" "") ;;返回:"M=*变量"
(xxexpr "(.=)(\\d{2})([^\\d]+)" "M=6变量" "$1*$3" "") ;;返回:"M=6变量"
(xxexpr "(.=)(\\d{2})([^\\d]+)" "M=556变量" "$1*$3" "") ;;返回:"M=556变量"
·;; 更改字符中包含 M=数字 的字符,将M改为X
(xxexpr "(M)(=)(\\d+)" "2M=56变量" "X$2$3" "") ;;返回:"2X=56变量"
·;; 将字符中a*d分别改为M*N
(xxexpr "(a)(.+)(d)" "测试a=c,d=e,a=3,d=1" "M$2N" "")
;;返回: "测试M=c,d=e,a=3,N=1" (全字按顺序匹配)
(xxexpr "(a)([^a|d]+)(d)" "测试a=c,d=e,a=3,d=1" "M$2N" "")
;;返回:"测试M=c,N=e,M=3,N=1"  (所有按顺序匹配).
·将字符 "我们*测试" 中的* 改为""
(xxexpr "(.*今天)([^测试]*)(测试?.*)" "今天我们一起测试这个函数,你来测试" "$1$3" "")
; ;返回:"今天不测试这个函数,你来测试";;(仅匹配第一次遇到的"测试"二字)
(xxexpr "(.*今天)(.*)(测试.*)" "今天我们一起测试这个函数,你来测试" "$1$3" "")
;;返回:"今天不测试" ;; 匹配最外层的"测试"二字)
是不是越来越晕了?还有呢,下面是两个测试,是有一定实践意义的更改文本内数字的程序。
·;; 更改字符中包含 M=数字 的字符,将数字加1.5。可能还有更好更有效的写法。
(defun c:test1()
(setq str "2M=56.5M=3M=.22"
      pat "(M)(=)(\\d{0,}\\.{0,1}\\d{1,})")
(setq lst (xxexp pat str ""))
;; 此步返回: ("M=56.5" "M=3" "M=.22")
(setq lst2(mapcar '(lambda(x)(strcat "M=" (rtos(+ 1.5(distof(vl-string-subst "" "M=" x)))2 2)))lst))
;此步返回:("M=58.00" "M=4.50" "M=1.72")
(mapcar '(lambda(x y)(setq str (xxexpr x str y ""))) lst lst2)
str)
;;最后返回: "2M=58.00M=4.50M=1.72"
· ;; a=d=开头的数字加一个数(1.75).。另外一种写法。
(defun c:test2()
   (setq str "测试a=2,d=3结果f=2,aa-3"
      add 1.75
      jd 2) ;精度
   (setq str2 (xxexpr "([a|d])(=)(\\d+)" str (strcat"$1$2(+ " (rtos add 2 jd) " $3)") ""))
;;返回: "测试a=(+ 1.75 2),d=(+ 1.75 3)结果f=2,aa-3"
   (setq as (mapcar '(lambda(x)(eval(read x))) (xxexp "(\\([^()]*\\))" str2  "")))
;;返回:("(+ 1.75 2)" "(+ 1.75 3)");返回:(3.75 4.75)
   (mapcar '(lambda(x)(setq str2 (xxexpr "([a|d])(=)(\\([^()]*\\))" str2 (strcat "$1$2" (rtos x 2 jd)) "g"))) as)
   str2
) ;;最后返回: "测试a=3.75,d=4.75结果f=2,aa-3"

4. 提取数字文本:

之所以把这个专门做一小节,是因为现实意义较大,而我以前也用vlisp写过这样的程序,但写起来难免有些考虑不到的情况,总是不爽,现在,终于可以松一口气。
先说说字符中的数字可能出现的情况。其实很简单,就是distof认得的就应该看做数字。如:
“+1“ “+1.0““+.3““1.3““1.3e1“ “1.3e2““1.3e-2“ 等.

虽然乍一看简单,但是如果遇到“..2.3 +-2.5.6e-3.6 -1d.+3e.1“等不规范的字符串,要正确提取数字用lisp写起来可就困难了。
现在看看正则表达式的功能如何,下面是我摸索到的,pat也许有更科学的写法。
·提取字符串内数字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)
·提取字符串内数字2
(setq str "-1e4-31++3485..3.1a.38 3..14f-.86e-1d3.a4f8.48"
      pat "[+|-]?\\d*\\.?\\d+(e[+|-]*\\d+)*")
(xxexp  pat str "")
;;返回: ("-1e4" "-31" "+3485" ".3" ".1" ".38" "3" ".14" "-.86e-1" "3" "4" "8.48")
;;下面再验证是否是数字.
  (mapcar 'distof (xxexp  pat str ""))
  ;;返回:(-10000.0 -31.0 3485.0 0.3 0.1 0.38 3.0 0.14 -0.086 3.0 4.0 8.48)

5. 函数各参数对比   

  结束前,对函数的各参数的用法做一些实例,以便通过对比加深理解。
·xxexp参数及partten对比测试
(setq str "IS11 is01 ISa1 iss11 id1 isss1 is1 IS1 ISa")

1.1;查找 str 中符合 is开头跟至少1个数字的字符. i 大小写敏感;g 全局(仅找第一个符合条件的字符)

(xxexp "is\\d+" str "iG") ;-> ("is0") ; 小写,第一个
(xxexp "is\\d+" str "i") ;-> ("is01" "is1") ;小写,全局
(xxexp "is\\d+" str "g") ;->("IS11");大小写,第一个
(xxexp "is\\d+" str "") ;-> ("IS11" "is01" "is1" "IS1");大小写,所有.

1.2 查找IS开头,跟非换行单字符,跟0-9数字

(xxexp "IS.[0-9]" str "") ;-> ("IS11" "is01" "ISa1" "iss1")

1.3 查找IS开头,跟非Aa,跟0-9数字

(xxexp "IS[^Aa][0-9]" str "") ;->("IS11" "is01" "iss1")

1.4 查找IS开头,至少两个S的字符

(xxexp "IS{2,}" str "") ;-> ("iss" "isss")

1.5 查找IS开头,跟两个数字

(xxexp "IS[0-9][0-9]" str "") ;-> ("IS11" "is01")

1.6 查找IS开头,跟两个数字,大小写敏感.

(xxexp "IS[0-9][0-9]" str "i") ;-> ("IS11")

1.7 查找IS开头,1个数字.

(xxexp "IS[0-9]" str "") ;-> ("IS1" "is0" "is1" "IS1")

1.8 查找IS开头,1个数字,跟空格.


(xxexp "IS[0-9] " str "") ;-> ("is1 " "IS1 ")

·xxexp和xxexpr的配合使用

  Xxexp 可提取符合条件的字符(列表),得到的表可提供给别的程序进行进一步处理。
  Xxexpr 替换的结果(个数),可以用xxexp预知。
    (xxexp "\\band\\b" "weekend,endfor,end" "") ;返回: nil ;没有一个匹配
(xxexpr "\\band\\b" "weekend,endfor,end" "start" "")
;返回:"weekend,endfor,end" ;不改变字符串
(xxexp "\\bend\\b" "weekend,endfor,end" "")  
;返回: ("end") ;; 仅仅有一个匹配. \\b:指单词边界.
(xxexpr "\\bend\\b" "weekend,endfor,end" "start" "")
;返回: "weekend,endfor,start" ;仅替换一个.
(xxexp "end" "weekend,endfor,end" "")
;返回: ("end" "end" "end") ;;有三个匹配
(xxexpr "end" "weekend,endfor,end" "start" "")
;返回: "weekstart,startfor,start" ;替换3.

[结语:“一刀屠文”
通过pat,和key的不同设定,可以看到正则表达式的功能不少一般的强,对应一种要求,pat可能有不只一种写法,只要pat写的好,在字符处理上,你能做的很多很多,而且也轻而易举,免去写n个程序的痛苦。呵呵,我以前写的几十个字符串处理函数很多都要下岗贱卖了。
差点忘了给这两个函数起个名号了,鉴于文字处理方面叫的好听的名号都被用的差不多了,大师之类的又不敢叫,一时间也想不到更好的,暂时叫“一刀屠文”吧,“屠”,表示对文字的深入解析,刀随心动,所向披靡,物我两忘。(%^$哎哟!谁砸的砖头!$%#
今天就到这里吧,更多更强的功能等待你去发现。
                                                        梁雄啸
   2007.7.28





一刀屠文-在lisp中应用正则表达式.rar

22.98 KB, 下载次数: 311, 下载积分: D豆 -1 , 活跃度 1

word原文档

一刀屠文(xxexp,xxexpr).rar

2.11 KB, 下载次数: 346, 下载积分: D豆 -1 , 活跃度 1

函数

评分

参与人数 3威望 +2 D豆 +20 贡献 +3 收起 理由
wowan1314 + 5 很给力!!
xshrimp + 1 + 5 + 1 很给力!经验;技术要点;资料分享奖!
XDSoft + 1 + 10 + 2 技术引导讨论和指点奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

签到天数: 25 天

连续签到: 1 天

[LV.4]偶尔看看III

点击这里给我发消息

 楼主| 发表于 2013-6-20 00:39:13 | 显示全部楼层
源码:
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:一刀屠文.lsp 
下载次数:212  文件大小:2.71 KB  售价:5D豆 [记录]
下载权限: 不限 以上  [免费赚D豆]


点评

提供的函数中参数 key的判断弄反了! (mapcar '(lambda(x) (if (wcmatch key (strcat "*" (car x) "*")) (vlax-put *xxvbsexp (read(cadr x)) 0) (vlax-put *xxvbsexp (read(cadr x))  详情 回复 发表于 2013-6-20 12:37
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 555 天

连续签到: 5 天

[LV.9]以坛为家II

已领礼包: 64个

财富等级: 招财进宝

发表于 2013-6-20 07:43:53 | 显示全部楼层
传说中的无痕大侠重出江湖了:)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 918 天

连续签到: 1 天

[LV.10]以坛为家III

已领礼包: 803个

财富等级: 财运亨通

发表于 2013-6-20 08:21:14 | 显示全部楼层
牛啊,这么几句程序就能完成如此多的功能。大侠!:lol
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1427 天

连续签到: 5 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 2613个

财富等级: 家财万贯

发表于 2013-6-20 09:07:59 | 显示全部楼层
这可是难点,下来好好学习下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 491 天

连续签到: 1 天

[LV.9]以坛为家II

点击这里给我发消息

发表于 2013-6-20 09:16:30 | 显示全部楼层
老师,真是太好了,我们可以直接使用正则表达式了。谢谢老师的自定义函数,100个豆也要买啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 434 天

连续签到: 1 天

[LV.9]以坛为家II

点击这里给我发消息

发表于 2013-6-20 11:21:57 | 显示全部楼层
牛人,学习学习
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 58 天

连续签到: 1 天

[LV.5]常住居民I

发表于 2013-6-20 12:37:40 | 显示全部楼层

提供的函数中参数 key的判断弄反了!

  (mapcar '(lambda(x)
             (if (wcmatch key (strcat "*" (car x) "*"))
               (vlax-put *xxvbsexp (read(cadr x)) 0)
               (vlax-put *xxvbsexp (read(cadr x)) -1)
               ))
          keys)
==》

  (mapcar '(lambda(x)
             (if (wcmatch key (strcat "*" (car x) "*"))
               (vlax-put *xxvbsexp (read(cadr x)) 1)
               (vlax-put *xxvbsexp (read(cadr x)) 0)
               ))
          keys)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 127 天

连续签到: 1 天

[LV.7]常住居民III

发表于 2013-6-20 12:41:23 | 显示全部楼层
呵呵,一刀图文:lol:lol
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 607 天

连续签到: 1 天

[LV.9]以坛为家II

点击这里给我发消息

发表于 2013-6-20 13:15:28 | 显示全部楼层
(%^$哎哟!谁砸的砖头!$%#)亮点!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 369 天

连续签到: 2 天

[LV.9]以坛为家II

发表于 2013-6-20 18:26:38 来自手机 | 显示全部楼层
windows 7 x64 run ok来自: Android客户端
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 788 天

连续签到: 12 天

[LV.10]以坛为家III

已领礼包: 1515个

财富等级: 堆金积玉

发表于 2013-6-26 10:08:15 | 显示全部楼层
还没搞前程,正则表达式 是不是相当于外部api 需要跟lisp连接吗?怎么在lisp里面调用呀?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 788 天

连续签到: 12 天

[LV.10]以坛为家III

已领礼包: 1515个

财富等级: 堆金积玉

发表于 2013-6-27 09:30:50 | 显示全部楼层
楼上有人说 函数写反了,是真的吗?求真相哦
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 300 天

连续签到: 1 天

[LV.8]以坛为家I

点击这里给我发消息

发表于 2014-3-12 12:37:08 | 显示全部楼层
久仰大名  果然名不虚传  
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 26 天

连续签到: 1 天

[LV.4]偶尔看看III

发表于 2014-4-14 14:54:18 | 显示全部楼层
正则很强大
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2018-12-14 14:10 , Processed in 0.282587 second(s), 68 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表