正则如何搜索同时包含两个字符串的条件？

Emacs-general
1

在color-rg中搜索 str1.*str2，可以查到 str1 and str2 这样的行，

但是如何可以同时查到 str2 and str1 这样的呢？要反过来查两次的话太麻烦了。

2

用分组操作，中间用一个 \| 或操作符号链接两个正则表达式

3

是这样么：str1.*str2\|str2.*str1

好像两组都查找不到了

4

\(str1.*str2\)\|\(str2.*str1\)

小括号也可能不用加斜杠。

5

括号加不加斜杠都搜不到

6 
chino@asus-laptop:~/tmp/ccc$ cat testfile 
foobarandbazqux
bazquxandfoobar
chino@asus-laptop:~/tmp/ccc$ rg '(foobar|bazqux).*(bazqux|foobar)' .
./testfile
1:foobarandbazqux
2:bazquxandfoobar
chino@asus-laptop:~/tmp/ccc$ rg '(foobar.*bazqux)|(bazqux.*foobar)' .
./testfile
1:foobarandbazqux
2:bazquxandfoobar
7

用了一下 color-rg-search-input-in-current-file 命令，搜索 (str1.*str2)|(str2.*str1) 就可以了，不用反斜杠转义。因为翻译成命令行的时候会自动转义

8

Perl 5 regexp:

或

/A|B/

与

/^(?=.*A)B/

非

/^(?:(?!A).)*$/

与非结合

/(?=^(?:(?!A).)*$)B/
2 个赞
9

这个还会匹配到 foobarANDfoobar 和 bazquxANDbazqux。

10

可以用，感谢，这下可以多一个搜索方式了

11

这个正则在rg中用好像不太一样，或条件写 /str1|str2/ 搜不到，写成 (str1|str2) 就可以搜到

12

我主要是想用来搜索同时包含两个tag的笔记，每两个tag就要写两个小括号组合，如果要搜索三个tag，岂不是要写6个小括号组合 :joy:

13

搞定，现在可以用空格来搜索多个关键词了，舒服。


(defun eye--build-or-regexp-by-keywords (keywords)
  "构建or语法的正则"
  (let (wordlist tmp regexp)
    (setq wordlist (split-string keywords " "))
    (dolist (word wordlist)
      (setq tmp (format "(%s)" word))
      (if regexp (setq regexp (concat regexp "|")))
      (setq regexp (concat regexp tmp)))
    regexp
    ))

(defun eye--build-and-regexp-by-keywords (keywords)
  "构建and语法的正则"
  (let (reg wlist fullreg reglist)
    (setq wlist (split-string keywords " "))
    (dolist (w1 wlist)
      (setq reg w1)
      (dolist (w2 wlist)
	(unless (string-equal w1 w2)
	  (setq reg (format "%s.*%s" reg w2))))
      (setq reg (format "(%s)" reg))
      (add-to-list 'reglist reg)      
      )
    ;; 还要反过来一次
    (dolist (w1 wlist)
      (setq reg w1)
      (dolist (w2 (reverse wlist))
	(unless (string-equal w1 w2)
	  (setq reg (format "%s.*%s" reg w2))))
      (setq reg (format "(%s)" reg))
      (add-to-list 'reglist reg)
      )
    
    (dolist (r reglist)      
      (if fullreg (setq fullreg (concat fullreg "|")))
      (setq fullreg (concat fullreg r)))

    fullreg
    ))

(defun eye/search-or-by-rg ()
  "以空格分割关键词，以or条件搜索多个关键词的内容
如果要搜索tag，可以输入`:tag1 :tag2 :tag3'
"
  (interactive)
  (let* ((keywords (read-string "Or Search(rg): "))
	 (regexp (eye--build-or-regexp-by-keywords keywords)))    
    (message "search regexp:%s" regexp)
    (color-rg-search-input regexp)
    ))


(defun eye/search-and-by-rg ()
  "以空格分割关键词，以and条件搜索同时包含多个关键词的内容
如果要搜索tag，可以输入`:tag1 :tag2 :tag3'
"
  (interactive)
  (let* ((keywords (read-string "And Search(rg): "))
	 (regexp (eye--build-and-regexp-by-keywords keywords)))
    (message "search regexp:%s" regexp)
    (color-rg-search-input regexp)
    ))
1 个赞