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

MS2

Browse Source
This commit is contained in:
SchreiberM
2016-06-27 17:11:16 +02:00
parent c5f276c37d
commit bed463ee54
11 changed files with 3652 additions and 2115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD-Record-Organiser/ClassImport_Windream.vb
View File

@@ -1,4 +1,5 @@
Imports System.IO
Imports System.Globalization
Public Class ClassImport_Windream
Public Shared Function Import_File(QuellDatei_Path As String, DOCTYPE_ID As Integer)
@@ -168,6 +169,7 @@ Public Class ClassImport_Windream
'####
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX: " & element.Value, False)
Select Case element.Value.Substring(2, 1).ToUpper
'Nur automatische Indizes auswerten
@@ -251,10 +253,12 @@ Public Class ClassImport_Windream
Dim _rule = result.Item("FORMAT_RULE")
If Not IsNothing(_rule) Then
If IsDate(CONTROLVALUE) Then
Dim _date = CDate(Format(CONTROLVALUE, "dd-MM-yyyy"))
Dim _date As Date = CDate(CONTROLVALUE)
'Dim _date = CDate(Format(CONTROLVALUE, "dd-MM-yyyy"))
_rule = _rule.ToString.Replace("Y", "y")
_rule = _rule.ToString.Replace("D", "d")
Dim convertedvalue = _date.ToString(_rule)
_rule = _rule.ToString.Replace("m", "M")
Dim convertedvalue = _date.ToString(_rule, CultureInfo.InvariantCulture)
CONTROLVALUE = convertedvalue
End If
End If