jj: add SetFileIndex, Convert Index Value

Modules.Windream/Helpers.vb

@@ -1,4 +1,5 @@
-Imports DigitalData.Modules.Windream.Constants
+Imports System.Text.RegularExpressions
+Imports DigitalData.Modules.Windream.Constants
 
 Public Class Helpers
     Private Shared ReadOnly VectorIndicies As List(Of Integer) = New List(Of Integer) From {
@@ -49,6 +50,37 @@ Public Class Helpers
         End Select
     End Function
 
+    Friend Shared Function ConvertIndexValue(Type As Integer, Value As String) As Object
+        ' Leerzeichen an Anfang und Ende entfernen
+        Value = Value.Trim()
+
+        Select Case Type
+            Case INDEX_TYPE_HASH
+            Case INDEX_TYPE_STRING
+            Case INDEX_TYPE_VECTOR_STRING
+                Return Value
+            Case INDEX_TYPE_INTEGER
+            Case INDEX_TYPE_VECTOR_INTEGER
+                Value = Value.Replace(" ", String.Empty)
+                Return Convert.ToInt16(Value)
+            Case INDEX_TYPE_VECTOR_INTEGER_64BIT
+                Value = Value.Replace(" ", String.Empty)
+                Return Convert.ToInt64(Value)
+            Case INDEX_TYPE_VECTOR_BOOLEAN
+            Case INDEX_TYPE_BOOLEAN
+                Return Convert.ToBoolean(Value)
+            Case INDEX_TYPE_DATE
+            Case INDEX_TYPE_DATE_TIME
+            Case INDEX_TYPE_TIME
+            Case INDEX_TYPE_VECTOR_DATE_TIME
+            Case INDEX_TYPE_VECTOR_DATE
+                Return Convert.ToDateTime(Value)
+            Case INDEX_TYPE_FLOAT
+            Case INDEX_TYPE_VECTOR_FLOAT
+                Return Convert.ToDouble(Value)
+        End Select
+    End Function
+
     Friend Shared Function IsVectorIndex(indexType As Integer)
         Return VectorIndicies.Contains(indexType)
     End Function