extractFromHeader: Make regex matching case insensitive

This commit is contained in:
Jonathan Jenne 2021-07-06 16:40:17 +02:00
parent 21ea774aa7
commit 2ca5bd4c37

View File

@ -63,7 +63,7 @@ Public Class ClassEmailHeaderExtractor
End If
' einen Regulären Ausdruck laden
Dim strRegex As String = Regex
Dim myRegex As New Regex(strRegex, RegexOptions.IgnorePatternWhitespace)
Dim myRegex As New Regex(strRegex, RegexOptions.IgnorePatternWhitespace Or RegexOptions.IgnoreCase)
Dim strTargetString As String = messageHeaders.Trim
' die Vorkommen im String auslesen
For Each myMatch As Match In myRegex.Matches(strTargetString)