关于正则表达式的问题，如何匹配两个字符之间的字符串？

Lisphk

比如： str=abc234bc, 怎么能匹配出c和b之间的 234 ？

st788796

这些怎么都记不住, google 了一下
_$ (xd::string:regexps "[A-Za-z]+|[0-9]+|[A-Za-z]+" "cccdc234ddde" "")
("cccdc" "234" "ddde")
_$ (xd::string:regexps "[0-9]+" "cccdc234ddde" "")
("234")
_$ (xd::string:regexps "[0-9.0-9]+" "cccdc234.233ddde" "")
("234.233")
_$

Lisphk

st788796 发表于 2013-11-30 23:13
这些怎么都记不住, google 了一下
_$ (xd::string:regexps "[A-Za-z]+|[0-9]+|[A-Za-z]+" "cccdc234ddde" ...

大师，能通用些吗，不一定都是数字的

比如：
str= abc2345

想获得 b 和4 之间 c23 如果写？

st788796

Lisphk 发表于 2013-11-30 23:24
大师，能通用些吗，不一定都是数字的

比如：

只能对照着说明, 一个个试, 真记不住
_$ (xd::string:regexps "\c[2-3]+" "abc2345" "")
("c23")
_$

Lisphk

st788796 发表于 2013-11-30 23:32
只能对照着说明, 一个个试, 真记不住
_$ (xd::string:regexps "\c[2-3]+" "abc2345" "")
("c23")

上面的 C 和 4 要是任意字符呢？

st788796

Lisphk 发表于 2013-12-1 00:16
上面的 C 和 4 要是任意字符呢？

太复杂
_$ (xd::string:regexps "\c.+[4]" "addfac22dfdadsf4fdadfa" "\"m\"")
("c22dfdadsf4")
_$ (xd::string:regexps "\c.+[4]" "addfac42dfd单放机阿利克送风机阿嫂a!@###dsf4fdadfa" "\"m\"")
("c42dfd单放机阿利克送风机阿嫂a!@###dsf4")
_$

st788796

_$ (xd::string:regexps "c.+4" "dadfcfdlksafsa4oi4fas"  "")
("cfdlksafsa4oi4")
_$ (xd::string:regexps "c[\\s\\S]+4" "dadfcfdlksaf放大森林开发大sa4oi4fas"  "")
("cfdlksaf放大森林开发大sa4oi4")

Lisphk

st788796 发表于 2013-12-1 08:24
_$ (xd::string:regexps "c.+4" "dadfcfdlksafsa4oi4fas"  "")
("cfdlksafsa4oi4")
_$ (xd::string:regex ...

不包括 C 和 4 呢？ 怎么写？

st788796

Lisphk 发表于 2013-12-1 10:45
不包括 C 和 4 呢？ 怎么写？

加个 "非"
"[^c].+[^4]"

Lisphk

st788796 发表于 2013-12-1 11:02
加个 "非"
"[^c].+[^4]"

不对啊

(setq a "abc2434dge")
"abc2434dge"


(xd::string:regexps "[^c].+[^d]" a "")  取c和d之间不包括c和d
("abc2434dge")

ayl1004

一般情况下，我用vl-string-search

st788796

Lisphk 发表于 2013-12-1 12:16
不对啊

(setq a "abc2434dge")

搞不定了，找出来后用substr吧
一般vl-string 类能搞定的就不动用这把"牛刀"了

aeo

str= abc2345--》想获得 b 和4 之间 c23 如果写？

替换提取出来就行
pat 这么写    "^.*b(.*)4.*$"

（:regexpreplace pat str "$1" "")

st788796

aeo 发表于 2014-3-14 23:24
str= abc2345--》想获得 b 和4 之间 c23 如果写？

替换提取出来就行

正则表达式的强大毋庸置疑，不过 Lisp 中还是要有选择的使用为上

1. (defun String:Between (str Start End / pos)
   
2.   (if (and (setq pos (vl-string-search Start str))
   
3.            (if (> (ascii (substr str (1+ pos) 1)) 128)
   
4.              (setq pos (+ 3 pos))
   
5.              (setq pos (1+ pos))
   
6.            )
   
7.            (setq str (substr str pos))
   
8.            (setq pos (vl-string-search End str))
   
9.            (setq str (substr str 1 pos))
   
10.       )
    
11.     str
    
12.     nil
    
13.   )
    
14. )

(defun String:Between (str Start End / pos)<br />   (if (and (setq pos (vl-string-search Start str))<br />            (if (> (ascii (substr str (1+ pos) 1)) 128)<br />              (setq pos (+ 3 pos))<br />              (setq pos (1+ pos))<br />            )<br />            (setq str (substr str pos))<br />            (setq pos (vl-string-search End str))<br />            (setq str (substr str 1 pos))<br />       )<br />     str<br />     nil<br />   )<br /> )