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

MyApplicationGlobix

Browse Source
This commit is contained in:
SchreiberM 2020-11-16 13:27:23 +01:00
parent 79872f048d
commit 2b8b96a762
5 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
GUIs.ZooFlow/ClassFilehandle.vb
View File

@ -24,7 +24,7 @@ Public Class ClassFilehandle
Public Function Decide_FileHandle(filename As String, handletype As String) Public Function Decide_FileHandle(filename As String, handletype As String)
Try Try
If filename.EndsWith(".msg") Then If filename.EndsWith(".msg") Then
My.Application.CurrMessageID = "" My.Application.Globix.CurrMessageID = ""
Dim _msg As New Msg.Message(filename) Dim _msg As New Msg.Message(filename)
If _msg.Attachments.Count > 0 Then If _msg.Attachments.Count > 0 Then
Dim result As MsgBoxResult Dim result As MsgBoxResult
@ -72,12 +72,12 @@ Public Class ClassFilehandle
Dim msg As New Msg.Message(msgname) Dim msg As New Msg.Message(msgname)
If Not msg.InternetMessageId Is Nothing Then If Not msg.InternetMessageId Is Nothing Then
My.Application.CurrMessageID = msg.InternetMessageId My.Application.Globix.CurrMessageID = msg.InternetMessageId
Else Else
_LOGGER.Info(">> Email_Decay: Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!") _LOGGER.Info(">> Email_Decay: Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
Dim sGUID As String Dim sGUID As String
sGUID = System.Guid.NewGuid.ToString() sGUID = System.Guid.NewGuid.ToString()
My.Application.CurrMessageID = sGUID My.Application.Globix.CurrMessageID = sGUID
End If End If
'Nur die MSGDatei ablegen 'Nur die MSGDatei ablegen
@ -90,7 +90,7 @@ Public Class ClassFilehandle
_msgEXAtt.Attachments.Clear() _msgEXAtt.Attachments.Clear()
_msgEXAtt.Save(tempfile) _msgEXAtt.Save(tempfile)
'Datei in Array zum Templöschen speichern 'Datei in Array zum Templöschen speichern
My.Application.TEMP_FILES.Add(tempfile) My.Application.Globix.TEMP_FILES.Add(tempfile)
If Insert_GI_File(tempfile, msgonly) = True Then If Insert_GI_File(tempfile, msgonly) = True Then
erfolgreich = True erfolgreich = True
@ -117,7 +117,7 @@ Public Class ClassFilehandle
If tempfile <> String.Empty Then If tempfile <> String.Empty Then
Dim oMessage = attachment.EmbeddedMessage Dim oMessage = attachment.EmbeddedMessage
oMessage.Save(tempfile) oMessage.Save(tempfile)
My.Application.TEMP_FILES.Add(tempfile) My.Application.Globix.TEMP_FILES.Add(tempfile)
_LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile) _LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
erfolgreich = Insert_GI_File(tempfile, ATT_EXTR) erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
i1 += 1 i1 += 1
@ -130,7 +130,7 @@ Public Class ClassFilehandle
If tempfile <> "" Then If tempfile <> "" Then
attachment.Save(tempfile) attachment.Save(tempfile)
'Datei in Array zum Templöschen speichern 'Datei in Array zum Templöschen speichern
My.Application.TEMP_FILES.Add(tempfile) My.Application.Globix.TEMP_FILES.Add(tempfile)
_LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile) _LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
'nun der Insert des Anhanges 'nun der Insert des Anhanges
erfolgreich = Insert_GI_File(tempfile, ATT_EXTR) erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
@ -229,7 +229,7 @@ Public Class ClassFilehandle
' sFilename = sFilename.Replace("..", ".") ' sFilename = sFilename.Replace("..", ".")
'End If 'End If
' alle nicht zulässigen Zeichen ersetzen ' alle nicht zulässigen Zeichen ersetzen
sFilename = System.Text.RegularExpressions.Regex.Replace(sFilename, My.Application.GI_REGEX_CLEAN_FILENAME, REPLACEChar) sFilename = System.Text.RegularExpressions.Regex.Replace(sFilename, My.Application.Globix.REGEX_CLEAN_FILENAME, REPLACEChar)
sFilename = System.Text.RegularExpressions.Regex.Replace(sFilename, "[\\/:*?""<>|\r\n]", "", System.Text.RegularExpressions.RegexOptions.Singleline) sFilename = System.Text.RegularExpressions.Regex.Replace(sFilename, "[\\/:*?""<>|\r\n]", "", System.Text.RegularExpressions.RegexOptions.Singleline)
'Dim oCleanFileName As String = String.Join(REPLACEChar, sFilename.Split(Path.GetInvalidFileNameChars())) 'Dim oCleanFileName As String = String.Join(REPLACEChar, sFilename.Split(Path.GetInvalidFileNameChars()))
Dim oCleanFileName As New System.IO.FileInfo(System.Text.RegularExpressions.Regex.Replace(sFilename, String.Format("[{0}]", String.Join(String.Empty, Path.GetInvalidFileNameChars)), REPLACEChar)) Dim oCleanFileName As New System.IO.FileInfo(System.Text.RegularExpressions.Regex.Replace(sFilename, String.Format("[{0}]", String.Join(String.Empty, Path.GetInvalidFileNameChars)), REPLACEChar))

4
GUIs.ZooFlow/ClassInit.vb
View File

@ -37,7 +37,7 @@ Public Class ClassInit
oInit.AddStep("Initializing User..", AddressOf InitializeUser, True) oInit.AddStep("Initializing User..", AddressOf InitializeUser, True)
oInit.AddStep("Initializing IDB..", AddressOf InitializeIDB, True) oInit.AddStep("Initializing IDB..", AddressOf InitializeIDB, True)
oInit.AddStep("Loading 3rd-party licenses", AddressOf Initialize3rdParty, False) oInit.AddStep("Loading 3rd-party licenses", AddressOf Initialize3rdParty, False)
oInit.AddStep("Loading basic Configs", AddressOf Initialize3rdParty, False) oInit.AddStep("Loading basic Configs", AddressOf InitBasicData, False)
' === Init Schritte definieren ' === Init Schritte definieren
AddHandler oInit.ProgressChanged, AddressOf ProgressChanged AddHandler oInit.ProgressChanged, AddressOf ProgressChanged
@ -116,7 +116,7 @@ Public Class ClassInit
Private Sub InitBasicData(MyApplication As My.MyApplication) Private Sub InitBasicData(MyApplication As My.MyApplication)
Try Try
Dim oSql = "SELECT * FROM TBGI_FUNCTION_REGEX" Dim oSql = "SELECT * FROM TBGI_FUNCTION_REGEX"
My.Application.GI_DT_FUNCTION_REGEX = My.Database.GetDatatable(oSql) My.Application.Globix.DT_FUNCTION_REGEX = My.Database.GetDatatable(oSql)

9
GUIs.ZooFlow/Globix/State.vb Normal file
View File

@ -0,0 +1,9 @@
Namespace Globix
Public Class State
Public Property DT_FUNCTION_REGEX As DataTable
Public Property REGEX_CLEAN_FILENAME As String = "[?*^""<>|]"
Public Property TEMP_FILES As List(Of String) = New List(Of String)
Public Property CurrMessageID As String
End Class
End Namespace

6
GUIs.ZooFlow/MyApplication.vb
View File

@ -46,11 +46,9 @@ Namespace My
Public Property ModulesActive As New List(Of String) Public Property ModulesActive As New List(Of String)
Public Property ClipboardWatcher As New ClipboardWatcher.State Public Property ClipboardWatcher As New ClipboardWatcher.State
Public Property IDB_ConnectionString As String Public Property IDB_ConnectionString As String
Public Property CurrMessageID As String Public Property Globix As New Globix.State
Public Property GI_DT_FUNCTION_REGEX As DataTable
Public Property GI_REGEX_CLEAN_FILENAME As String = "[?*^""<>|]"
Public Property TEMP_FILES As List(Of String) = New List(Of String)
End Class End Class
End Namespace End Namespace

5
GUIs.ZooFlow/ZooFlow.vbproj
View File

@ -140,6 +140,7 @@
<Compile Include="frmSearchStart.vb"> <Compile Include="frmSearchStart.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Globix\State.vb" />
<Compile Include="My Project\Resources.Designer.vb"> <Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
<DesignTime>True</DesignTime> <DesignTime>True</DesignTime>
@ -331,9 +332,7 @@
<ItemGroup> <ItemGroup>
<None Include="Resources\2_ZOO_FLOW_Abo_MouseOver.png" /> <None Include="Resources\2_ZOO_FLOW_Abo_MouseOver.png" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup />
<Folder Include="Globix\" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets. Other similar extension points exist, see Microsoft.Common.targets.