《在lisp中应用正则表达式》由会员分享，可在线阅读，更多相关《在lisp中应用正则表达式（12页珍藏版）》请在金锄头文库上搜索。
1、在在 lisplisp 中应用正则表达式中应用正则表达式 序序 长久以来，文本的编辑一直是 lisp 编程的重点、难点之一，有不少活跃在 xdcad 和明经通道论坛的高手为此写了不少有代表性的文字处理工具，比较知名的如： 。而我自己也写过不少这方面的程序，多数没有发表，少数零星地发布在以上两个论坛。但由于 lisp 对文本编辑(*注)的支持函数不够丰富，而实际工作中遇到的情况又多种多样，使得诸多lisp 程序对文本编辑的深度和灵活性上还有很多不足之处，不免遗憾。为此，我一直以来寻求更好的方法，最终只有一个答案：正则表达式。正则表达式对文本编辑很强，有多强？看看 vb 或 vbs 参考就知道，也
2、可上网一搜。但是，也许本人孤陋寡闻(或是有的高手潜水潜得很深)，在网上一直没有见过在 lisp 中比较充分地应用正则表达式的程序。其实，我很早就想将正则表达式移植到 lisp 里面来，近几日一鼓作气，终有小成。谨奉献两个函数：(xxexp)(xxexpr)，这两个函数提供了正则表达式的接口，使在 lisp 中得以应用其强大的功能成为可能。 梁雄啸.2007.7*注:“文本”在本文均指对文本字符串内容，非指文本实体(0 . “*TEXT”)函数下载地址： http:/ys- 函数介绍函数介绍 函数：函数：(xxexp(xxexp patpat strstr key)key)功能功能 对字符串进行
3、正则表达式匹配测试对字符串进行正则表达式匹配测试. . 参数参数: : patpat = = 正则表达式模式正则表达式模式 , ,对应对应 vbsvbs 正则表达式的模式正则表达式的模式( (expressionexpression) )。说明。说明: : 号要号要用用 替代替代. .strstr = = 字符串字符串keykey = = “i“i“ “g“g“ “m“m“ , , “i“i“不区分大小写（不区分大小写（IgnorecaseIgnorecase）,“g“,“g“全局匹配（全局匹配（GlobalGlobal）.”.”m”m”多行模式（多行模式（MultilineMultiline
4、），以上几个关键字可以组合使用，或用），以上几个关键字可以组合使用，或用 ”.”.返回返回: : 返回匹配的字符列表，或无一匹配返回返回匹配的字符列表，或无一匹配返回 nilnil函数：函数：(xxexpr(xxexpr patpat strstr nstrnstr key)key)功能功能 对字符串进行正则表达式替换对字符串进行正则表达式替换. . 参数参数: : patpat = = 正则表达式模式正则表达式模式 , ,对应对应 vbsvbs 正则表达式的模式正则表达式的模式( (expressionexpression) )。说明。说明: : 号要号要用用 替代替代. .strstr =
5、 = 被替换字符串被替换字符串nstrnstr = = 替换字符串替换字符串keykey = = “i“i“ “g“g“ “m“m“ , , “i“i“不区分大小写（不区分大小写（IgnorecaseIgnorecase）,“g“,“g“全局匹配（全局匹配（GlobalGlobal）.”.”m”m”多行模式（多行模式（MultilineMultiline），以上几个关键字可以组合使用，或用），以上几个关键字可以组合使用，或用 ”.”.返回返回 : :返回替换后的字符串返回替换后的字符串. .正则表达式模式正则表达式核心就是其模式(expression)，此部分资料可从网上或 vb，vbs 参考
6、中得到。以下是 vbs 参考中关于模式的描述列表。在 xxexp,xxexpr 函数应用中,注意”符要按”来写。字符字符描述描述将下一个字符标记为一个特殊字符、或一个原义字符、或一个 向后引用、或一个八进制转义符。例如，n 匹配字符 “n“。n 匹配一个换行符。序列 匹配 “ 而 “(“ 则匹配 “(“。匹配输入字符串的开始位置。如果设置了 RegExpRegExp 对象的 MultilineMultiline 属性， 也匹配 n 或 r 之后的位置。$匹配输入字符串的结束位置。如果设置了 RegExpRegExp 对象的 MultilineMultiline 属性，$ 也匹配 n 或 r 之
7、前的位置。*匹配前面的子表达式零次或多次。例如，zo* 能匹配 “z“ 以及 “zoo“。* 等价于0,。+匹配前面的子表达式一次或多次。例如，zo+ 能匹配 “zo“ 以及 “zoo“，但不能匹配 “z“。+ 等价于 1,。?匹配前面的子表达式零次或一次。例如，“do(es)?“ 可以匹配 “do“ 或 “does“ 中的“do“ 。? 等价于 0,1。nn 是一个非负整数。匹配确定的 n 次。例如，o2 不能匹配 “Bob“ 中的 o，但是能匹配 “food“ 中的两个 o。n,n 是一个非负整数。至少匹配n 次。例如，o2, 不能匹配 “Bob“ 中的 o，但能匹配 “foooood“
8、中的所有 o。o1, 等价于 o+。o0, 则等价于 o*。n,mm 和 n 均为非负整数，其中n “*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 开头，至少跟 2 个 s 的字符为*(xxexpr “Is2,“ str “*“
9、 “) ;- “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 开头，跟至少 1 个 s,+至少 1 个数字的字符 为*(xxexpr “is1,d+“ str “*“ “) ; “* * ISa1 * id1 * * * ISa“下面的加点难度:.倒排文字(按空格划分)(setq str “The quick brown 啊 fox jumped 至于 over the l
10、azy 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
11、啊 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.3. 有条件的文本替换有条件的文本替换: :再加点难度。; “*(*)“ 替换为 “*“，论坛上只见过 lzh 写过这样一个程序，是用 vba 写的。(xxexpr “()(
12、)*)()“ “a(顶-啊)5()“ “$2“ “) ;返回: “a顶-啊5“ ; A*B*替换为 B*C*(xxexpr “(A1)(ABab*)(B1)“ “A48.B 小 4Axa8b5“ “B$2C“ “) ;替换所有匹配;返回: “B48.C 小 4AxB8C5“ (xxexpr “(A1)(ABab*)(B1)“ “A48.B 小 4Axa8b5“ “B$2C“ “g“);替换第一个匹配的字符串 ;返回:“B48.C 小 4Axa8b5“ ;将符合 “*写程序*Yes*“ 的字符串替换为 “*测*试*“ .这个是不等式替换，用 vlisp 写起来容易么？(xxexpr “(.*)写
13、程序(.*)Yes(.*)“ “33 写程序 74=YesYb“ “$1 测$2 试$3“ “) ;返回:“33 测 74=试 Yb“再来几个对比测试，什么功能？有点考脑力啊：）(xxexpr “(.*)写程序(.*)Yes(.*)“ “33 写程序 74=YesYb“ “$1 测$2$3“ “);-“33 测 74=Yb“ ；将”写程序”替换为”测”,去掉”Yes”(xxexpr “(.*)写程序(.*)Yes(.*)“ “33 写程序 74=YesYb“ “$1 测$3“ “);-“33 测 Yb“ ; 去掉”写程序”Yes”及其之间的字符。(xxexpr “(.*)写程序(.*)Yes(
14、.*)“ “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”放到最后并加标点 替换字符串.将=号后的 1099 的数字字符改为*(xxexpr “(.=)(d2)(d+)“ “M=56 变量“ “$1*$3“ “) ;返回:“M=*变量“(xxexpr “(.=)(d2)(d+)“ “M=6 变量“ “$1*$3“ “) ;返回:“M=6 变量“(xxexpr “(.=)(d2)(d+)“ “M=556 变量“ “$1*$3“ “) ;返回:“M=556 变量“; 更改字符中包含 M=数字 的字符，将 M 改为 X(xxexpr “(M)(=)(d+)“ “2 至 M=56 变量“ “X$2$3“ “) ;返回:“2 至 X=56 变量“; 将字符中
