From 6cb96dce526eecc1a7b0a2efada7b40061f2546f Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 20 Mar 2020 10:32:40 +0100 Subject: [PATCH] clean up --- Global_Indexer/ClassPostprocessing.vb | 45 --------------------------- 1 file changed, 45 deletions(-) diff --git a/Global_Indexer/ClassPostprocessing.vb b/Global_Indexer/ClassPostprocessing.vb index 0115853..6339cfe 100644 --- a/Global_Indexer/ClassPostprocessing.vb +++ b/Global_Indexer/ClassPostprocessing.vb @@ -62,51 +62,6 @@ Public Class ClassPostprocessing End Try Return String.Join(ClassConstants.VECTORSEPARATOR, oIndexValues.ToArray) - - 'Dim result As String = idxvalue - 'Try - ' For Each row As DataRow In Datatable.Rows - ' Select Case row.Item("TYPE").ToString.ToUpper - ' Case "VBSPLIT" - ' LOGGER.Info(" ...Nachbearbeitung mit VBSPLIT") - ' Dim strSplit() As String - ' strSplit = result.Split(row.Item("TEXT1")) - ' For i As Integer = 0 To strSplit.Length - 1 - ' If i = CInt(row.Item("TEXT2")) Then - ' LOGGER.Info(" ...Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i)) - ' result = strSplit(i).ToString - ' End If - ' Next - ' Case "VBREPLACE" - ' If LogErrorsOnly = False Then - ' LOGGER.Info(" ...Nachbearbeitung mit VBREPLACE") - ' LOGGER.Info(" ...Ersetze '" & row.Item("TEXT1") & "' mit '" & row.Item("TEXT2") & "'") - ' result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2")) - ' End If - - ' result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2")) - ' Case "REG. EXPRESSION" - ' LOGGER.Info(" ...Nachbearbeitung mit RegEx") - ' Dim RegexList As New List(Of System.Text.RegularExpressions.Regex) - ' Dim Regex As New System.Text.RegularExpressions.Regex(row.Item("TEXT1"), System.Text.RegularExpressions.RegexOptions.IgnoreCase) - ' RegexList.Add(Regex) - ' ' - ' Dim resultRegex = ClassPostprocessing.extractFromStringviaRE(result, RegexList) - ' If Not IsNothing(resultRegex) Then - ' LOGGER.Info(" ...Ergebnis des RegEx: " & resultRegex.ToString) - ' result = resultRegex.ToString - ' Else - ' LOGGER.Info("Postprocessing RegEx konnte kein Ergebnis auswerten!") - ' End If - ' End Select - ' Next - ' Return result - 'Catch ex As Exception - ' LOGGER.Info(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message) - ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:") - ' Return result - 'End Try - End Function '''