74 lines
2.9 KiB
VB.net
74 lines
2.9 KiB
VB.net
Public Class ClassFinalIndex
|
|
Public Shared PREFIX_VECTOR = "[%VKT"
|
|
|
|
Public Shared Function GetValue(obj As Object, indexName As String, indcies As List(Of String), types As List(Of Integer), isVector As Boolean)
|
|
Try
|
|
Dim props As FinalIndexProperties = obj
|
|
Dim i As Integer = indcies.IndexOf(indexName)
|
|
Dim type As Integer = types.Item(i)
|
|
Dim value As String = ""
|
|
|
|
If type = INDEX_TYPE_STRING Or type = INDEX_TYPE_VECTOR_STRING Then
|
|
value = props.StringValue
|
|
ElseIf type = INDEX_TYPE_INTEGER Or type = INDEX_TYPE_VECTOR_INTEGER Then
|
|
value = props.IntegerValue.ToString
|
|
ElseIf type = INDEX_TYPE_FLOAT Then
|
|
value = props.FloatValue.ToString
|
|
ElseIf type = INDEX_TYPE_BOOLEAN Or type = INDEX_TYPE_VECTOR_BOOLEAN Then
|
|
value = IIf(props.BoolValue, "1", "0")
|
|
End If
|
|
|
|
If isVector Then
|
|
Return $"{PREFIX_VECTOR}{value}"
|
|
Else
|
|
Return value
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox($"Error in GetValue: {ex.Message}", MsgBoxStyle.Critical)
|
|
End Try
|
|
End Function
|
|
|
|
Public Shared Function SetValue(value As String, obj As Object, indexName As String, indcies As List(Of String), types As List(Of Integer))
|
|
Try
|
|
Dim props As FinalIndexProperties = obj
|
|
Dim i As Integer = indcies.IndexOf(indexName)
|
|
Dim type As Integer = types.Item(i)
|
|
Dim isVector = value.StartsWith(PREFIX_VECTOR)
|
|
|
|
If type = INDEX_TYPE_STRING Or type = INDEX_TYPE_VECTOR_STRING Then
|
|
value = NotNull(value, "")
|
|
|
|
props.StringValue = value
|
|
ElseIf type = INDEX_TYPE_INTEGER Or type = INDEX_TYPE_VECTOR_INTEGER Then
|
|
value = NotNull(Of Integer)(value, 0)
|
|
|
|
If value = String.Empty Then
|
|
props.IntegerValue = 0
|
|
Else
|
|
props.IntegerValue = Integer.Parse(value)
|
|
End If
|
|
ElseIf type = INDEX_TYPE_FLOAT Then
|
|
value = NotNull(Of Double)(value, 0)
|
|
|
|
If value = String.Empty Then
|
|
props.FloatValue = 0
|
|
Else
|
|
props.FloatValue = Double.Parse(value)
|
|
End If
|
|
ElseIf type = INDEX_TYPE_BOOLEAN Or type = INDEX_TYPE_VECTOR_BOOLEAN Then
|
|
value = NotNull(value, "False")
|
|
|
|
If value = "1" Or value.ToLower = "true" Then
|
|
props.BoolValue = True
|
|
Else
|
|
props.BoolValue = False
|
|
End If
|
|
End If
|
|
|
|
Return props
|
|
Catch ex As Exception
|
|
MsgBox($"Error in SetValue: {ex.Message}", MsgBoxStyle.Critical)
|
|
End Try
|
|
End Function
|
|
End Class
|