MS2501

Global_Indexer/frmSQLConfigAutoIndex.vb

@@ -374,4 +374,36 @@ Public Class SQLConfigAutoIndex
         Dim table = cmbFromTables.Text
         GetColumns(table, cmbWhereColumns)
     End Sub
+
+    Private Sub btnaddWindowPAram_Click(sender As Object, e As EventArgs) Handles btnaddWindowPAram.Click
+        If cmbwindowsParam.SelectedIndex <> -1 Then
+            If Not cmbwindowsParam.Text = String.Empty Then
+                Dim placeholder As String
+                Dim pattern As String = ""
+                Select Case cmbwindowsParam.Text.ToString.ToUpper
+                    Case "Dateiname (mit Endung)".ToUpper
+                        pattern = "$filename_ext".ToUpper
+                    Case "Dateiname (ohne Endung)".ToUpper
+                        pattern = "$filename".ToUpper
+                    Case "Dateiendung".ToUpper
+                        pattern = "$extension".ToUpper
+                    Case "Datei Erstelldatum".ToUpper
+                        pattern = "$FileCreateDate".ToUpper
+                    Case "Datei Erstellt wer".ToUpper
+                        pattern = "$FileCreatedWho".ToUpper
+                    Case "Aktuelles Datum (DD.MM.YYYY)".ToUpper
+                        pattern = "$DateDDMMYYY".ToUpper
+                    Case "Username"
+                        pattern = "$Username".ToUpper
+                    Case "Usercode"
+                        pattern = "$Usercode".ToUpper
+                End Select
+                placeholder = "[%" & pattern & "]"
+                If placeholder <> "" Then
+                    SQL_ERGEBNISTextBox.Text = SQL_ERGEBNISTextBox.Text.Insert(CurrentPosition, placeholder)
+                End If
+
+            End If
+        End If
+    End Sub
 End Class