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

fix boolean conversion

Browse Source
This commit is contained in:
Jonathan Jenne 2020-04-22 13:54:52 +02:00
parent 7c3ae86d52
commit 11f5af7e89
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Global_Indexer/ClassWindream.vb
View File

@ -940,7 +940,7 @@ Public Class ClassWindream
vektor = True vektor = True
LOGGER.Info(" ...Typ des windream-Indexes: 4100 Vektor Boolean") LOGGER.Info(" ...Typ des windream-Indexes: 4100 Vektor Boolean")
'Vektor Kommazahl 'Vektor Kommazahl
convertValue = CBool(value) convertValue = ToBoolean(value)
Case 4101 Case 4101
vektor = True vektor = True
LOGGER.Info(" ...Typ des windream-Indexes: 4101 Vektor Date") LOGGER.Info(" ...Typ des windream-Indexes: 4101 Vektor Date")
@ -1032,6 +1032,10 @@ Public Class ClassWindream
Str = Str.ToString.Replace(" ", "") Str = Str.ToString.Replace(" ", "")
'Umwandeln in Double 'Umwandeln in Double
myArray(0) = CDbl(Str.Replace(".", ",")) myArray(0) = CDbl(Str.Replace(".", ","))
Case 4100
' Umwandeln in Boolean
myArray(0) = ToBoolean(value)
Case 4101 Case 4101
'Umwandeln in Date 'Umwandeln in Date
myArray(0) = CDate(value) myArray(0) = CDate(value)
@ -1762,4 +1766,10 @@ Public Class ClassWindream
End Try End Try
End Function End Function
Private Shared Function ToBoolean(input As String)
If String.IsNullOrEmpty(input) Then Return False
Return (input.Trim().ToLower() = "true") OrElse (input.Trim() = "1")
End Function
End Class End Class