Use Regex to extract string between two words in a multi line string.

Hi peispud,

It could be something like :

Set objRegExp_1 = CreateObject("vbscript.regexp")
objRegExp_1.Global =true
objRegExp_1.MultiLine =true
objRegExp_1.IgnoreCase=true
objRegExp_1.Pattern =(?<=\<)(.*?)(?=\>)

Set regExp_Matches = objRegExp_1.Execute("your multiline string here")

Select allOpen in new window

(Not tested yet)

You could loop through the matches like :

If regExp_Matches.Count <> 0 Then
        For Each match In regExp_Matches
                Debug.Print match.Value
        Next
End If

Select allOpen in new window

Here's a live example of the pattern :

https://regex101.com/r/FOcxzF/1

To return the greater/lower-than signs you could use :

https://regex101.com/r/UMDKmh/1

Thank you...

But I am looking for the text between "Circuit Name:"  and "Issued By" (with no n-print characters removed).

The pattern does make reference to this.

You're welcome,

Not sure what you meant by n-print characters.

The function would look something like this

Private Function Regex_GetInfo(ByVal strMultiline As String) As String
    Dim str1 As String: str1 = "Circuit Name:"
    Dim str2 As String: str2 = "Issued by:"

    Set objRegExp_1 = CreateObject("vbscript.regexp")
    objRegExp_1.Global = True
    objRegExp_1.Multiline = True
    objRegExp_1.IgnoreCase = True
    objRegExp_1.Pattern = "<(?<=\<)(.*?)(?=\>)"
   
    Set regExp_Matches = objRegExp_1.Execute(strMultiline)
   
   
    If regExp_Matches.Count = 1 Then
        'MsgBox ("This string is a valid email address.")
        Regex_GetInfo = Match.Value
    End If
End Function

You are correct!!!

Thank you very much. Happy holidays!

Welcome anytime, glad to help brother.

Happy New Year!