WIP: Windream2

Modules.Windream/Helpers.vb

@@ -1,22 +1,37 @@
-Public Class Helpers
-    Inherits Constants
+Imports DigitalData.Modules.Windream.Constants
+
+Public Class Helpers
+    Private Shared ReadOnly VectorIndicies As List(Of Integer) = New List(Of Integer) From {
+        INDEX_TYPE_VECTOR_BOOLEAN,
+        INDEX_TYPE_VECTOR_CURRENCY,
+        INDEX_TYPE_VECTOR_DATE,
+        INDEX_TYPE_VECTOR_DATE_TIME,
+        INDEX_TYPE_VECTOR_FIXED_POINT,
+        INDEX_TYPE_VECTOR_FLOAT,
+        INDEX_TYPE_VECTOR_INTEGER,
+        INDEX_TYPE_VECTOR_INTEGER_64BIT,
+        INDEX_TYPE_VECTOR_STRING,
+        INDEX_TYPE_VECTOR_TIME
+    }
+
     Friend Shared Function ConvertVectorType(vType As Object, value As String)
         Select Case vType
             Case INDEX_TYPE_HASH ' 36865
                 'Umwandeln in String
-                Return CStr(value)
+                Return value
             Case INDEX_TYPE_VECTOR_STRING '4097
                 'Umwandeln in String
-                Return CStr(value)
+                Return value
             Case INDEX_TYPE_VECTOR_INTEGER '4098
                 'Umwandeln in Integer
-                value = value.ToString.Replace(" ", "")
+                value = value.Replace(" ", "")
                 Return CInt(value)
             Case INDEX_TYPE_VECTOR_FLOAT  '4099
-                Dim Str As String = value
-                Str = Str.ToString.Replace(" ", "")
+                value = value.
+                    Replace(" ", "").
+                    Replace(".", ",")
                 'Umwandeln in Double
-                Return CDbl(Str.Replace(".", ","))
+                Return CDbl(value)
             Case INDEX_TYPE_VECTOR_BOOLEAN '4100
                 'Umwandeln in Boolean
                 Return CBool(value)
@@ -30,7 +45,11 @@
                 Return value
             Case Else
                 'Umwandeln in String
-                Return CStr(value)
+                Return value
         End Select
     End Function
+
+    Friend Shared Function IsVectorIndex(indexType As Integer)
+        Return VectorIndicies.Contains(indexType)
+    End Function
 End Class