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

jj: Fix 'ß in Indexname/Value' & 'Wrong Language in MSG Split confirmation'

Browse Source
This commit is contained in:
Jonathan Jenne 2017-08-07 14:04:58 +02:00
parent bddcc0adeb
commit 15718c4852
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Global_Indexer/ClassFilehandle.vb
View File

@ -24,7 +24,7 @@ Public Class ClassFilehandle
If _msg.Attachments.Count > 0 Then If _msg.Attachments.Count > 0 Then
Dim result As MsgBoxResult Dim result As MsgBoxResult
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE = "de-DE" Then
result = MessageBox.Show("Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show("Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Else Else
result = MessageBox.Show("Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?", "Question about Indexing:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show("Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?", "Question about Indexing:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

2
Global_Indexer/frmIndex.vb
View File

@ -942,7 +942,7 @@ Public Class frmIndex
'#### '####
' Regulären Ausdruck zum Auslesen der Indexe definieren ' Regulären Ausdruck zum Auslesen der Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" Dim preg As String = "\[%{1}[a-zA-Z0-9ß\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'schonmal den gesamten Pfad laden 'schonmal den gesamten Pfad laden
Dim DATEINAME As String = Zielordner & "\" & DT.Rows(0).Item("NAMENKONVENTION") Dim DATEINAME As String = Zielordner & "\" & DT.Rows(0).Item("NAMENKONVENTION")
NewFileString = DATEINAME NewFileString = DATEINAME