56 lines
1.9 KiB
VB.net
56 lines
1.9 KiB
VB.net
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
|