Regex bei automatischer Profilauswahl und Ablegen von Dokumenten ist nun caseinsensitive - frmAdministration, frmIndex

This commit is contained in:
OlgunR 2025-07-30 08:10:29 +02:00
parent cd3b2f1ae3
commit 8810592e6d
3 changed files with 5 additions and 5 deletions

View File

@ -14,8 +14,8 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyDescription("")> <Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("fileFLOW")> <Assembly: AssemblyProduct("fileFLOW")>
<Assembly: AssemblyCopyright("Copyright © 2024")> <Assembly: AssemblyCopyright("Copyright © 2025")>
<Assembly: AssemblyTrademark("2.7.4.0")> <Assembly: AssemblyTrademark("2.8.0.0")>
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>
@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.7.4.3")> <Assembly: AssemblyVersion("2.8.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

View File

@ -1059,7 +1059,7 @@ Public Class frmAdministration
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
Try Try
If Regex.IsMatch(TextBox1.Text, TextBox5.Text) Then If Regex.IsMatch(TextBox1.Text, TextBox5.Text, RegexOptions.IgnoreCase) Then
MsgBox("The RegEx resulted in a proper match!", MsgBoxStyle.Information, "Perfect:") MsgBox("The RegEx resulted in a proper match!", MsgBoxStyle.Information, "Perfect:")
Else Else
MsgBox("No Match- There might be an error in the RegEx!", MsgBoxStyle.Information, "Something wrong:") MsgBox("No Match- There might be an error in the RegEx!", MsgBoxStyle.Information, "Something wrong:")

View File

@ -1841,7 +1841,7 @@ Public Class frmIndex
If oApplyRegex Then If oApplyRegex Then
For Each oRoW As DataRow In DTTBGI_REGEX_DOCTYPE.Rows For Each oRoW As DataRow In DTTBGI_REGEX_DOCTYPE.Rows
Dim oOnlyFilename = Path.GetFileName(CURRENT_WORKFILE) Dim oOnlyFilename = Path.GetFileName(CURRENT_WORKFILE)
If Regex.IsMatch(oOnlyFilename, oRoW.Item("Regex")) Then If Regex.IsMatch(oOnlyFilename, oRoW.Item("Regex"), RegexOptions.IgnoreCase) Then
_Logger.Debug("There is a match on REGEX_DOCTYPE: [{0}]", oRoW.Item("DOCTYPE")) _Logger.Debug("There is a match on REGEX_DOCTYPE: [{0}]", oRoW.Item("DOCTYPE"))
_Logger.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename) _Logger.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename)