From 11f5af7e897f0da32d6badf929700b59046f9b7c Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 22 Apr 2020 13:54:52 +0200 Subject: [PATCH] fix boolean conversion --- Global_Indexer/ClassWindream.vb | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/Global_Indexer/ClassWindream.vb b/Global_Indexer/ClassWindream.vb index 547a003..4ea238e 100644 --- a/Global_Indexer/ClassWindream.vb +++ b/Global_Indexer/ClassWindream.vb @@ -940,7 +940,7 @@ Public Class ClassWindream vektor = True LOGGER.Info(" ...Typ des windream-Indexes: 4100 Vektor Boolean") 'Vektor Kommazahl - convertValue = CBool(value) + convertValue = ToBoolean(value) Case 4101 vektor = True LOGGER.Info(" ...Typ des windream-Indexes: 4101 Vektor Date") @@ -1032,6 +1032,10 @@ Public Class ClassWindream Str = Str.ToString.Replace(" ", "") 'Umwandeln in Double myArray(0) = CDbl(Str.Replace(".", ",")) + + Case 4100 + ' Umwandeln in Boolean + myArray(0) = ToBoolean(value) Case 4101 'Umwandeln in Date myArray(0) = CDate(value) @@ -1762,4 +1766,10 @@ Public Class ClassWindream End Try 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