jj: Fix 'ß in Indexname/Value' & 'Wrong Language in MSG Split confirmation'
This commit is contained in:
parent
bddcc0adeb
commit
15718c4852
@ -24,7 +24,7 @@ Public Class ClassFilehandle
|
||||
If _msg.Attachments.Count > 0 Then
|
||||
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)
|
||||
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)
|
||||
|
||||
@ -942,7 +942,7 @@ Public Class frmIndex
|
||||
|
||||
'####
|
||||
' 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
|
||||
Dim DATEINAME As String = Zielordner & "\" & DT.Rows(0).Item("NAMENKONVENTION")
|
||||
NewFileString = DATEINAME
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user