AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

V 2.7.4.3 Dateinamen in SQL Editor

Browse Source
This commit is contained in:
Developer01
2025-05-23 10:17:40 +02:00
parent cf19eb5402
commit c6d49b988b
6 changed files with 3020 additions and 1724 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
Global_Indexer/ClassPatterns.vb
View File

@@ -4,6 +4,7 @@ Imports DigitalData.Controls.LookupGrid
Imports DigitalData.Modules.Base
Imports DigitalData.GUIs.GlobalIndexer
Imports WINDREAMLib
Imports System.IO
''' <summary>
''' Defines common Functions for Checking for and replacing placeholders.
@@ -42,6 +43,11 @@ Public Class ClassPatterns
Public Const INT_VALUE_WMDocID = "WMDocID"
Public Const INT_VALUE_IDBID = "IDBObjID"
Public Const INT_VALUE_FILENAME_EXT = "FILENAME_EXT"
Public Const INT_VALUE_FILENAME = "FILENAME_ONLY"
Public Const INT_VALUE_FILEEXT = "FILE_EXT"
Public Const INT_VALUE_FILE_DATE = "FILE_DATE"
Public Const MAX_TRY_COUNT = 20
Private Shared ReadOnly regex As Regex = New Regex("{#(\w+)#([\.\w\d\s_-]+)}+")
@@ -103,6 +109,46 @@ Public Class ClassPatterns
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_IDBID)
oResult = ReplacePattern(oResult, PATTERN_INT, CURRENT_DOC_ID)
End While
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_FILENAME_EXT)
If Not IsNothing(CURRENT_WORKFILE) Then
If File.Exists(CURRENT_WORKFILE) Then
Dim oFileName As String = Path.GetFileName(CURRENT_WORKFILE)
oResult = ReplacePlaceholder(PATTERN_INT, oResult, INT_VALUE_FILENAME_EXT, oFileName)
End If
End If
End While
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_FILENAME)
If Not IsNothing(CURRENT_WORKFILE) Then
If File.Exists(CURRENT_WORKFILE) Then
Dim oFileNameOnly As String = Path.GetFileNameWithoutExtension(CURRENT_WORKFILE)
oResult = ReplacePlaceholder(PATTERN_INT, oResult, INT_VALUE_FILENAME, oFileNameOnly)
End If
End If
End While
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_FILEEXT)
If Not IsNothing(CURRENT_WORKFILE) Then
If File.Exists(CURRENT_WORKFILE) Then
Dim oFileExt As String = Path.GetExtension(CURRENT_WORKFILE).Substring(1)
oResult = ReplacePlaceholder(PATTERN_INT, oResult, INT_VALUE_FILEEXT, oFileExt)
End If
End If
End While
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_FILE_DATE)
If Not IsNothing(CURRENT_WORKFILE) Then
If File.Exists(CURRENT_WORKFILE) Then
Dim oCreationDate As DateTime = File.GetCreationTime(CURRENT_WORKFILE)
Dim oDateOnlyString As String = oCreationDate.ToString("yyyy-MM-dd")
oResult = ReplacePlaceholder(PATTERN_INT, oResult, INT_VALUE_FILE_DATE, oDateOnlyString)
End If
End If
End While
LOGGER.Debug("sql after ReplaceInternalValues: " & input)
Return oResult
Catch ex As Exception
@@ -220,7 +266,7 @@ Public Class ClassPatterns
LOGGER.Debug("Found Control [{0}], continuing with setting value..", oFoundControl.Name)
If TypeOf (oFoundControl) Is LookupControl3 Then
LOGGER.Debug("oTypeString LookupControl3")
ElseIf TypeOf (oFoundControl) Is Checkbox Then
ElseIf TypeOf (oFoundControl) Is CheckBox Then
LOGGER.Debug("oTypeString CheckBox")
ElseIf TypeOf (oFoundControl) Is TextEdit Then
LOGGER.Debug("oTypeString TextEdit")
@@ -402,7 +448,22 @@ Public Class ClassPatterns
Return results
End Function
''' <summary>
''' Ersetzt alle Vorkommen eines Platzhalters im Texttemplate.
''' </summary>
''' <param name="pInput">Der ursprüngliche Text mit Platzhaltern.</param>
''' <param name="pPlaceholder">Der Platzhalter, z. B. "FILENAME_EXT".</param>
''' <param name="pReplacement">Der zu ersetzende Wert.</param>
''' <returns>Der aktualisierte Text.</returns>
Public Shared Function ReplacePlaceholder(pPattern As String, pInput As String, pPlaceholder As String, pReplacement As String) As String
' Erzeuge das Regex-Muster für den Platzhalter (z. B. {#INT#FILENAME_EXT})
Dim pattern As String = "\{#" & pPattern & "#" & Regex.Escape(pPlaceholder) & "\}"
' Ersetze alle Vorkommen mit dem angegebenen Wert
Dim result As String = Regex.Replace(pInput, pattern, pReplacement, RegexOptions.IgnoreCase)
Return result
End Function
Public Shared Function ReplacePattern(input As String, type As String, replacement As String) As String
Dim elements As MatchCollection = regex.Matches(input)