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

ms

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2017-10-06 10:32:19 +02:00
parent e54d8ce325
commit f8bf313d71
12 changed files with 314 additions and 304 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ToolCollection/ClassLoggerDI.vb
View File

@ -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

6
ToolCollection/ClassLoggerNI.vb
View File

@ -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

2
ToolCollection/ClassLoggerService.vb
View File

@ -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

16
ToolCollection/ClassMO_RE.vb
View File

@ -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

2
ToolCollection/ClassMoveRenameLogger.vb
View File

@ -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

4
ToolCollection/ClassNIDatenbankzugriff.vb
View File

@ -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

16
ToolCollection/ClassNIWindream.vb
View File

@ -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)
@ -653,18 +653,18 @@ Public Class ClassNIWindream
oDocument.Save()
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

9
ToolCollection/ClassWD_Rechte.vb
View File

@ -208,6 +208,7 @@ Public Class ClassWD_Rechte
''' <returns>Boolean True wenn erfolgreich</returns>
''' <remarks></remarks>
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
@ -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

2
ToolCollection/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.0.4.2")>
<Assembly: AssemblyVersion("2.0.4.3")>
<Assembly: AssemblyFileVersion("1.5.1.0")>

50
ToolCollection/clsNIFulltext.vb
View File

@ -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,18 +37,22 @@ 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 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 m.Groups.Count - 1
Dim g As Group = m.Groups(i)
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
@ -99,9 +107,12 @@ Public Class clsNIFulltext
'& "', Position=" & c.Index)
' Next
Next
m = m.NextMatch()
regexMatch = regexMatch.NextMatch()
Else
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add("Using Matchelements.....", False)
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)
@ -135,24 +146,17 @@ Public Class clsNIFulltext
Next ' zum nächsten Vorkommen
End If
Dim Meldung As String
End If
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

2
ToolCollection/clsNI_DB.vb
View File

@ -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

271
ToolCollection/frmNIHauptseite.vb
View File

@ -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: <br> >> Profil: " & Me.aktivesProfil.Profilname & "<br> >> 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! <p> 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)
@ -709,7 +708,7 @@ Public Class frmNIHauptseite
' 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
@ -1046,13 +1045,13 @@ Public Class frmNIHauptseite
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,10 +1100,10 @@ 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)
@ -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)
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
@ -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 - <br> Profil: " & aktivesProfil.Profilname & "<br> Datei: " & dokument.aName.ToString & "<br> 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
@ -2054,13 +2053,13 @@ Public Class frmNIHauptseite
' _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("Move and Rename wird abgebrochen", False, True)
' Return False
' Else
' 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)
@ -2101,15 +2100,15 @@ Public Class frmNIHauptseite
' 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")
@ -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