From f8bf313d711de9b8a694abe240591b8d8aadf04c Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Fri, 6 Oct 2017 10:32:19 +0200 Subject: [PATCH] ms --- ToolCollection/ClassLoggerDI.vb | 2 +- ToolCollection/ClassLoggerNI.vb | 6 +- ToolCollection/ClassLoggerService.vb | 2 +- ToolCollection/ClassMO_RE.vb | 16 +- ToolCollection/ClassMoveRenameLogger.vb | 2 +- ToolCollection/ClassNIDatenbankzugriff.vb | 10 +- ToolCollection/ClassNIWindream.vb | 18 +- ToolCollection/ClassWD_Rechte.vb | 19 +- ToolCollection/My Project/AssemblyInfo.vb | 2 +- ToolCollection/clsNIFulltext.vb | 208 +++++++------- ToolCollection/clsNI_DB.vb | 2 +- ToolCollection/frmNIHauptseite.vb | 325 +++++++++++----------- 12 files changed, 311 insertions(+), 301 deletions(-) diff --git a/ToolCollection/ClassLoggerDI.vb b/ToolCollection/ClassLoggerDI.vb index d4416a1..67ea5f1 100644 --- a/ToolCollection/ClassLoggerDI.vb +++ b/ToolCollection/ClassLoggerDI.vb @@ -67,7 +67,7 @@ Public Class ClassLoggerDI If ClassLoggerDI.OpenFile Then Try If mit_prefix Then - ClassLoggerDI.StreamWriter.WriteLine(" # Nachricht (" & System.DateTime.Now & "): " & information) + ClassLoggerDI.StreamWriter.WriteLine(System.DateTime.Now & " >> " & information) Else ClassLoggerDI.StreamWriter.WriteLine(information) End If diff --git a/ToolCollection/ClassLoggerNI.vb b/ToolCollection/ClassLoggerNI.vb index 8a3d9e3..0f0c65f 100644 --- a/ToolCollection/ClassLoggerNI.vb +++ b/ToolCollection/ClassLoggerNI.vb @@ -57,9 +57,9 @@ Public Class ClassLoggerNI If My.Settings.vLogErrorsonly = False Or _inJedemFallLoggen = True Then Select Case _mitPraefix Case False - ClassLoggerNI.Add(Now.ToString & " " & _error, False) + ClassLoggerNI.Add(_error, False) Case True - ClassLoggerNI.Add(Now.ToString & " " & _error, True) + ClassLoggerNI.Add(_error, True) End Select End If End Sub @@ -87,7 +87,7 @@ Public Class ClassLoggerNI If ClassLoggerNI.OpenFile Then Try If mit_prefix Then - ClassLoggerNI.StreamWriter.WriteLine("Nachricht (" & System.DateTime.Now & "): " & information) + ClassLoggerNI.StreamWriter.WriteLine(System.DateTime.Now & " >> " & information) Else ClassLoggerNI.StreamWriter.WriteLine(Now.ToString & " " & information) End If diff --git a/ToolCollection/ClassLoggerService.vb b/ToolCollection/ClassLoggerService.vb index 58e55fa..baaf9ec 100644 --- a/ToolCollection/ClassLoggerService.vb +++ b/ToolCollection/ClassLoggerService.vb @@ -58,7 +58,7 @@ If ClassLoggerService.OpenFile Then Try If mit_prefix Then - ClassLoggerService.StreamWriter.WriteLine("Nachricht (" & System.DateTime.Now & "): " & information) + ClassLoggerService.StreamWriter.WriteLine(System.DateTime.Now & " >> " & information) Else ClassLoggerService.StreamWriter.WriteLine(information) End If diff --git a/ToolCollection/ClassMO_RE.vb b/ToolCollection/ClassMO_RE.vb index f4d6135..2a6d3e2 100644 --- a/ToolCollection/ClassMO_RE.vb +++ b/ToolCollection/ClassMO_RE.vb @@ -42,8 +42,8 @@ Public Class ClassMO_RE Dim _path, _praefix, _kunde, _ziel As String If My.Settings.vLogErrorsonly = False Then - ClassLoggerNI.Add(" - Ausgelesener Kundenidentifikator: " & _MRKUNDE, False) - ClassLoggerNI.Add(" - Ausgelesene Dokumentart: " & _MRDOKART, False) + ClassLoggerNI.Add(">> Ausgelesener Kundenidentifikator: " & _MRKUNDE, False) + ClassLoggerNI.Add(">> Ausgelesene Dokumentart: " & _MRDOKART, False) End If If _MRKUNDE Is Nothing Or _MRKUNDE = "" Then 'Auslesen der MORE-Konfiguration für Kunde und Standard @@ -123,8 +123,8 @@ Public Class ClassMO_RE _newfilename = _praefix _newfilename = _newfilename & _MRDeskrIndex & extension If My.Settings.vLogErrorsonly = False Then - ClassLoggerNI.Add(" - Ausgelesener Pfad: " & _path, False) - ClassLoggerNI.Add(" - Neuer Dateiname: " & _newfilename, False) + ClassLoggerNI.Add(">> Ausgelesener Pfad: " & _path, False) + ClassLoggerNI.Add(">> Neuer Dateiname: " & _newfilename, False) End If '### VERSIONIERUNG ### Dim version As Integer = 2 @@ -139,11 +139,11 @@ Public Class ClassMO_RE _ziel = _path & "\" & _newfilename If My.Settings.vLogErrorsonly = False Then - If neuername.Contains("~") Then ClassLoggerNI.Add(" - Neuer Dateiname: " & _newfilename, False) + If neuername.Contains("~") Then ClassLoggerNI.Add(">> Neuer Dateiname: " & _newfilename, False) - ClassLoggerNI.Add(" - Neuer Dateiname: " & _newfilename, False) - ClassLoggerNI.Add(" - Quelle: " & vDatei, False) - ClassLoggerNI.Add(" - Ziel: " & _ziel, False) + ClassLoggerNI.Add(">> Neuer Dateiname: " & _newfilename, False) + ClassLoggerNI.Add(">> Quelle: " & vDatei, False) + ClassLoggerNI.Add(">> Ziel: " & _ziel, False) End If If myFolderPath <> _path Then diff --git a/ToolCollection/ClassMoveRenameLogger.vb b/ToolCollection/ClassMoveRenameLogger.vb index 52309a8..936d6c7 100644 --- a/ToolCollection/ClassMoveRenameLogger.vb +++ b/ToolCollection/ClassMoveRenameLogger.vb @@ -57,7 +57,7 @@ If ClassMoveRenameLogger.OpenFile Then Try If mit_prefix Then - ClassMoveRenameLogger.StreamWriter.WriteLine("Nachricht (" & System.DateTime.Now & "): " & information) + ClassMoveRenameLogger.StreamWriter.WriteLine(System.DateTime.Now & " >> " & information) Else ClassMoveRenameLogger.StreamWriter.WriteLine(information) End If diff --git a/ToolCollection/ClassNIDatenbankzugriff.vb b/ToolCollection/ClassNIDatenbankzugriff.vb index 66ac956..0ca8ee7 100644 --- a/ToolCollection/ClassNIDatenbankzugriff.vb +++ b/ToolCollection/ClassNIDatenbankzugriff.vb @@ -260,7 +260,7 @@ Public Class ClassNIDatenbankzugriff Try Oracle_Command = New OracleCommand(plsqlcommand, Oracle_Conn) Oracle_Command.AddToStatementCache = True - ClassLoggerNI.Add(" - Oracle-Command: " & plsqlcommand) + ClassLoggerNI.Add(">> Oracle-Command: " & plsqlcommand) Catch ex As Exception ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonOracleDb", "plsqlcommand definieren", ex) If My.Settings.vNIMailsenden = True Then @@ -354,7 +354,7 @@ Public Class ClassNIDatenbankzugriff Try Oracle_Command = New OracleCommand(plsqlcommand, Oracle_Conn) Oracle_Command.AddToStatementCache = True - ClassLoggerNI.Add(" - Oracle-Command: " & plsqlcommand) + ClassLoggerNI.Add(">> Oracle-Command: " & plsqlcommand) Catch ex As Exception ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonOracleClient", "plsqlcommand definieren", ex) If My.Settings.vNIMailsenden = True Then @@ -376,7 +376,7 @@ Public Class ClassNIDatenbankzugriff 'Do While Oracle_Command.ExecuteNonQuery() ' count += 1 ' If count > 2000 Then - ' ClassLoggerNI.Add(" >> Oracle_Command.ExecuteNonQuery > 2000", False) + ' ClassLoggerNI.Add(">> Oracle_Command.ExecuteNonQuery > 2000", False) ' Oracle_Conn.Close() ' Timer_Stop() ' Return 0 @@ -576,8 +576,8 @@ Public Class ClassNIDatenbankzugriff Try Select Case dt.Rows.Count Case 0 - ClassLoggerNI.Add(" >> SQL-ERGEBNIS liefert keine Zeile zurück!", False) - ClassLoggerNI.Add(" >> SQL-Befehl: " & selectAnweisung, False) + ClassLoggerNI.Add(">> SQL-ERGEBNIS liefert keine Zeile zurück!", False) + ClassLoggerNI.Add(">> SQL-Befehl: " & selectAnweisung, False) If QuellVektor = True Then SQLconnect.Close() Return "Empty Row" diff --git a/ToolCollection/ClassNIWindream.vb b/ToolCollection/ClassNIWindream.vb index ae12ae8..019885f 100644 --- a/ToolCollection/ClassNIWindream.vb +++ b/ToolCollection/ClassNIWindream.vb @@ -389,7 +389,7 @@ Public Class ClassNIWindream If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False) convertValue = CDbl(value) Case WMObjectVariableValueTypeCurrency - ClassLoggerNI.Add(" - Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False) + ClassLoggerNI.Add(">> Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False) 'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value)) convertValue = aValueWrapper @@ -579,10 +579,10 @@ Public Class ClassNIWindream End If Else - ClassLoggerNI.Add(" - Achtung: Der Link konnte nicht geladen werden - _selectedProfil._links.selectedLink is NOTHING", False) + ClassLoggerNI.Add(">> Achtung: Der Link konnte nicht geladen werden - _selectedProfil._links.selectedLink is NOTHING", False) End If Else - ClassLoggerNI.Add(" - Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING", False) + ClassLoggerNI.Add(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING", False) End If Else If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> (RI) Vektorfeld wird mit MEHREREN Werten gefüllt ", False) @@ -651,20 +651,20 @@ Public Class ClassNIWindream 'Die Änderungen festsschreiben/speichern oDocument.Save() - If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(">> Indexierung erfolgreich beendet (Save ...", False) + If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Indexierung erfolgreich beendet (Save ...", False) Else - ClassLoggerNI.Add(" - Achtung: VektorArray Is NOTHING", False) + ClassLoggerNI.Add(">> Achtung: VektorArray Is NOTHING", False) oDocument.Save() Return True End If Else - ClassLoggerNI.Add(" - Achtung: Der Link konnte nicht geladen werden - _selectedProfil._links.selectedLink is NOTHING", False) + ClassLoggerNI.Add(">> Achtung: Der Link konnte nicht geladen werden - _selectedProfil._links.selectedLink is NOTHING", False) oDocument.Save() Return True End If Else - ClassLoggerNI.Add(" - Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING", False) + ClassLoggerNI.Add(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING", False) oDocument.Save() Return True End If @@ -863,7 +863,7 @@ Public Class ClassNIWindream Dim value = _state Dim convertValue 'Den Typ des Index-Feldes auslesen - If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add("- Typ des windream-Indexes: " & vType.ToString) + If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: " & vType.ToString) Select Case (vType) Case WMObjectVariableValueTypeBoolean convertValue = CBool(value) @@ -958,7 +958,7 @@ Public Class ClassNIWindream Return Nothing End Select Dim WMObjects As Object - If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" - Start der Suche: " & Now, False) + If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Start der Suche: " & Now, False) ' System.Threading.Thread.Sleep(200000) WMObjects = oSearch.Execute Return oSearch.execute diff --git a/ToolCollection/ClassWD_Rechte.vb b/ToolCollection/ClassWD_Rechte.vb index 7219909..e826314 100644 --- a/ToolCollection/ClassWD_Rechte.vb +++ b/ToolCollection/ClassWD_Rechte.vb @@ -208,6 +208,7 @@ Public Class ClassWD_Rechte ''' Boolean True wenn erfolgreich ''' Public Function FileFolder_DeleteAndOrSetRight(docpath As String, profilID As Integer, regelid As Integer, folgeRegel As Boolean, createdFolder As String, _form As Boolean) As Boolean + If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(String.Format("Working on regelid {0}.", regelid.ToString)) On Error Resume Next Dim deleteRights As Boolean = False Dim domain, Server, Username, PW As String @@ -298,7 +299,7 @@ Public Class ClassWD_Rechte Else _WCCase = 3 End If - frmNIHauptseite.Logger(" * AD _WCCase = " & _WCCase, False) + frmNIHauptseite.Logger("* AD _WCCase = " & _WCCase, False) Indexname = Indexname.Replace("%", "") Indexwert = oWMObject.GetVariableValue(Indexname) Dim mask @@ -314,7 +315,7 @@ Public Class ClassWD_Rechte Case 3 mask = Indexwert End Select - frmNIHauptseite.Logger(" * AD mask = '" & mask & "'", False, True) + frmNIHauptseite.Logger("* AD mask = '" & mask & "'", False, True) Dim _WDRecht = GetWDRightNames_byMask(mask, _UserOrGroup, _form) If _WDRecht IsNot Nothing And _WDRecht.length > 0 Then @@ -388,7 +389,7 @@ Public Class ClassWD_Rechte Dim lret = Object2Change.LockRights() If CBool(lret) = False Then If Not Object2Change.aLocked Then - Object2Change.lock() + Object2Change.lock() If Err.Number <> 0 Then Dim msg = "Die Datei konnte nicht erfolgreich gelocked werden!: Err.Number: " & Err.Number & vbCrLf & Err.Description If _form = True Then @@ -523,7 +524,7 @@ Public Class ClassWD_Rechte End If Next If _form = False Then - frmNIHauptseite.Logger(" * Die Rechte wurden erfolgreich entfernt.", False, True) + frmNIHauptseite.Logger("* Die Rechte wurden erfolgreich entfernt.", False, True) End If @@ -546,6 +547,7 @@ Public Class ClassWD_Rechte Return _Erfolgreich End If AccessRightsObject2Change.Insert2(oGroup, _lRight) 'WMAccessRightAllRights) + If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(String.Format("GroupRight {0} was set with parameter {1}", _GruppenUserRecht, _lRight)) ElseIf _UserOrGroup = "user" Then ' User holen oUSer = oSession.GetWMObjectByName(WMEntityUser, _GruppenUserRecht) @@ -560,6 +562,7 @@ Public Class ClassWD_Rechte Return _Erfolgreich End If AccessRightsObject2Change.Insert2(oUSer, _lRight) 'WMAccessRightAllRights) + If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(String.Format("UserRight {0} was set with parameter {1}", _GruppenUserRecht, _lRight)) ElseIf _UserOrGroup = "allfolderrights".ToLower Then ' und nun jeden Rechteträger verarbeiten For Each aRightRelation In AccessRightsParent @@ -615,6 +618,7 @@ Public Class ClassWD_Rechte AccessRightsObject2Change.Insert2(UserOrGroup, dwAccessRight) End If End If + If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(String.Format("AllFolderRights {0} was set.", _msg)) Next End If Err.Clear() @@ -632,12 +636,15 @@ Public Class ClassWD_Rechte ' Speichern nicht vergessen Object2Change.Save() If Err.Number <> 0 Then - Dim msg = "Fehler bei Object2Change.Save( - Err.Number: " & Err.Number & vbCrLf & Err.Description + Dim msg = "UNEXPECTED ERROR IN Object2Change.Save(Err.Number: " & Err.Number & vbCrLf & Err.Description If _form = True Then MsgBox(msg, MsgBoxStyle.Critical) Else ClassLoggerNI.Add(msg) End If + If Object2Change.aLocked = True Then + Object2Change.unlock() + End If _Erfolgreich = False Return _Erfolgreich End If @@ -657,7 +664,7 @@ Public Class ClassWD_Rechte End If If _form = False Then - ClassLoggerNI.Add(" >> Das Recht '" & _GruppenUserRecht & "' wurde erfolgreich gesetzt", False) + ClassLoggerNI.Add(">> Das Recht '" & _GruppenUserRecht & "' wurde erfolgreich gesetzt", False) End If 'jetzt True zurückgeben diff --git a/ToolCollection/My Project/AssemblyInfo.vb b/ToolCollection/My Project/AssemblyInfo.vb index 2160986..72d1d47 100644 --- a/ToolCollection/My Project/AssemblyInfo.vb +++ b/ToolCollection/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/ToolCollection/clsNIFulltext.vb b/ToolCollection/clsNIFulltext.vb index 42af4c2..75953c0 100644 --- a/ToolCollection/clsNIFulltext.vb +++ b/ToolCollection/clsNIFulltext.vb @@ -11,7 +11,11 @@ Public Class clsNIFulltext ' einen Regulären Ausdruck laden Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(pattern) - ' die Vorkommen im SQL-String auslesen + 'Instantiate the regular expression object. + Dim r As Regex = New Regex(pattern, RegexOptions.IgnoreCase) + ' Match the regular expression pattern against a text string. + Dim regexMatch As Match = r.Match(fulltext) + ' die Vorkommen im Volltext auslesen Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(fulltext) ' alle Vorkommen der windream-Indexe im SQL-String durchlaufen Dim Gesamtanzahl As Integer = 0 @@ -33,126 +37,126 @@ Public Class clsNIFulltext 'Else ' ClassLoggerNI.Add("The match for groups failed.", False) 'End If - ' Instantiate the regular expression object. - Dim r As Regex = New Regex(pattern, RegexOptions.IgnoreCase) - ' Match the regular expression pattern against a text string. - Dim m As Match = r.Match(fulltext) - Dim matchcount As Integer = 0 - If m.Success And elemente.Count <= 1 Then - If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add("Using RegexGroups....MAtchCount(" & m.Groups.Count & ")", False) - Gesamtanzahl = m.Groups.Count - 1 - - Dim i As Integer - For i = 1 To m.Groups.Count - 1 - Dim g As Group = m.Groups(i) - ' Dim cc As CaptureCollection = g.Captures - ' Dim j As Integer - ' For j = 0 To cc.Count - 1 - ' Dim c As Capture = cc(j) - ' MsgBox("Capture" & j & "='" & c.ToString() _ - '& "', Position=" & c.Index) - - ' Next - Console.WriteLine("Group" & i & "='" & g.ToString() & "'") - If Pos_From = 0 And Gesamtanzahl = 1 Then - 'Das Ende ist erreicht - Ausstieg - ReDim Preserve Ergebnis(0) - Ergebnis(0) = Convert.ToString(g.ToString) - Exit_For = True - Exit For - End If - If Pos_From <> 10000 Then - If Pos_To <> 0 And Pos_From >= Pos_From Then - ' den übergebenen/gefundenen IndexWert, eintragen - ReDim Preserve Ergebnis(Gesamtanzahl - 1) - Ergebnis(Gesamtanzahl - 1) = Convert.ToString(g.ToString) + Dim matchcount As Integer = 0 + If regexMatch.Success = False Then + ClassLoggerNI.Add(">> ACHTUNG: Keine Vorkommen für diese Regular Expression gefunden", False) + Return Nothing + Else + If (regexMatch.Groups.Count - 1) >= 1 Then + If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Using RegexGroups....MatchCount(" & regexMatch.Groups.Count - 1 & ")", False) + Gesamtanzahl = regexMatch.Groups.Count - 1 + For y = 1 To regexMatch.Groups.Count - 1 + Dim g As Group = regexMatch.Groups(y) + g.ToString() + Next + Dim i As Integer + For i = 1 To regexMatch.Groups.Count - 1 + Dim g As Group = regexMatch.Groups(i) + + ' Dim cc As CaptureCollection = g.Captures + ' Dim j As Integer + ' For j = 0 To cc.Count - 1 + ' Dim c As Capture = cc(j) + ' MsgBox("Capture" & j & "='" & c.ToString() _ + '& "', Position=" & c.Index) + + ' Next + Console.WriteLine("Group" & i & "='" & g.ToString() & "'") + If Pos_From = 0 And Gesamtanzahl = 1 Then 'Das Ende ist erreicht - Ausstieg - If Pos_To = Gesamtanzahl Then - Exit_For = True - End If - Else - 'Es gibt nur From, also auch nur einen Wert - If Pos_From = Gesamtanzahl Then + ReDim Preserve Ergebnis(0) + Ergebnis(0) = Convert.ToString(g.ToString) + Exit_For = True + Exit For + End If + If Pos_From <> 10000 Then + If Pos_To <> 0 And Pos_From >= Pos_From Then + ' den übergebenen/gefundenen IndexWert, eintragen + ReDim Preserve Ergebnis(Gesamtanzahl - 1) + Ergebnis(Gesamtanzahl - 1) = Convert.ToString(g.ToString) 'Das Ende ist erreicht - Ausstieg - ReDim Preserve Ergebnis(0) - Ergebnis(0) = Convert.ToString(g.ToString) - Exit_For = True + If Pos_To = Gesamtanzahl Then + Exit_For = True + End If + Else + 'Es gibt nur From, also auch nur einen Wert + If Pos_From = Gesamtanzahl Then + 'Das Ende ist erreicht - Ausstieg + ReDim Preserve Ergebnis(0) + Ergebnis(0) = Convert.ToString(g.ToString) + Exit_For = True + End If End If + Else + ReDim Preserve Ergebnis(Gesamtanzahl - 1) + ' den übergebenen/gefundenen IndexWert, eintragen + Ergebnis(Gesamtanzahl - 1) = Convert.ToString(g.ToString) + End If + If Exit_For = True Then + Exit For End If - Else - ReDim Preserve Ergebnis(Gesamtanzahl - 1) - ' den übergebenen/gefundenen IndexWert, eintragen - Ergebnis(Gesamtanzahl - 1) = Convert.ToString(g.ToString) - End If - If Exit_For = True Then - Exit For - End If - ' Dim cc As CaptureCollection = g.Captures - ' Dim j As Integer - ' For j = 0 To cc.Count - 1 - ' Dim c As Capture = cc(j) - ' MsgBox("Capture" & j & "='" & c.ToString() _ - '& "', Position=" & c.Index) - ' Console.WriteLine("Capture" & j & "='" & c.ToString() _ - '& "', Position=" & c.Index) - ' Next - Next - m = m.NextMatch() - Else - If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add("Using Matchelements.....", False) - For Each element As System.Text.RegularExpressions.Match In elemente - Gesamtanzahl += 1 - 'MsgBox(element.ToString) - 'filling the row with values. Item property is used to set the field value. - If Pos_From <> 10000 Then - If Pos_To <> 0 And Pos_From >= Pos_From Then - ' den übergebenen/gefundenen IndexWert, eintragen - ReDim Preserve Ergebnis(Gesamtanzahl - 1) - Ergebnis(Gesamtanzahl - 1) = Convert.ToString(element.ToString) - 'Das Ende ist erreicht - Ausstieg - If Pos_To = Gesamtanzahl Then - Exit_For = True - End If - Else - 'Es gibt nur From, also auch nur einen Wert - If Pos_From = Gesamtanzahl Then + ' Dim cc As CaptureCollection = g.Captures + ' Dim j As Integer + ' For j = 0 To cc.Count - 1 + ' Dim c As Capture = cc(j) + ' MsgBox("Capture" & j & "='" & c.ToString() _ + '& "', Position=" & c.Index) + ' Console.WriteLine("Capture" & j & "='" & c.ToString() _ + '& "', Position=" & c.Index) + ' Next + Next + regexMatch = regexMatch.NextMatch() + Else + If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Using Matchelements.....", False) + For Each element As System.Text.RegularExpressions.Match In elemente + element.ToString() + Next + For Each element As System.Text.RegularExpressions.Match In elemente + Gesamtanzahl += 1 + 'MsgBox(element.ToString) + 'filling the row with values. Item property is used to set the field value. + If Pos_From <> 10000 Then + If Pos_To <> 0 And Pos_From >= Pos_From Then + ' den übergebenen/gefundenen IndexWert, eintragen + ReDim Preserve Ergebnis(Gesamtanzahl - 1) + Ergebnis(Gesamtanzahl - 1) = Convert.ToString(element.ToString) 'Das Ende ist erreicht - Ausstieg - ReDim Preserve Ergebnis(0) - Ergebnis(0) = Convert.ToString(element.ToString) - Exit_For = True + If Pos_To = Gesamtanzahl Then + Exit_For = True + End If + Else + 'Es gibt nur From, also auch nur einen Wert + If Pos_From = Gesamtanzahl Then + 'Das Ende ist erreicht - Ausstieg + ReDim Preserve Ergebnis(0) + Ergebnis(0) = Convert.ToString(element.ToString) + Exit_For = True + End If End If + Else + ReDim Preserve Ergebnis(Gesamtanzahl - 1) + ' den übergebenen/gefundenen IndexWert, eintragen + Ergebnis(Gesamtanzahl - 1) = Convert.ToString(element.ToString) + End If + If Exit_For = True Then + Exit For End If - Else - ReDim Preserve Ergebnis(Gesamtanzahl - 1) - ' den übergebenen/gefundenen IndexWert, eintragen - Ergebnis(Gesamtanzahl - 1) = Convert.ToString(element.ToString) - End If - If Exit_For = True Then - Exit For - End If - Next ' zum nächsten Vorkommen + Next ' zum nächsten Vorkommen + End If End If - - - - - - - Dim Meldung As String - If Gesamtanzahl > 0 Then If Ergebnis.Length >= 1 Then Return Ergebnis Else - ClassLoggerNI.Add(" - ACHTUNG: Array-Ergebnis Length = 0", False) + ClassLoggerNI.Add(">> ACHTUNG: Array-Ergebnis Length = 0", False) Return Nothing End If Else - ClassLoggerNI.Add(" - ACHTUNG: Keine Vorkommen für diese Regular Expression gefunden", False) + ClassLoggerNI.Add(">> ACHTUNG: Keine Vorkommen für diese Regular Expression gefunden", False) Return Nothing End If diff --git a/ToolCollection/clsNI_DB.vb b/ToolCollection/clsNI_DB.vb index 29f173e..b1f0ade 100644 --- a/ToolCollection/clsNI_DB.vb +++ b/ToolCollection/clsNI_DB.vb @@ -112,7 +112,7 @@ Public Class clsNI_DB Connection.Open() Catch ex As Exception ClassLoggerNI.Add("CheckIndex_MSSSQL - Message: " & ex.Message, "Verbindung zur Datenbank aufbauen", ex) - ClassLoggerNI.Add("- ConString: " & con, False) + ClassLoggerNI.Add(">> ConString: " & con, False) ' DB-Connection schliessen Return Nothing End Try diff --git a/ToolCollection/frmNIHauptseite.vb b/ToolCollection/frmNIHauptseite.vb index c17c706..e348b05 100644 --- a/ToolCollection/frmNIHauptseite.vb +++ b/ToolCollection/frmNIHauptseite.vb @@ -90,9 +90,9 @@ Public Class frmNIHauptseite My.Settings.Save() NI_OPENED = False 'If e.CloseReason = CloseReason.UserClosing Then - ' Logger(" >> Nachindexierung Hauptformular wird durch User geschlossen.", False, True) + ' Logger("Nachindexierung Hauptformular wird durch User geschlossen.", False, True) 'Else - ' Logger(" >> Nachindexierung Hauptformular wird automatisch geschlossen.", False, True) + ' Logger("Nachindexierung Hauptformular wird automatisch geschlossen.", False, True) 'End If End Sub @@ -248,7 +248,7 @@ Public Class frmNIHauptseite ' MsgBox("Die Nachindexierung wurde abgebrochen.", MsgBoxStyle.Information, "Vorgang abgebrochen (Datei)") Else If Me.bwDatei.IsBusy Then - Logger(" >> Achtung: bwDatei-RunWorkerCompleted aber bwDatei.Busy - CancelAsync", False, True) + Logger("Achtung: bwDatei-RunWorkerCompleted aber bwDatei.Busy - CancelAsync", False, True) Me.bwDatei.CancelAsync() End If ' MsgBox("Fertig") @@ -271,7 +271,7 @@ Public Class frmNIHauptseite Private Sub bwsearch_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) If e.Cancelled Then - Logger(" >> Achtung: Ausführung der Suche wurde abgebrochen(" & Now & ")", False, True) + Logger("Achtung: Ausführung der Suche wurde abgebrochen(" & Now & ")", False, True) ElseIf e.Error IsNot Nothing Then ' MsgBox("Fehler") Else @@ -279,7 +279,7 @@ Public Class frmNIHauptseite Dim minutes = CLng(System.DateTime.Now.Subtract(CURRENT_START_DATETIME).Minutes) If minutes >= 1 Then - Logger(" >> Suchdauer >= 1 Minute aber letzendlich ausgeführt (" & Now & ")", True) + Logger("Suchdauer >= 1 Minute aber letzendlich ausgeführt (" & Now & ")", True) End If End If @@ -314,7 +314,7 @@ Public Class frmNIHauptseite 'aktivesProfil.Save(False) If clsHelper.file_exists(Me.aktivesProfil.WindreamSuche, "NI") = False Then - Logger(">> Windream Suche für Profil: " & profil.Profilname & " konnte nicht ausgeführt werden! Die Datei " & Me.aktivesProfil.WindreamSuche & " existiert nicht!", False, True) + Logger("Windream Suche für Profil: " & profil.Profilname & " konnte nicht ausgeführt werden! Die Datei " & Me.aktivesProfil.WindreamSuche & " existiert nicht!", False, True) ' wenn die gesuchte File eine Suche ist: per MAil informierne und Indexierung abbrechen If My.Settings.vNIMailsenden = True Then email.Send_EMail("Fehler bei Nachindexierung:
>> Profil: " & Me.aktivesProfil.Profilname & "
>> die windream-Suche : " & Me.aktivesProfil.WindreamSuche & " konnte nicht gefunden werden!" & _ @@ -337,12 +337,12 @@ Public Class frmNIHauptseite Dim minutes = CLng(System.DateTime.Now.Subtract(d1).Minutes) If minutes >= 1 And minutes <> oldminute Then oldminute = minutes - Logger(" >> bwsearch IsBusy " & Now & " - MinutesSinceRunWD-Search: " & minutes.ToString, False, True) + Logger("bwsearch IsBusy " & Now & " - MinutesSinceRunWD-Search: " & minutes.ToString, False, True) If minutes >= 2 Then Select Case minutes Case 3 - Logger(">> Die Ausführung der Suche dauerte zu lange MinutesSinceRunWD-Search: " & minutes.ToString, False, True) - Logger(">> Die Nachindexierung wird abgebrochen und läuft wieder im Intervall an!", False, True) + Logger("Die Ausführung der Suche dauerte zu lange MinutesSinceRunWD-Search: " & minutes.ToString, False, True) + Logger("Die Nachindexierung wird abgebrochen und läuft wieder im Intervall an!", False, True) ClassNIEmail.Send_Urgent("Achtung - die Ausführung der Suche: " & Me.aktivesProfil.WindreamSuche & " dauerte viel zu lange!

Prüfen Sie schnellst möglich die Client-Konfiguration", False) Abbruch_NI("Abbruch nach Timeout Suche", False, True) CURRENT_STATE = "Abbruch Timeout" @@ -352,7 +352,7 @@ Public Class frmNIHauptseite End If Loop If bwProfil.CancellationPending Or bwsearch.CancellationPending Then - Logger(">> CancellationPending2 - Abbruch durchgeführt - Nun Exit Sub", False, True) + Logger(" CancellationPending2 - Abbruch durchgeführt - Nun Exit Sub", False, True) Exit Sub End If @@ -373,24 +373,24 @@ Public Class frmNIHauptseite _Fehler = True End If Else - Logger("## NachbearbeitungAD inaktiv", False) + Logger("NachbearbeitungAD inaktiv", False) End If If _Fehler = False Then 'profil() ' nun Profilabhängige Parameter laden If aktivesProfil.IndexValidation <> "" Then - Logger(" - Dokumente sollen für Validierung markiert werden - Index: " & aktivesProfil.IndexValidation) + Logger("Dokumente sollen für Validierung markiert werden - Index: " & aktivesProfil.IndexValidation) clsNI_WorkFile._filevalidation = True Else clsNI_WorkFile._filevalidation = False End If If aktivesProfil.IndexFehler <> "" Then - Logger(" - Fehler sollen historisiert werden - Index: " & Me.aktivesProfil.IndexFehler) + Logger("Fehler sollen historisiert werden - Index: " & Me.aktivesProfil.IndexFehler) clsNI_WorkFile._fileerror = True Else clsNI_WorkFile._fileerror = False End If - Logger(" - Ni-Art: " & aktivesProfil.Ni_Art.ToLower) + Logger("Ni-Art: " & aktivesProfil.Ni_Art.ToLower) ' neue Anzahl von Dateien an ProgressBar2 bwProfil.ReportProgress(windreamSucheErgebnisse.Count) For Each dok As WMObject In windreamSucheErgebnisse @@ -399,7 +399,7 @@ Public Class frmNIHauptseite '####### Go für das Dokument ########## ' Thread für diese Datei starten - Logger("- Start des Dateithreads", False) + Logger("Start des Dateithreads", False) Me.startDateiDurchlauf() '###################################### ' solange der Datei-Thread noch nicht abgeschlossen wurde @@ -434,17 +434,17 @@ Public Class frmNIHauptseite 'If profil.Profilname = "CURSORTicketformular" Then ' Dim value As String = File.ReadAllText(My.Settings.INSERTTICKET, System.Text.Encoding.Default) ' If database.ExecuteonOracleClient("ManuellInsertTicket", value, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password) = 1 Then - ' Logger(" - CURSOR ORACLE INSERT-Command erfolgreich ausgeführt!", False, True) + ' Logger("CURSOR ORACLE INSERT-Command erfolgreich ausgeführt!", False, True) ' End If ' value = File.ReadAllText(My.Settings.INSERT_SONST, System.Text.Encoding.Default) ' If database.ExecuteonOracleClient("ManuellSONST", value, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password) = 1 Then - ' Logger(" - CURSOR ORACLE INSERT-Command erfolgreich ausgeführt!", False, True) + ' Logger("CURSOR ORACLE INSERT-Command erfolgreich ausgeführt!", False, True) ' End If 'End If 'If profil.Profilname = "CursorVERANST" Then ' Dim value As String = File.ReadAllText(My.Settings.INSERVERANST, System.Text.Encoding.Default) ' If database.ExecuteonOracleClient("ManuellInsertVeranstaltung", value, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password) = 1 Then - ' Logger(" - CURSOR ORACLE INSERT-Command erfolgreich ausgeführt!", False, True) + ' Logger("CURSOR ORACLE INSERT-Command erfolgreich ausgeführt!", False, True) ' End If 'End If Else @@ -468,7 +468,7 @@ Public Class frmNIHauptseite Else 'Keine Verknüpfungen - Logger(" - Es liegen keine Verknüpfungen für dieses Profil vor!", False, True) + Logger("Es liegen keine Verknüpfungen für dieses Profil vor!", False, True) End If End If @@ -562,17 +562,16 @@ Public Class frmNIHauptseite Dim profil_id As Integer = 1 If ClassNIProfile.Profile IsNot Nothing Then + ClassLoggerNI.Add("Beginn der Nachindexierung : " & Now, False) + ClassLoggerNI.Add("Anzahl der Profile: " & ClassNIProfile.Count, False) If debug Then Dim resultProfilnamen As String = "" For Each profil As ClassNIProfil In ClassNIProfile.Profile + ClassLoggerNI.Add("ProfilName: " & profil.Profilname, False) resultProfilnamen &= "- " & profil.Profilname & vbNewLine Next - - ClassLoggerNI.Add("Beginn der Nachindexierung : " & Now, False) - ClassLoggerNI.Add("Anzahl der Profile: " & ClassNIProfile.Count, False) - ClassLoggerNI.Add(resultProfilnamen, False) Else - Logger("- No DEBUG", False) + Logger("No DEBUG", False) End If Me.ProgressBar1.Minimum = 0 @@ -580,17 +579,17 @@ Public Class frmNIHauptseite Me.ProgressBar1.Value = 0 Me.Refresh() - Logger("- Start des Profildurchlaufthreads", False) + Logger("Start des Profildurchlaufthreads", False) Me.startProfileDurchlauf() Else - ClassLoggerNI.Add("- Attention: ClassNIProfile.Profile IsNothing", False) + ClassLoggerNI.Add("Attention: ClassNIProfile.Profile IsNothing", False) End If Else If Me.bwProfil.IsBusy Then ClassLoggerNI.Add(">> ACHTUNG: der Thread Profil arbeitet noch unerwartet - es wird nun der Thread abgebrochen", False) Me.bwProfil.CancelAsync() If bwDatei.IsBusy Then - Logger(">> ACHTUNG: Thread Datei wird ebenso abgebrochen", False, True) + Logger("ACHTUNG: Thread Datei wird ebenso abgebrochen", False, True) Me.bwDatei.CancelAsync() End If End If @@ -601,7 +600,7 @@ Public Class frmNIHauptseite If Me.bwDatei.IsBusy Then ClassLoggerNI.Add(">> der Thread Datei arbeitet noch unerwartet", False) Try - Logger(">> Thread Datei wird abgebrochen....", False) + Logger("Thread Datei wird abgebrochen....", False) Me.bwDatei.CancelAsync() manuallyRun = False Catch ex As Exception @@ -626,7 +625,7 @@ Public Class frmNIHauptseite If My.Settings.vLogErrorsonly = False Or _inJedemFallLoggen = True Then Select Case _mitPraefix Case False - ClassLoggerNI.Add(_error, False) + ClassLoggerNI.Add(" >>" & _error, False) Case True ClassLoggerNI.Add(_error, True) End Select @@ -641,7 +640,7 @@ Public Class frmNIHauptseite 'den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen DESKINDEX_VALUE = aktivesDokument.GetVariableValue(aktivesProfil.Desk_windreamIndex) Else - Logger(" >> Check_Desk_Index: Es wurde kein deskriptiver Index hinterlegt!", False) + Logger("Check_Desk_Index: Es wurde kein deskriptiver Index hinterlegt!", False) End If Catch ex As Exception errormsg = " FEHLER bei Check_Desk_Index (GetVariableValue für Index '" & aktivesProfil.Desk_windreamIndex & "'): " & ex.Message @@ -670,7 +669,7 @@ Public Class frmNIHauptseite End If Dim moved_Folder As String = "" Logger("", False, True) - Logger(">> Indexierung von Dokument '" & Me.aktivesDokument.aName & "'", False, True) + Logger("Indexierung von Dokument '" & Me.aktivesDokument.aName & "'", False, True) ' dient zum Überprüfen auf Fehler Dim error_in_Indexierung As Boolean = False Dim unvollstaendig As Boolean = False @@ -682,7 +681,7 @@ Public Class frmNIHauptseite Dim _pathxmlfile As String 'Liefert nur den PFad des aktiven Dokumens Dim ordnerpfad As String = IO.Path.GetDirectoryName(My.Settings.vWLaufwerk & ":" & dokument.aPath) - Logger(" >> OrdnerPfad der Datei: " & ordnerpfad) + Logger("OrdnerPfad der Datei: " & ordnerpfad) 'Schalter um zu überprüfen ob es im Durchlauf ein SQL-Ergebnis gab Dim _ergebnisSQL As Boolean = False 'Die Tabelle mit den select werten leeren @@ -696,7 +695,7 @@ Public Class frmNIHauptseite fulltext = dokument.GetVariableValue(aktivesProfil.Desk_windreamIndex) Volltext_indexer(dokument, fulltext) Catch ex As Exception - Logger(" >> error in getting fulltext - Indexname: '" & aktivesProfil.Desk_windreamIndex & "' ERROR: " & ex.Message) + Logger("error in getting fulltext - Indexname: '" & aktivesProfil.Desk_windreamIndex & "' ERROR: " & ex.Message) error_in_Indexierung = True unvollstaendig = True File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) @@ -706,10 +705,10 @@ Public Class frmNIHauptseite Case "db" error_in_Indexierung = Check_Desk_Index() 'If aktivesProfil.checkIndexsql = "" Then - ' Logger(" # HINWEIS: Eine sql-Überprüfung des Indexwertes ist nicht hinterlegt! Dies kann zu falsch-positiven Werten führen!#") + ' Logger("# HINWEIS: Eine sql-Überprüfung des Indexwertes ist nicht hinterlegt! Dies kann zu falsch-positiven Werten führen!#") 'End If If aktivesProfil.checkIndexsql <> String.Empty And error_in_Indexierung = False Then - Logger(" >> Überprüfung des deskriptiven Indexwertes gegen die DB") + Logger("Überprüfung des deskriptiven Indexwertes gegen die DB") '################## 'Zuerst überprüfen ob der Deskriptive Idnex einen gültigen Wert zurückliefert Try @@ -721,18 +720,18 @@ Public Class frmNIHauptseite Select Case Check Case 0 'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet - Logger(" >> Der deskriptive Indexwert '" & Value & "' verweist auf KEINEN Eintrag in der Datenbank! - Markierung des Doks", False, True) + Logger("Der deskriptive Indexwert '" & Value & "' verweist auf KEINEN Eintrag in der Datenbank! - Markierung des Doks", False, True) fehlermsg &= " >> Der deskriptive Indexwert " & Value & " verweist auf KEINEN Eintrag in der Datenbank!" 'Fehler = True unvollstaendig = True File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) SetErrorMeldung("Value '" & Value & "' not found in Database", aktivesDokument, My.Settings.ERROR_INDEX) Case 1 - Logger(" >> Der deskriptive Indexwert '" & Value & "' verweist genau auf EINEN Eintrag in der Datenbank - Alles OK") + Logger("Der deskriptive Indexwert '" & Value & "' verweist genau auf EINEN Eintrag in der Datenbank - Alles OK") unvollstaendig = False Case 2 'Mehr als ein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet - Logger(" >> Der deskriptive Indexwert '" & Value & "' verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!", False, True) + Logger("Der deskriptive Indexwert '" & Value & "' verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!", False, True) fehlermsg &= " >> Der deskriptive Indexwert " & Value & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!" error_in_Indexierung = True unvollstaendig = True @@ -752,7 +751,7 @@ Public Class frmNIHauptseite If clsHelper.file_exists(_pathxmlfile, "NI") = False Then _pathxmlfile = ordnerpfad & "\" & System.IO.Path.GetFileNameWithoutExtension(dokument.aPath) & "." & "xfres" If clsHelper.file_exists(_pathxmlfile, "NI") = False Then - Logger(" >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!", False, True) + Logger("ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!", False, True) ' Markierung des Dokumentes SetErrorMeldung("Nachindexdatei NOT EXISTING", aktivesDokument, My.Settings.ERROR_INDEX) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) @@ -839,14 +838,14 @@ Public Class frmNIHauptseite ' und die Abfrage ein Ergebnis zurück gab If IndexwertAusWindream Is Nothing And Not error_in_Indexierung Then ' IndexwertAusWindream ist Nothing (idxName_ohneSonderzeichen) - Logger(" >> ACHTUNG: der einschränkende Wert aus Windream für Index '" & idxName_ohneSonderzeichen & "' ist EMPTY oder NOTHING", False, True) - Logger(" >> SQL-String bisher: " & SqlString, False, True) + Logger("ACHTUNG: der einschränkende Wert aus Windream für Index '" & idxName_ohneSonderzeichen & "' ist EMPTY oder NOTHING", False, True) + Logger("SQL-String bisher: " & SqlString, False, True) ' wenn die Abfrage in windream kein Ergebnis gab, muss das error_in_Indexierungflag gesetzt werden error_in_Indexierung = True Else ' den Platzhalter im SQL-String durch den Wert ersetzen SqlString = SqlString.Replace(element.Value, IndexwertAusWindream.ToString) - Logger(" >> SqlString.Replace(" & element.Value & ", " & IndexwertAusWindream.ToString) + Logger("SqlString.Replace(" & element.Value & ", " & IndexwertAusWindream.ToString) End If @@ -872,10 +871,10 @@ Public Class frmNIHauptseite 'Indexierung gegen ein Indexfeld If INDEX_SQL_BEFEHL.Spalte.StartsWith("%") And INDEX_SQL_BEFEHL.Spalte.EndsWith("%") Then 'Ein manueller Wert in der Verknüpfung - Logger(" >> Indexierung mit einem manuellem Wert") + Logger("Indexierung mit einem manuellem Wert") Dim _wert As String = INDEX_SQL_BEFEHL.Spalte.Replace("%", "") _NidxWert = _wert - Logger(" >> Manueller Wert: '" & _NidxWert & "'") + Logger("Manueller Wert: '" & _NidxWert & "'") Else Dim Arr() As Object ''########### @@ -883,7 +882,7 @@ Public Class frmNIHauptseite If IndexwertAusWindream Is Nothing = False Then 'Es wird gegen ein Vektorfeld nachindexiert If IndexwertAusWindream.GetType.ToString.Contains("System.Object") Then - Logger(" >> INDEXIERUNG GEGEN EIN VEKTORFELD") + Logger("INDEXIERUNG GEGEN EIN VEKTORFELD") 'Zuweisen der Indexwerte des Vektorfeldes zu Array Arr = IndexwertAusWindream For Each str As Object In Arr @@ -892,7 +891,7 @@ Public Class frmNIHauptseite End If Next ReDim Preserve selectArray(Anzahl_NI_Werte - 1) - Logger(" >> Anzahl Elemente: " & Anzahl_NI_Werte) + Logger("Anzahl Elemente: " & Anzahl_NI_Werte) 'MsgBox("Aha ein Vektorindex" & vbNewLine & "Anzahl Elemente: " & Anzahl_NI_Werte) Dim selectstring = SqlString @@ -904,20 +903,20 @@ Public Class frmNIHauptseite SqlString = SqlString.Replace("System.Object[]", obj.ToString) 'Select-Befehl an Array übergeben selectArray(i) = SqlString - 'Logger(" - SELECT-BEFEHL: " & selectArray(i)) + 'Logger("SELECT-BEFEHL: " & selectArray(i)) i += 1 Next Else ReDim Preserve selectArray(0) 'MsgBox("Nur ein Einfachindex :(" & vbNewLine & IndexwertAusWindream.ToString) selectArray(0) = SqlString - Logger(" >> Indexierung gegen einen Einfachindex") + Logger("Indexierung gegen einen Einfachindex") End If Else ReDim Preserve selectArray(0) 'MsgBox("Nur ein Einfachindex :(" & vbNewLine & IndexwertAusWindream.ToString) selectArray(0) = SqlString - Logger(" - IndexwertAusWindream Is Nothing: Select: '" & selectArray(0) & "'") + Logger("IndexwertAusWindream Is Nothing: Select: '" & selectArray(0) & "'") End If @@ -926,7 +925,7 @@ Public Class frmNIHauptseite 'Indexwert über DB oder Datei Select Case aktivesProfil.Ni_Art.ToLower Case "db" - Logger(" >> SQL-Abfragen durchlaufen!") + Logger("SQL-Abfragen durchlaufen!") Dim i As Integer Dim Quelle_is_vektor = False If selectArray.Length > 1 Then @@ -951,7 +950,7 @@ Public Class frmNIHauptseite Dim dok As String = System.IO.Path.GetFileNameWithoutExtension(dokument.aPath) 'Indexierung über luratech-Ergebnis Files If aktivesProfil.xmlEnd = "xffres" Then - Logger(" >> Indexierung über XML-Dokument Abby/Luratech") + Logger("Indexierung über XML-Dokument Abby/Luratech") 'Dateipfad für xffres/xml-Datei zusammenbauen If File.Exists(_pathxmlfile) Then 'Übergabe der Dateiparameter und des xml-Knotens @@ -962,7 +961,7 @@ Public Class frmNIHauptseite SetErrorMeldung("Wert aus Formrec. ist nothing", aktivesDokument, My.Settings.ERROR_INDEX) End If Else - Logger(" >> ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!", False, True) + Logger("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!", False, True) error_in_Indexierung = True fehlermsg &= vbNewLine & " >> ACHTUNG 2: Datei: " & _pathxmlfile & " existiert nicht!" End If @@ -970,7 +969,7 @@ Public Class frmNIHauptseite 'wenn kein error_in_Indexierung und wert geliefert und Index ist deskriptiver Index If Not error_in_Indexierung And aktivesProfil.Desk_windreamIndex = INDEX_SQL_BEFEHL.Index And aktivesProfil.checkIndexsql <> "" Then If (_NidxWert = "") Or (_NidxWert Is Nothing) Then - Logger(" >> ACHTUNG: der XML-Wert (Formrecognition) ist leer! Dies kann zu Fehlern führen!", False, True) + Logger("ACHTUNG: der XML-Wert (Formrecognition) ist leer! Dies kann zu Fehlern führen!", False, True) 'Markierung Validation File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) 'errormeldung setzen @@ -986,12 +985,12 @@ Public Class frmNIHauptseite 'Dim _path2xmlfile As String = ordnerpfad & "\" & System.IO.Path.GetFileNameWithoutExtension(dokument.aPath) & "." & aktivesProfil.xmlEnd _dokxml = _windreamNI.oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, _pathxmlfile.Substring(2)) 'WINDREAMLib.WMEntity.WMEntityDocument 'Überprüfen ob deskriptiver Wert eindeutig? - Logger(" >> Überprüfung ob deskriptiver Wert eindeutig?") + Logger("Überprüfung ob deskriptiver Wert eindeutig?") Dim Check As Integer = Check_DeskIndexValue(_NidxWert, aktivesProfil.checkIndexsql) Select Case Check Case 0 'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet - Logger(" - Der deskriptive Indexwert '" & _NidxWert & "' verweist auf keinen Eintrag in der Datenbank!", False, True) + Logger("Der deskriptive Indexwert '" & _NidxWert & "' verweist auf keinen Eintrag in der Datenbank!", False, True) SetErrorMeldung("Value '" & _NidxWert & "' not found in Database", aktivesDokument, My.Settings.ERROR_INDEX) unvollstaendig = True error_in_Indexierung = True @@ -999,7 +998,7 @@ Public Class frmNIHauptseite 'Überprüfung ob Wert dennoch indexiert werden soll?! If INDEX_SQL_BEFEHL.SelectAnweisung = "WRITE_ALWAYS" Then - Logger(" - Dennoch soll der Wert eingetragen werden") + Logger("Dennoch soll der Wert eingetragen werden") Dim arrIndex() As String = Nothing Dim arrValue() As String = Nothing ReDim Preserve arrIndex(0) @@ -1007,7 +1006,7 @@ Public Class frmNIHauptseite arrIndex(0) = INDEX_SQL_BEFEHL.Index arrValue(0) = _NidxWert.ToString Me._windreamNI.RunIndexing(dokument, arrIndex, arrValue, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString) - Logger(" - Der falsche OCR-Wert: '" & _NidxWert.ToString & "' wurde eingetragen", False, True) + Logger("Der falsche OCR-Wert: '" & _NidxWert.ToString & "' wurde eingetragen", False, True) Else fehlermsg &= vbNewLine & " - Der deskriptive Indexwert " & _NidxWert & " verweist auf keinen Eintrag in der Datenbank!" End If @@ -1018,11 +1017,11 @@ Public Class frmNIHauptseite 'Fehlermarkierung setzen Case 1 - Logger(" >> Der deskriptive Indexwert " & _NidxWert & " verweist genau auf EINEN Eintrag in der Datenbank - Alles OK") + Logger("Der deskriptive Indexwert " & _NidxWert & " verweist genau auf EINEN Eintrag in der Datenbank - Alles OK") error_in_Indexierung = False Case 2 'Mehr als ein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet - Logger(" >> Der deskriptive Indexwert " & _NidxWert & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!", False, True) + Logger("Der deskriptive Indexwert " & _NidxWert & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!", False, True) SetErrorMeldung("More then 1 row found in Database", aktivesDokument, My.Settings.ERROR_INDEX) fehlermsg &= vbNewLine & " - Der deskriptive Indexwert " & _NidxWert & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!" error_in_Indexierung = True @@ -1034,25 +1033,25 @@ Public Class frmNIHauptseite End If Else If aktivesProfil.Desk_windreamIndex = "" Then - Logger(" # ACHTUNG: der deskriptive Indexwert ist nicht hinterlegt! Dies kann zu Fehlern führen! #", False, True) + Logger("# ACHTUNG: der deskriptive Indexwert ist nicht hinterlegt! Dies kann zu Fehlern führen! #", False, True) Else If aktivesProfil.checkIndexsql = "" Then - Logger(" # ACHTUNG: Eine sql-Überprüfung des aus xml-gelesenen Indexwertes ist nicht hinterlegt! Dies kann zu falsch-positiven Werten führen! #", False, True) + Logger("# ACHTUNG: Eine sql-Überprüfung des aus xml-gelesenen Indexwertes ist nicht hinterlegt! Dies kann zu falsch-positiven Werten führen! #", False, True) Else If _NidxWert = "" Then - Logger(" # ACHTUNG: der gelesene Wert ist leer! Dies kann zu Fehlern führen! #", False, True) + Logger("# ACHTUNG: der gelesene Wert ist leer! Dies kann zu Fehlern führen! #", False, True) End If End If End If End If Case "activedirectory" - Logger(" - Indexierung gegen ActiveDirectory") + Logger("Indexierung gegen ActiveDirectory") _NidxWert = ClassActiveDirectory.GetAD_Attribut(selectArray(0), INDEX_SQL_BEFEHL.Spalte, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password) If _NidxWert = ">1" Then - Logger(" >> Es wurde mehr als 1 Wert ausgelesen! Entweder ist der Filter AD nicht eindeutig oder ein anderer error_in_Indexierung ist aufgetreten", False, True) + Logger("Es wurde mehr als 1 Wert ausgelesen! Entweder ist der Filter AD nicht eindeutig oder ein anderer error_in_Indexierung ist aufgetreten", False, True) Else - Logger(" >> Gelesener Attribut-Wert: " & _NidxWert) + Logger("Gelesener Attribut-Wert: " & _NidxWert) End If @@ -1073,7 +1072,7 @@ Public Class frmNIHauptseite result &= " - " & _NidxWert _ergebnisSQL = True Try - Logger(" >> Arraygößen werden angepasst:") + Logger("Arraygößen werden angepasst:") ' die Arraygrößen anpassen ReDim Preserve Indexe(verknüpfungZähler) ReDim Preserve NI_Values(verknüpfungZähler) @@ -1082,14 +1081,14 @@ Public Class frmNIHauptseite ' den, übergebenen/gefundenen IndexWert, eintragen NI_Values(verknüpfungZähler) = Convert.ToString(_NidxWert) - Logger(" >> INDEXWERT: '" & Convert.ToString(_NidxWert) & "'") + Logger("INDEXWERT: '" & Convert.ToString(_NidxWert) & "'") verknüpfungZähler += 1 Catch ex As Exception result &= " (" & verknüpfungZähler & ") => " & ex.Message & vbNewLine End Try Else If _NidxWert Is Nothing And aktivesProfil.Ni_Art.ToLower = "db" Then - 'Logger(" >> SQL-Abfrage ergab kein Ergebnis - früher Ausstieg aus Routine ", False, True) + 'Logger("SQL-Abfrage ergab kein Ergebnis - früher Ausstieg aus Routine ", False, True) 'Exit For End If If IndexwertAusWindream.GetType.ToString.Contains("System.Object") Then @@ -1101,15 +1100,15 @@ Public Class frmNIHauptseite ' den, übergebenen/gefundenen IndexWert, eintragen NI_Values(verknüpfungZähler) = Convert.ToString("") - Logger(" >> Nachindexwert ist Object") + Logger("Nachindexwert ist Object") verknüpfungZähler += 1 Else - 'Logger(" >> SQL-Abfrage ergab kein Ergebnis", False, True) + 'Logger("SQL-Abfrage ergab kein Ergebnis", False, True) If aktivesProfil.Ni_Art.ToLower = "xml" Then If clsHelper.file_exists(_pathxmlfile, "NI") Then ' MsgBox(_pathxmlfile & vbNewLine & _path2xml) If INDEX_SQL_BEFEHL.Index = aktivesProfil.Desk_windreamIndex Then - Logger(" # Achtung: Der Deskriptive Index: " & aktivesProfil.Desk_windreamIndex & " sollte gesetzt werden! Wert konnte aber nicht gelesen werden bzw ist leer - Markierung des Doks", False, True) + Logger("# Achtung: Der Deskriptive Index: " & aktivesProfil.Desk_windreamIndex & " sollte gesetzt werden! Wert konnte aber nicht gelesen werden bzw ist leer - Markierung des Doks", False, True) 'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet Dim _dokxml As WINDREAMLib.WMObject _dokxml = Nothing @@ -1150,14 +1149,14 @@ Public Class frmNIHauptseite '###### Spezifisches SQL nach jeder Datei! If Me.aktivesProfil.SQL_Anweisung IsNot Nothing And Not error_in_Indexierung And NI_Values.Length >= 1 And NI_Values(0) <> "" Then If Me.aktivesProfil.SQL_Anweisung.StartsWith("EXECUTEVB") Then - Logger(" >> VB-Skript nach Indexierung", False, True) + Logger("VB-Skript nach Indexierung", False, True) Dim anweisung As String = Me.aktivesProfil.SQL_Anweisung.Replace("EXECUTEVB ", "") Dim arrAnweisung As String() = Split(anweisung, "#") - Logger(" > " & anweisung, False, True) + Logger("> " & anweisung, False, True) Try Dim process As New System.Diagnostics.Process Dim psi As New ProcessStartInfo(anweisung.Trim) - Logger(" >> VB-Skript nach Indexierung") + Logger("VB-Skript nach Indexierung") process.EnableRaisingEvents = True @@ -1170,8 +1169,8 @@ Public Class frmNIHauptseite Else If Me.aktivesProfil.SQL_Anweisung <> "" Then - Logger(" >> Spezifisches SQL nach erfolgreichem Indexieren der Datei wird durchgeführt") - Logger(" >> SQL: " & Me.aktivesProfil.SQL_Anweisung) + Logger("Spezifisches SQL nach erfolgreichem Indexieren der Datei wird durchgeführt") + Logger("SQL: " & Me.aktivesProfil.SQL_Anweisung) ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" @@ -1201,19 +1200,19 @@ Public Class frmNIHauptseite Sqlcommand = Sqlcommand.Replace(element.Value, IndexwertAusWindream.ToString) 'Wenn Speicherort gespeichert werden soll wird Platzhalter ersetzt! Sqlcommand = Sqlcommand.Replace("vSpeicherort", "'" & My.Settings.vWLaufwerk & ":" & Me.aktivesDokument.aPath & "'") - Logger(" - SQL-Command: " & Sqlcommand) + Logger("SQL-Command: " & Sqlcommand) 'database.ExecuteonOracleDb(Sqlcommand, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password) 'MsgBox(Me.aktivesDokument.aPath & vbNewLine & vbNewLine & Me.aktivesDokument.aName) Next If Me.aktivesProfil.DbArt = "Oracle" Then If database.ExecuteonOracleDb(aktivesProfil.Profilname, Sqlcommand, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password) = 1 Then - Logger(" - ORACLE SQL-Command erfolgreich ausgeführt!", False, True) + Logger("ORACLE SQL-Command erfolgreich ausgeführt!", False, True) End If ElseIf Me.aktivesProfil.DbArt = "MS-SQL" Then - Logger(" >> MSSQL-Command will be executed now.....", False, True) - Logger(" >> Sqlcommand: " & Sqlcommand, False, True) + Logger("MSSQL-Command will be executed now.....", False, True) + Logger("Sqlcommand: " & Sqlcommand, False, True) If database.ExecuteonMSSQL(aktivesProfil.Profilname, Sqlcommand, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, aktivesProfil.InitialCatalog) = 1 Then - Logger(" - MSSQL-Command erfolgreich ausgeführt!", False, True) + Logger("MSSQL-Command erfolgreich ausgeführt!", False, True) End If End If End If @@ -1241,7 +1240,7 @@ Public Class frmNIHauptseite If valid = True Then 'nur Zurücksetzten wenn Wert zuweisbar If (NI_Values.Length = 1 And NI_Values(0) = "") = False Then - Logger(" - Dokument sollte validiert werden - Nun erfolgreich indexiert - also Index '" & aktivesProfil.IndexValidation & "' zurücksetzen!") + Logger("Dokument sollte validiert werden - Nun erfolgreich indexiert - also Index '" & aktivesProfil.IndexValidation & "' zurücksetzen!") 'Den Flag Validation wieder auf False setzen File_SetBooleanIndex(False, aktivesDokument, aktivesProfil.IndexValidation) 'Ebenso die Fehlermeldung @@ -1253,12 +1252,12 @@ Public Class frmNIHauptseite If unvollstaendig = False Then '##### Löschen der xml-Indexdatei If NI_Values.Length = 1 And NI_Values(0) = "" Then - Logger(" - XML-Wert ist Leer und somit nicht auswertbar - Dok für Validierung markieren") + Logger("XML-Wert ist Leer und somit nicht auswertbar - Dok für Validierung markieren") 'Den Flag Validation auf True setzen File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) 'Fehlermarkierung setzen - Logger(" - Indexierung der xffres-Datei '" & System.IO.Path.GetFileNameWithoutExtension(dokument.aName) & "." & aktivesProfil.xmlEnd & "' - für die Validierung kennzeichnen") + Logger("Indexierung der xffres-Datei '" & System.IO.Path.GetFileNameWithoutExtension(dokument.aName) & "." & aktivesProfil.xmlEnd & "' - für die Validierung kennzeichnen") 'Nun die xffres Datei indexieren Dim _dokxml As WINDREAMLib.WMObject _dokxml = Nothing @@ -1270,11 +1269,11 @@ Public Class frmNIHauptseite Else 'Löschen der xml-Indexdatei If CBool(Me.aktivesProfil.delete) = True Then - Logger(" - Indexdatei soll gelöscht werden", False) + Logger("Indexdatei soll gelöscht werden", False) 'Datei über die nachindexiert wurde soll gelöscht werden System.IO.File.Delete(_pathxmlfile) - Logger(" - XML-Index-Datei: " & _pathxmlfile) - Logger(" - XML Index Datei ERFOLGREICH gelöscht!") + Logger("XML-Index-Datei: " & _pathxmlfile) + Logger("XML Index Datei ERFOLGREICH gelöscht!") End If End If End If @@ -1285,9 +1284,9 @@ Public Class frmNIHauptseite Case 1 Dim valid As Boolean = dokument.GetVariableValue(aktivesProfil.IndexValidation) '_windreamNI.GetValueforIndex(dokument.aPath & dokument.aName, aktivesProfil.vSQL_Anweisung) If valid = True Then - Logger(" >> Konvertierungsfehler bei Nachindexierung xml - Index '" & aktivesProfil.IndexValidation & "' für Validierung bereits auf True gesetzt") + Logger("Konvertierungsfehler bei Nachindexierung xml - Index '" & aktivesProfil.IndexValidation & "' für Validierung bereits auf True gesetzt") Else - Logger(" >> Konvertierungsfehler bei Nachindexierung xml - Setze Index '" & aktivesProfil.IndexValidation & "' für Validierung!", False, True) + Logger("Konvertierungsfehler bei Nachindexierung xml - Setze Index '" & aktivesProfil.IndexValidation & "' für Validierung!", False, True) 'Konvertierungsfehler File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) End If @@ -1310,8 +1309,8 @@ Public Class frmNIHauptseite End If Else If unvollstaendig = False And Me.aktivesProfil.Ni_Art.ToLower <> "fulltext" Then - Logger(" Fehler bei IndexiereVerarbeiteDokument für die Datei: " & dokument.aName.ToString, False, True) - Logger(" Fehlermeldung: " & fehlermsg, False, True) + Logger("Fehler bei IndexiereVerarbeiteDokument für die Datei: " & dokument.aName.ToString, False, True) + Logger("Fehlermeldung: " & fehlermsg, False, True) If My.Settings.vNIMailsenden = True Then email.Send_EMail("Fehler in IndexiereVerarbeiteDokument für die Datei: " & dokument.aName.ToString & "
Profilname: " & aktivesProfil.Profilname & "
Fehlermeldung: " & fehlermsg) End If @@ -1323,7 +1322,7 @@ Public Class frmNIHauptseite 'Move and Rename ausführen If _MRlicense = True And Me.aktivesProfil.MR_DAIndex <> "" And Not error_in_Indexierung And unvollstaendig = False Then - Logger(" - Move and Rename ist aktiviert") + Logger("Move and Rename ist aktiviert") Dim _MOREDA = dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex) Dim _MOREKD If Me.aktivesProfil.MR_KDIndex <> "" Then @@ -1349,7 +1348,7 @@ Public Class frmNIHauptseite 'Indexierung gegen die Indizes des Ordners If aktivesProfil.Ni_Art.ToLower = "nurordnerrechte" Or aktivesProfil.Ni_Art.ToLower = "nur-ordner-indizes" Or (aktivesProfil.GetOrdnerTypes = True And aktivesProfil.OriginalOrdnerType <> "") Then - Logger(" - Nachbearbeitung Indexe nach Ordner-Typen ist aktiviert") + Logger("Nachbearbeitung Indexe nach Ordner-Typen ist aktiviert") 'Die Ordernindizes-Namen laden Dim Oindexe = _windream.GetIndicesByFoldertype(Me.aktivesProfil.OrdnerType, False) 'Die Objekttypindizes laden @@ -1364,7 +1363,7 @@ Public Class frmNIHauptseite 'Move2Folder ausführen If error_in_Indexierung = False And aktivesProfil.move2Folder <> "" And unvollstaendig = False Then - Logger(" - Move 2 Folder ist aktiviert") + Logger("Move 2 Folder ist aktiviert") Dim err As Boolean = Move2Folder(Me.aktivesDokument.aName, My.Settings.MRWD_Laufwerk & ":" & dokument.aPath) If err = False Then If My.Settings.vNIMailsenden = True Then @@ -1394,7 +1393,7 @@ Public Class frmNIHauptseite End If 'Nachbearbeitung AD ausführen If error_in_Indexierung = False And aktivesProfil.NachbearbeitungAD = True And unvollstaendig = False Then - Logger(" - Nachbearbeitung AD ist aktiviert") + Logger("Nachbearbeitung AD ist aktiviert") Nachbearbeitung_AD(dokument) End If @@ -1429,7 +1428,7 @@ Public Class frmNIHauptseite i += 1 Next - Logger(" - der Folder '" & _path & "' soll die Quelle für die Indexwerte sein") + Logger("der Folder '" & _path & "' soll die Quelle für die Indexwerte sein") Try WMFolder = _windreamNI.oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityFolder, _path) Catch ex As Exception @@ -1437,7 +1436,7 @@ Public Class frmNIHauptseite Return False End Try Else - Logger(" - der Parentfolder ist die Quelle für die Indexwerte") + Logger("der Parentfolder ist die Quelle für die Indexwerte") Try WMFolder = _dokument.aParentWMObject Catch ex As Exception @@ -1455,7 +1454,7 @@ Public Class frmNIHauptseite For Each DateiIdxName As String In Objecttype_Indexe 'Wenn der Name identisch ist If DateiIdxName.ToLower = OrdnerIdxName.ToLower Then - Logger(" - Indexname Ordnertyp: '" & OrdnerIdxName & "' wird als Quelle genutzt") + Logger("Indexname Ordnertyp: '" & OrdnerIdxName & "' wird als Quelle genutzt") 'MsgBox("Indexname Datei Ordner gleich!") 'Den Indexwert aus dem Ordner auslesen Dim fold_idxValue = WMFolder.GetVariableValue(OrdnerIdxName) @@ -1472,7 +1471,7 @@ Public Class frmNIHauptseite arrValue(0) = fold_idxValue Me._windreamNI.RunIndexing(aktivesDokument, arrIndex, arrValue, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString) Else - Logger(" - Indexwert ist leer") + Logger("Indexwert ist leer") End If End If @@ -1581,11 +1580,11 @@ Public Class frmNIHauptseite Catch ex As Exception ign_whitespace = False End Try - Logger(" - Volltext-Indexierung - Regex: '" & Fulltext_Indexierung.Spalte & "' - Alle Vorkommen") + Logger("Volltext-Indexierung - Regex: '" & Fulltext_Indexierung.Spalte & "' - Alle Vorkommen") Else pos_von = 10000 pos_bis = 0 - Logger(" - Volltext-Indexierung - Regex: '" & Fulltext_Indexierung.Spalte & "' - Pos.-Von: '" & pos_von & "' - Pos.-Bis: '" & pos_bis) + Logger("Volltext-Indexierung - Regex: '" & Fulltext_Indexierung.Spalte & "' - Pos.-Von: '" & pos_von & "' - Pos.-Bis: '" & pos_bis) End If @@ -1704,7 +1703,7 @@ Public Class frmNIHauptseite Dim akt_Status As Boolean = CBool(_dok.GetVariableValue(_Indexname)) If akt_Status <> _value Then 'Index muß angepasst werden - Logger(" - Validation Index NOCH NICHT auf '" & _value.ToString & "' gesetzt") + Logger("Validation Index NOCH NICHT auf '" & _value.ToString & "' gesetzt") Dim arrIndex() As String = Nothing Dim arrValue() As String = Nothing 'Nun die Datei indexieren @@ -1716,7 +1715,7 @@ Public Class frmNIHauptseite arrValue(0) = _value.ToString Me._windreamNI.RunIndexing(_dok, arrIndex, arrValue, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString) If aktivesProfil.IndexFehler <> "" And _value = True Then - Logger(" - History-Fehler wird auf true gesetzt!") + Logger("History-Fehler wird auf true gesetzt!") arrIndex = Nothing arrValue = Nothing ReDim Preserve arrIndex(0) @@ -1727,7 +1726,7 @@ Public Class frmNIHauptseite End If Else 'Validation muß nicht angepasst werden - Logger(" - Validation Index bereits auf '" & _value & "' gesetzt") + Logger("Validation Index bereits auf '" & _value & "' gesetzt") End If End If Catch ex As Exception @@ -1752,12 +1751,12 @@ Public Class frmNIHauptseite _continue = True Else 'Validation muß nicht angepasst werden - Logger(" - Index für Errormeldung bereits auf '" & _error & "' gesetzt") + Logger("Index für Errormeldung bereits auf '" & _error & "' gesetzt") _continue = False End If End If If _continue = True Then - Logger(" - Index für Errormeldung NOCH NICHT auf '" & _error & "' gesetzt") + Logger("Index für Errormeldung NOCH NICHT auf '" & _error & "' gesetzt") 'Error muß angepasst werden Dim arrIndex() As String Dim arrValue() As String @@ -1774,7 +1773,7 @@ Public Class frmNIHauptseite ClassLoggerNI.Add("Schwerwiegender Fehler bei SetErrorMeldung - Der 'Error'-Index existiert nicht: ", ex.Message) Else ClassLoggerNI.Add("Schwerwiegender Fehler bei SetErrorMeldung: ", ex.Message) - ClassLoggerNI.Add(" - Errorindexname: " & _Indexname, False) + ClassLoggerNI.Add(">> Errorindexname: " & _Indexname, False) End If If My.Settings.vNIMailsenden = True Then email.Send_EMail("Schwerwiegender Fehler bei SetErrorMeldung -
Profil: " & aktivesProfil.Profilname & "
Datei: " & dokument.aName.ToString & "
Fehler: " & ex.Message) @@ -1811,7 +1810,7 @@ Public Class frmNIHauptseite _replace = "'" & _indexvalue & "'" End If _vsql = sql.Replace("[%" & aktivesProfil.Desk_windreamIndex & "]", _replace) - Logger(" >> Check Deskriptiven Index-Value - Select Scalar: " & _vsql, False) + Logger("Check Deskriptiven Index-Value - Select Scalar: " & _vsql, False) If aktivesProfil.DbArt = "Oracle" Then Dim ergebnis As Integer = database.CheckIndex_oracle(_vsql, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password) @@ -1928,7 +1927,7 @@ Public Class frmNIHauptseite ClassLoggerNI.Add(">> Nachindexierung wird abgebrochen - Reason: " & cancel_Reason, False) Try If Me.bwProfil.IsBusy Or cancel_Reason = "Abbruch nach Timeout Suche" Then - Logger(" >> Thread Profil wird abgebrochen....", False, True) + Logger("Thread Profil wird abgebrochen....", False, True) Me.bwProfil.CancelAsync() End If @@ -1937,7 +1936,7 @@ Public Class frmNIHauptseite End Try Try If Me.bwsearch.IsBusy Or cancel_Reason = "Abbruch nach Timeout Suche" Then - Logger(" >> Thread Search wird abgebrochen....", False, True) + Logger("Thread Search wird abgebrochen....", False, True) Me.bwsearch.CancelAsync() End If Catch ex As Exception @@ -1945,7 +1944,7 @@ Public Class frmNIHauptseite End Try Try If Me.bwDatei.IsBusy Or cancel_Reason = "Abbruch nach Timeout Suche" Then - Logger(" >> Thread Datei wird abgebrochen....", False, True) + Logger("Thread Datei wird abgebrochen....", False, True) Me.bwDatei.CancelAsync() End If Catch ex As Exception @@ -2032,35 +2031,35 @@ Public Class frmNIHauptseite ' End If - ' Logger(" Move and Rename gestartet") - ' Logger(" Datum/Zeit: " & Now.Date & " " & Now.Date.ToShortTimeString) - ' Logger(" Datei: " & vDatei) + ' Logger("Move and Rename gestartet") + ' Logger("Datum/Zeit: " & Now.Date & " " & Now.Date.ToShortTimeString) + ' Logger("Datei: " & vDatei) ' If vIndexnameKD.ToString <> "" Then - ' Logger(" Indexname Kundenidentifikator: " & vIndexnameKD) + ' Logger("Indexname Kundenidentifikator: " & vIndexnameKD) ' Else - ' Logger(" Ein allgemeines Dokument für Move and Rename") + ' Logger("Ein allgemeines Dokument für Move and Rename") ' End If ' If _MRKundenKennzeichen.ToString <> "" Then ' If _MRKundenKennzeichen = "xxxx" Then - ' Logger(" Es handelt sich um ein Allgemeines Kundenkennzeichen") + ' Logger("Es handelt sich um ein Allgemeines Kundenkennzeichen") ' Else - ' Logger(" Ausgelesener Kundenidentifikator: " & _MRKundenKennzeichen) + ' Logger("Ausgelesener Kundenidentifikator: " & _MRKundenKennzeichen) ' End If ' End If - ' Logger(" Indexname Dokumentart: " & vIndexnameDA) - ' Logger(" Ausgelesene Dokumentart: " & _MRDokumentart) - ' Logger(" Indexname Deskriptiver Index: " & vindexnameDesIndex) + ' Logger("Indexname Dokumentart: " & vIndexnameDA) + ' Logger("Ausgelesene Dokumentart: " & _MRDokumentart) + ' Logger("Indexname Deskriptiver Index: " & vindexnameDesIndex) ' _MRDeskrIndex = _windreamNI.GetValueforIndex(vDatei.Substring(2), vindexnameDesIndex) ' If _MRDeskrIndex = "" Then - ' Logger(" - Achtung: ein eindeutiger/deskriptiver Indexwert existiert noch nicht! Dok kann nicht verschoben und umbenannt werden!", False, True) - ' Logger(" - Move and Rename wird abgebrochen", False, True) + ' Logger(" - Achtung: ein eindeutiger/deskriptiver Indexwert existiert noch nicht! Dok kann nicht verschoben und umbenannt werden!", False, True) + ' Logger("Move and Rename wird abgebrochen", False, True) ' Return False ' Else - ' Logger(" Ausgelesener Deskriptiver Index: " & _MRDeskrIndex) + ' Logger("Ausgelesener Deskriptiver Index: " & _MRDeskrIndex) ' End If ' If _MRKundenKennzeichen = "" Then - ' Logger(" - ACHTUNG: Kundenidentifikator ist leer - Das Dokument stammt von einem Interessenten") + ' Logger("ACHTUNG: Kundenidentifikator ist leer - Das Dokument stammt von einem Interessenten") ' _MRKundenKennzeichen = "" ' End If @@ -2084,7 +2083,7 @@ Public Class frmNIHauptseite 'End Function 'Private Function MRfile_rename_move(ByVal _file As String) - ' Logger(" - Jetzt in Sub MRfile_rename_move") + ' Logger("Jetzt in Sub MRfile_rename_move") ' Try ' Dim extension As String = Path.GetExtension(_file) @@ -2098,18 +2097,18 @@ Public Class frmNIHauptseite ' Dim DT As DataTable = DS_More.VWMO_RE_DOKUMENTARTZUORDNUNG ' If DT.Rows.Count = 1 Then ' _path = DT.Rows(0).Item("DOKUMENTARTORDNER") - ' Logger(" Ausgelesener Pfad: " & _path) + ' Logger("Ausgelesener Pfad: " & _path) ' _kunde = DT.Rows(0).Item("KUNDEN_NAME") ' _praefix = DT.Rows(0).Item("PRAEFIX") - ' Logger(" - Umbennennen des Dokumentes:") + ' Logger("Umbennennen des Dokumentes:") ' 'Dokument kann umbenannt werden ' _newfilename = _praefix - ' Logger(" - Ausgelesener Kurzname: " & _newfilename) + ' Logger("Ausgelesener Kurzname: " & _newfilename) ' _newfilename = _newfilename & _MRDeskrIndex & extension - ' Logger(" - Neuer Dateiname: " & _newfilename) + ' Logger("Neuer Dateiname: " & _newfilename) ' 'MsgBox("Dokart: " & _Dokumentart & vbNewLine & "KD-KZ: " & _KundenKennzeichen & vbNewLine & "PFad:" & P) - ' Logger(" - Überprüfen file exists/Doppelter Dateiname") + ' Logger("Überprüfen file exists/Doppelter Dateiname") ' '### VERSIONIERUNG ### ' Dim version As Integer = 2 ' Dim Stammname As String = _newfilename.Substring(0, _newfilename.LastIndexOf(".")) @@ -2121,21 +2120,21 @@ Public Class frmNIHauptseite ' version = version + 1 ' Loop - ' Logger(" - Neuer Dateiname: " & _newfilename) - ' Logger(" - Aktion Verschieben der Datei") - ' Logger(" - Quelle: " & _file) + ' Logger("Neuer Dateiname: " & _newfilename) + ' Logger("Aktion Verschieben der Datei") + ' Logger("Quelle: " & _file) ' _ziel = _path & "\" & _newfilename - ' Logger(" - Ziel: " & _ziel) + ' Logger("Ziel: " & _ziel) ' If myFolderPath <> _path Then ' My.Computer.FileSystem.MoveFile(_file, _ziel) - ' Logger(" - Erfolgsmeldung - Datei wurde erfolgreich verschoben") + ' Logger("Erfolgsmeldung - Datei wurde erfolgreich verschoben") ' 'ClassLoggerNI.Add(" ######### Erfolgsmeldung - Datei wurde erfolgreich umbenannt und verschoben ###########", False) ' Else - ' Logger(" - Verschieben nicht notwendig: Ordnerpfad identisch!") + ' Logger("Verschieben nicht notwendig: Ordnerpfad identisch!") ' My.Computer.FileSystem.RenameFile(_file, _newfilename) - ' Logger(" - Erfolgsmeldung - Datei wurde erfolgreich umbenannt") + ' Logger("Erfolgsmeldung - Datei wurde erfolgreich umbenannt") ' End If ' Me.TBMO_RE_HISTORYTableAdapter.Insert(_file, _newfilename, _kunde, _MRDeskrIndex, _MRDokumentart, "ToolCollection") @@ -2157,26 +2156,26 @@ Public Class frmNIHauptseite Try Logger("======================================================================") - Logger(" Move2Folder gestartet ") + Logger("Move2Folder gestartet ") Logger("______________________________________________________________________") - Logger(" Datum/Zeit: " & Now.Date & " " & Now.Date.ToShortTimeString) - Logger(" Datei: " & vFilestring) + Logger("Datum/Zeit: " & Now.Date & " " & Now.Date.ToShortTimeString) + Logger("Datei: " & vFilestring) Dim extension As String = Path.GetExtension(vDateiName) Dim _Pfad, _WDLaufwerk, _Ziel As String _Ziel = Me.aktivesProfil.move2Folder & "\" & vDateiName - Logger(" Ziel: " & _Ziel, False) + Logger("Ziel: " & _Ziel, False) Dim Stammname As String = _Ziel.Substring(0, _Ziel.LastIndexOf(".")) Dim version As Integer = 2 Do While clsHelper.file_exists(_Ziel, "NI") = True - Logger(" Achtung: Datei existiert bereits!", False) + Logger("Achtung: Datei existiert bereits!", False) Dim neuername As String = Stammname & "~" & version & extension _Ziel = neuername version = version + 1 Loop My.Computer.FileSystem.MoveFile(vFilestring, _Ziel) - Logger(" >> Move2Folder: Datei wurde erfolgreich verschoben! Ziel: '" & _Ziel & "'", False, True) + Logger(" >> Move2Folder: Datei wurde erfolgreich verschoben! Ziel: '" & _Ziel & "'", False, True) If clsHelper.file_exists(vFilestring, "NI") = True Then ClassLoggerNI.Add(">> Datei existiert trotz Move noch am ursprünglichen Ort noch....wird gelöscht wenn an Ziel existiert....", False) If clsHelper.file_exists(_Ziel, "NI") = True Then @@ -2209,14 +2208,14 @@ Public Class frmNIHauptseite Dim Indexwert As String folder_temp = _Uordner.Replace("[%", "") folder_temp = folder_temp.Replace("]", "") - Logger(" - Index für CrFolder - Ordner: '" & folder_temp & "'") + Logger("Index für CrFolder - Ordner: '" & folder_temp & "'") 'Den Indexwert auslesen Try - Logger(" - Versuch den Indexwert aus '" & CStr(folder_temp) & "' auszulesen.") + Logger("Versuch den Indexwert aus '" & CStr(folder_temp) & "' auszulesen.") Indexwert = aktivesDokument.GetVariableValue(folder_temp) - Logger(" - Ergebnis/Wert für neuen Ordner: '" & CStr(Indexwert) & "'") + Logger("Ergebnis/Wert für neuen Ordner: '" & CStr(Indexwert) & "'") Catch ex As Exception - Logger(" >> ACHTUNG: der Index '" & folder_temp & "' ist nicht gefüllt oder es trat ein Fehler beim Auslesen der Indexwerte auf", False, True) + Logger("ACHTUNG: der Index '" & folder_temp & "' ist nicht gefüllt oder es trat ein Fehler beim Auslesen der Indexwerte auf", False, True) Return True End Try @@ -2227,9 +2226,9 @@ Public Class frmNIHauptseite newFolder = newFolder & Indexwert & "\" - Logger(" - newFolder: '" & newFolder & "'") + Logger("newFolder: '" & newFolder & "'") Else - Logger(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!", True, True) + Logger("Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!", True, True) Return True End If End If @@ -2269,15 +2268,15 @@ Public Class frmNIHauptseite Next If newFolder <> "" Then - Logger(" - Den Root-Folder zusammenfügen...") + Logger("Den Root-Folder zusammenfügen...") 'in einem separaten Ordner anlegen If Me.aktivesProfil.CrFolder_Folder <> "" Then RootFolder = Me.aktivesProfil.CrFolder_Folder - Logger(" - RootFolder: '" & RootFolder & "'") + Logger("RootFolder: '" & RootFolder & "'") End If Dim fullpath As String = RootFolder & "\" & newFolder fullpath.Replace("\\", "\") - Logger(" - Fullpath (mit evtl. Sonderzeichen (SZ)) '" & fullpath & "'", False) + Logger("Fullpath (mit evtl. Sonderzeichen (SZ)) '" & fullpath & "'", False) Dim invalidPathChars() As Char = IO.Path.GetInvalidPathChars() For Each sonderChar As Char In invalidPathChars 'Sonderzeichen ausser Whitespace entfernen @@ -2288,10 +2287,10 @@ Public Class frmNIHauptseite End If Next sonderChar - Logger(" - Fullpath (ohne SZ) '" & fullpath & "'", False) + Logger("Fullpath (ohne SZ) '" & fullpath & "'", False) If Directory.Exists(fullpath) = False Then Directory.CreateDirectory(fullpath) - Logger(" - Folder '" & fullpath & "' wurde angelegt", False, True) + Logger("Folder '" & fullpath & "' wurde angelegt", False, True) End If aktivesProfil.CrFolder_Created_Folder = fullpath CURRENT_MOVE_FILEPATH = fullpath @@ -2299,39 +2298,39 @@ Public Class frmNIHauptseite If aktivesProfil.CrFolder_Move = True Then - Logger(" - Datei soll direkt auch verschoben werden.", False) + Logger("Datei soll direkt auch verschoben werden.", False) 'Die aktuelle Datei soll gleichzeitig verschoben werden Dim extension As String = Path.GetExtension(fullfilename) Dim Dateiname As String = Path.GetFileName(fullfilename) Dim _Pfad, _WDLaufwerk, _Ziel As String _Ziel = fullpath & Dateiname - Logger(" - Ziel: " & _Ziel, False) + Logger("Ziel: " & _Ziel, False) 'Nur verschieben und überprüfen wenn Pfad ungleich If Path.GetDirectoryName(fullfilename) <> Path.GetDirectoryName(_Ziel) Then Dim Stammname As String = _Ziel.Substring(0, _Ziel.LastIndexOf(".")) Dim version As Integer = 2 Do While clsHelper.file_exists(_Ziel, "NI") = True version = version + 1 - Logger(" - Achtung: Datei ' " & Path.GetFileName(_Ziel) & "' existiert bereits!", False) + Logger("Achtung: Datei ' " & Path.GetFileName(_Ziel) & "' existiert bereits!", False) Dim neuername As String = Stammname & "~" & version & extension _Ziel = neuername Loop My.Computer.FileSystem.MoveFile(fullfilename, _Ziel) - ClassLoggerNI.Add(" - Datei wurde nach CrFolderIndex-Methode erfolgreich verschoben", False) + ClassLoggerNI.Add(">> Datei wurde nach CrFolderIndex-Methode erfolgreich verschoben", False) Else - Logger(" - (CrFolderForIndex) Quell- und Zielordner identisch", False, True) + Logger("(CrFolderForIndex) Quell- und Zielordner identisch", False, True) If Path.GetFileName(fullfilename) <> Path.GetFileName(_Ziel) And File.Exists(_Ziel) Then - Logger(" - (CrFolderForIndex) Quell- und Zielname nicht identisch", False, True) + Logger("(CrFolderForIndex) Quell- und Zielname nicht identisch", False, True) FileSystem.Rename(_Ziel, Path.GetDirectoryName(_Ziel) & Path.GetFileName(fullfilename)) - ClassLoggerNI.Add(" - Datei wurde nach CrFolderIndex-Methode umbenannt", False) + ClassLoggerNI.Add(">> Datei wurde nach CrFolderIndex-Methode umbenannt", False) End If End If End If Return False Else - Logger(" - Achtung es konnte kein dynamischer Pfad generiert werden!", True) + Logger("Achtung es konnte kein dynamischer Pfad generiert werden!", True) Return True End If