MS

app/ResultHandler_Konfig/clsDateiverarbeitung.vb

@@ -0,0 +1,291 @@
+Imports WINDREAMLib
+Imports System.IO
+Public Class clsDateiverarbeitung
+
+#Region "***** Variablen und Konstanten*****"
+    Public Shared _windream As New clsWindream_allgemein
+
+
+    Public Shared pr_DTPROFIL_REGELN As DataTable
+    Public Shared aktfile_Exportresult
+
+
+    Public Shared CriticalError As Boolean = False
+
+    Private Shared regel_TYP, regel_INDEX_NAME, regel_QUELLE1, regel_FROM1, regel_FROM2 As String
+    Private Shared Indexe() As String = Nothing  ' zum Speichern der Indexe
+    Private Shared NI_Values() As String = Nothing  ' zum Speichern der Werte
+
+    Private Shared WD_aktivesDokument As WMObject
+
+
+    Const WMObjectStreamOpenModeReadWrite = 2
+    Const WMObjectEditModeFileSystem = &H15
+#End Region
+    Public Shared Function InitProfilData()
+        Try
+            pr_DTPROFIL_REGELN = Nothing
+            ' Profildaten der Klasse mitteilen
+            clsLogger.AddDetailLog("InitProfilData Profildaten zugewiesen....")
+            Return True
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "cls_DV.InitProfilData")
+            Return False
+        End Try
+    End Function
+    'Kopiert die übergebene Datei in den Zielpfad
+    Public Shared Function Export_File(WDDatei As WMObject, Zielpfad As String)
+        Try
+            If Not Zielpfad.EndsWith("\") Then
+                Zielpfad = Zielpfad & "\"
+            End If
+            clsLogger.Add("", False)
+            clsLogger.Add(">> Verarbeitung von Datei: " & WDDatei.aName, False)
+            'Die Quelle zusammensetzen
+            clsLogger.AddDetailLog("PFAD: " & WDLAUFWERK & ":" & WDDatei.aPath & "\" & WDDatei.aName)
+            'Dim Quelle As String = IO.Path.GetDirectoryName(WDLaufwerk & ":" & WDDatei.aPath & "\" & WDDatei.aName)
+
+            Dim ExportFileIO = New WMOTOOLLib.WMFileIO ' CreateObject("WMOTOOLLib.WMFileIO") ' New WMOTOOLLib.WMFileIO 
+            clsLogger.AddDetailLog("ExportFileIO erzeugt.....")
+            ' Stream Interface bereitstellen
+            WDDatei.LockFor(WMObjectEditModeFileSystem)
+            Try
+                If Not WDDatei.aLocked Then
+                    WDDatei.lock()
+                End If
+            Catch ex As Exception
+                clsLogger.AddError("Unvorhergesehener Fehler beim Lock-Vorgang: " & ex.Message, "clsDV.Export_File")
+                Return False
+            End Try
+          
+            Dim oWMStream = WDDatei.OpenStream("BinaryObject", WMObjectStreamOpenModeReadWrite)
+            '### VERSIONIERUNG ###
+            Dim version As Integer = 2
+            'Dim Stammname As String = System.IO.Path.GetFileNameWithoutExtension(Quelle)
+            Dim Filename = WDDatei.aName.Substring(0, WDDatei.aName.LastIndexOf("."))
+            Dim Extension = WDDatei.aName.Substring(WDDatei.aName.LastIndexOf("."))
+            Dim tempFilename As String = Zielpfad & Filename & Extension
+            'Überprüfen ob File existiert
+            Do While IO.File.Exists(tempFilename) = True
+                tempFilename = Zielpfad & Filename & "_" & version & Extension
+                version = version + 1
+            Loop
+            clsLogger.AddDetailLog("Zieldateiname: " & tempFilename)
+            ' den Dateiinhalt der neuen Datei zuweisen
+            ExportFileIO.aWMStream = oWMStream
+            ExportFileIO.bstrOriginalFileName = tempFilename
+            'Das eigentliche kopieren
+            ExportFileIO.ExportOriginal(True)
+            ' close the windream file stream
+            oWMStream.Close()
+            WDDatei.Save()
+            WDDatei.unlock()
+            EXPORTED_FILENAME = tempFilename
+            clsLogger.Add(">> Datei erfolgreich nach '" & tempFilename & "' verschoben.", False, "clsDV Export_File")
+            aktfile_Exportresult = tempFilename
+            Return True
+        Catch ex As Exception
+            'bei einem Fehler einen Eintrag in der Logdatei machen
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDV.Export_File")
+            Return False
+        End Try
+    End Function
+    Public Shared Function Rename_File(WMFile As WMObject, konvention As String)
+        Try
+            clsLogger.AddDetailLog("Konvention: '" & konvention & "'")
+
+            'Regulären Ausdruck zum Auslesen der windream-Indexe definieren
+            Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
+            ' einen Regulären Ausdruck laden
+            Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
+            ' die Vorkommen im SQL-String auslesen
+            Dim reg_elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(konvention)
+            Dim i As Integer = 0
+            ' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
+            For Each reg_element As System.Text.RegularExpressions.Match In reg_elemente
+                'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
+                Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "")
+                reg_element_Ohne_SZ = reg_element_Ohne_SZ.Replace("]", "")
+                clsLogger.AddDetailLog("Indexwert aus Index '" & reg_element_Ohne_SZ & "' auslesen....")
+                Dim wdIndexwert
+                'den Wert des Indexes für das aktuelle Dokument auslesen
+                wdIndexwert = WMFile.GetVariableValue(reg_element_Ohne_SZ)
+                If wdIndexwert Is Nothing = False Then
+                    If Not wdIndexwert.GetType.ToString.Contains("System.Object") Then
+                        clsLogger.AddDetailLog("Namenkonvention (" & i & ") " & konvention)
+                        wdIndexwert = wdIndexwert.ToString.TrimEnd
+                        wdIndexwert = wdIndexwert.ToString.TrimStart
+                        clsLogger.AddDetailLog("Ausgelesener Indexwert = '" & wdIndexwert & "'")
+                        konvention = konvention.Replace(reg_element.Value, wdIndexwert.ToString)
+                        i += 1
+                    Else
+                        clsLogger.Add(">> Achtung gelesener Wert ist ein Vektorfeld - keine Umbenennung möglich ", False, "clsProfil.Profil_Durchlauf")
+                    End If
+                End If
+            Next
+            Dim version As Integer = 2
+            Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult)
+            clsLogger.AddDetailLog("ZielPfad: " & ZielPfad)
+            Dim Filename = konvention
+            Dim Extension = Path.GetExtension(aktfile_Exportresult)
+            clsLogger.AddDetailLog("Extension: " & Extension)
+            Dim tempFilename As String = ZielPfad & "\" & Filename & Extension
+            clsLogger.AddDetailLog("tempFilename: " & tempFilename)
+            'Überprüfen ob File existiert
+            Do While IO.File.Exists(tempFilename) = True
+                tempFilename = ZielPfad & "\" & Filename & "~" & version & Extension
+                version += 1
+            Loop
+            clsLogger.AddDetailLog("RenameFile - OLDFilename: " & aktfile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename))
+            My.Computer.FileSystem.RenameFile(aktfile_Exportresult, Path.GetFileName(tempFilename))
+            clsLogger.Add(">> Datei wurde erfolgreich umbenannt.", False, "clsProfil.RenameFile")
+            Return True
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.RenameFile")
+            Return False
+        End Try
+    End Function
+    Public Shared Function Rename_File_Vektor(WMFile As WMObject, WMINDEX_NAME As String)
+        Try
+            Dim WMIndexwert
+            Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult)
+            clsLogger.AddDetailLog("ZielPfad: " & ZielPfad)
+            Dim Extension = Path.GetExtension(aktfile_Exportresult)
+            clsLogger.AddDetailLog("Extension: " & Extension)
+
+            If WMINDEX_NAME.StartsWith("[%") Then
+                WMINDEX_NAME = WMINDEX_NAME.Replace("[%", "")
+                WMINDEX_NAME = WMINDEX_NAME.Replace("]", "")
+            End If
+            'den Wert des Indexes für das aktuelle Dokument auslesen
+            WMIndexwert = WMFile.GetVariableValue(WMINDEX_NAME)
+            If WMIndexwert.GetType.ToString.Contains("System.Object") Then
+                clsLogger.AddDetailLog("Rename_File_Vektor in Progress for index " & WMINDEX_NAME)
+                Dim anz As Integer = 1
+                Dim copybasefile As String
+                For Each WMvalue As Object In WMIndexwert
+                    'Für jeden Value eine Datei erzeugen
+                    Try
+                        If WMvalue.ToString <> String.Empty Then
+                            Dim tempFilename As String = ZielPfad & "\" & WMvalue & Extension
+                            clsLogger.AddDetailLog("tempFilename: " & tempFilename)
+                            If anz = 1 Then
+                                clsLogger.AddDetailLog("RenameFile - OLDFilename: " & aktfile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename))
+                                My.Computer.FileSystem.RenameFile(aktfile_Exportresult, Path.GetFileName(tempFilename))
+                                copybasefile = tempFilename
+                            Else
+                                Dim version As Integer = 2
+                                'Überprüfen ob File existiert
+                                Do While IO.File.Exists(tempFilename) = True
+                                    tempFilename = ZielPfad & "\" & WMvalue & "~" & version & Extension
+                                    version += 1
+                                Loop
+                                File.Copy(copybasefile, tempFilename, True)
+                            End If
+                            anz += 1
+
+                        End If
+                    Catch ex As Exception
+                        clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDateiverarbeitung.ForEachWMvalue")
+                    End Try
+                Next
+            Else
+                clsLogger.Add(">> Achtung WMIndex " & WMINDEX_NAME & " scheint kein Vektorfeld zu sein!", False, "clsDateiverarbeitung.Rename_File_Vektor")
+                Return False
+            End If
+
+            clsLogger.Add(">> Dateien wurde erfolgreich nach Vektorfeld erzeugt.", False, "clsDateiverarbeitung.Rename_File_Vektor")
+            Return True
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDateiverarbeitung.Rename_File_Vektor")
+        End Try
+    End Function
+    Public Shared Function RUN_ORACLE_COMMAND(WMFile As WMObject, OracleCS As String, OracleCommandRAW As String)
+        Try
+            Dim result = REGEX_REPLACE(WMFile, OracleCommandRAW)
+            If result = Nothing Then
+                Return False
+            End If
+
+
+            If clsDatatabase.ExecuteonOracleDb(OracleCS, result) = True Then
+                Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "RUN_ORACLE_COMMAND")
+            Return False
+        End Try
+    End Function
+    Public Shared Function RUN_MSSQL_COMMAND(WMFile As WMObject, MSSQLCS As String, SQLCommandRAW As String)
+        Try
+            Dim result = REGEX_REPLACE(WMFile, SQLCommandRAW)
+            If result = Nothing Then
+                Return False
+            End If
+
+
+            If clsDatatabase.ExecuteonMSSQL(MSSQLCS, result) = True Then
+                Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "RUN_MSSQL_COMMAND")
+            Return False
+        End Try
+    End Function
+
+    Private Shared Function REGEX_REPLACE(WMFile As WMObject, _STRING As String)
+        Try
+            ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
+            Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
+            ' einen Regulären Ausdruck laden
+            Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
+            ' die Vorkommen im SQL-String auslesen
+            Dim reg_elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(_STRING)
+            Dim i As Integer = 0
+            ' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
+            For Each reg_element As System.Text.RegularExpressions.Match In reg_elemente
+                ' die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
+                Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "")
+                reg_element_Ohne_SZ = reg_element_Ohne_SZ.Replace("]", "")
+                clsLogger.AddDetailLog("Indexwert aus Index/Variable '" & reg_element_Ohne_SZ & "' auslesen....")
+                If reg_element_Ohne_SZ = "EXPORTED_FILENAME" Then
+                    If EXPORTED_FILENAME <> "" Then
+                        _STRING = _STRING.Replace(reg_element.Value, EXPORTED_FILENAME)
+                    End If
+                Else
+                    Dim wdIndexwert
+                    ' den Wert des Indexes für das aktuelle Dokument auslesen
+                    wdIndexwert = WMFile.GetVariableValue(reg_element_Ohne_SZ)
+                    If wdIndexwert Is Nothing = False Then
+                        If Not wdIndexwert.GetType.ToString.Contains("System.Object") Then
+
+                            wdIndexwert = wdIndexwert.ToString.TrimEnd
+                            wdIndexwert = wdIndexwert.ToString.TrimStart
+                            clsLogger.AddDetailLog("Ausgelesener Indexwert = '" & wdIndexwert & "'")
+                            _STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString)
+                            clsLogger.AddDetailLog("Namenkonvention  (" & i & ") " & _STRING)
+                            i += 1
+                        Else
+                            clsLogger.Add(">> Achtung gelesener Wert ist ein Vektorfeld - keine Umbenennung möglich ", False, "clsProfil.Profil_Durchlauf")
+                            Return Nothing
+                        End If
+                    End If
+                End If
+
+
+            Next
+            Return _STRING
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "REGEX_REPLACE")
+            Return Nothing
+        End Try
+    End Function
+
+End Class
+