用正则表达式提取多行文本

onthetrip

文本形式如下：

1. "@a" & vbCrLf & _
   
2.          "b" & vbCrLf & _
   
3.          "c" & vbCrLf & _
   
4.          "d"

复制代码

想提取@和d之间的文本，想一次性得到文本结果如下：
a
b
c
应该怎样写正则表达式？谢谢。

yajq

用split嵌套可以

cnmlgb9998

上文件！！！！！！！！！！！不懂规矩啊

onthetrip

yajq 发表于 2024-7-1 21:02
用split嵌套可以

想学一下正则，实际文本比这个复杂

onthetrip

cnmlgb9998 发表于 2024-7-1 21:10
上文件！！！！！！！！！！！不懂规矩啊

抱歉，不懂规矩，正在学习中。没有文本的附件，就几行模拟测试的代码，我贴代码吧。

1. Sub ExtractText()
   
2.     Dim inputText As String
   
3.     Dim regex As Object
   
4.     Dim matches As Object
   
5.     Dim match As Object
   
6.     inputText = "@a" & vbCrLf & "b" & vbCrLf & "c" & vbCrLf & "d"
   
7.     Set regex = CreateObject("VBScript.RegExp")
   
8.     With regex
   
9.         .Global = True
   
10.         .Pattern = ""'求一个正则表达式
    
11.     End With
    
12.     Set matches = regex.Execute(inputText)
    
13.     MsgBox matches(0)
    
14. End Sub
    

复制代码

limonet

关键字：\n+

limonet

Sub limonet()
    With CreateObject("vbscript.regexp")
        .Pattern = "@(.*\n)+.*(?=d)"
        MsgBox Mid(.Execute([a1])(0), 2)
    End With
End Sub

cidanji

ggmmlol

写出匹配目标内容的核心表达式，套公式即可得到完整表达式。

这是用正则的Replace方法得到目标字符的标准套路解法，比用Execute方法更加灵活、强大。而套用公式，也使得整个表达式的编写只需要关心核心部分，非常简便。

1. Sub ExtractText()
   
2.    
   
3.     Dim inputText As String, eXp As String
   
4.    
   
5.     eXp = "@([^@d]+)d" '提取@到d之间的字符。     核心表达式！
   
6.    
   
7.     Dim RegEx As Object
   
8.     inputText = "@a" & vbCrLf & "b" & vbCrLf & "c" & vbCrLf & "d"
   
9.     Set RegEx = CreateObject("VBScript.RegExp")
   
10.     With RegEx
    
11.         .Global = True
    
12.         eXp = Replace("[\d\D]*?eXp|[\d\D]+", "eXp", eXp) '套用公式，得到完整表达式
    
13.         .Pattern = eXp '求一个正则表达式
    
14.         MsgBox .Replace(inputText, "$1")
    
15.     End With
    
16. End Sub

复制代码

onthetrip

ggmmlol 发表于 2024-7-2 05:23
写出匹配目标内容的核心表达式，套公式即可得到完整表达式。

这是用正则的Replace方法得到目标字符的标 ...

谢谢回复。如果@和d这两个标志不是一个字符，而是一个字符串怎么修改呢，如提取abc及efg之间的文本。