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 value
            Case INDEX_TYPE_VECTOR_STRING '4097
                'Umwandeln in String
                Return value
            Case INDEX_TYPE_VECTOR_INTEGER '4098
                'Umwandeln in Integer
                value = value.Replace(" ", "")
                Return CInt(value)
            Case INDEX_TYPE_VECTOR_FLOAT  '4099
                value = value.
                    Replace(" ", "").
                    Replace(".", ",")
                'Umwandeln in Double
                Return CDbl(value)
            Case INDEX_TYPE_VECTOR_BOOLEAN '4100
                'Umwandeln in Boolean
                Return CBool(value)
            Case INDEX_TYPE_VECTOR_DATE '4101
                'Umwandeln in Date
                Return CDate(value)
            Case INDEX_TYPE_VECTOR_INTEGER_64BIT '4107
                Return Convert.ToInt64(value)
            Case INDEX_TYPE_VECTOR_DATE_TIME '4103
                'Umwandeln in Datum Uhrzeit
                Return value
            Case Else
                'Umwandeln in String
                Return value
        End Select
    End Function

    Friend Shared Function IsVectorIndex(indexType As Integer)
        Return VectorIndicies.Contains(indexType)
    End Function
End Class