MS BoolVektorIndexierung

This commit is contained in:
SchreiberM 2022-12-08 17:10:55 +01:00
parent a5ec53ad60
commit 5125477983
2 changed files with 4 additions and 3 deletions

View File

@ -184,7 +184,7 @@ Public Class ClassNIWindream
myArray(0) = Convert_IndexValue(vType, aValues(0)) myArray(0) = Convert_IndexValue(vType, aValues(0))
_Logger.Debug("RunIndexing_Vektor: Konvertierter Wert: " & myArray(0).ToString) _Logger.Debug("RunIndexing_Vektor: Konvertierter Wert: " & myArray(0).ToString)
Else Else
_Logger.Debug("RunIndexing_Vektor: Vektorfeld wird mit MEHREREN Werten gefüllt ") _Logger.Debug($"RunIndexing_Vektor: Vektorfeld wird mit MEHREREN Werten [{Anzahl}] gefüllt ")
Dim _value As String Dim _value As String
Try Try
'Die Größe des Arrays festlegen 'Die Größe des Arrays festlegen
@ -505,8 +505,9 @@ Public Class ClassNIWindream
Dim oAnzahl As Integer = BS.Count Dim oAnzahl As Integer = BS.Count
'Vektorfeld wird mit EINEM Wert gefüllt 'Vektorfeld wird mit EINEM Wert gefüllt
If oAnzahl = 1 Then If oAnzahl = 1 Or (oAnzahl = 0 And aValues.Length = 1 And aValues(0) <> "") Then
_Logger.Debug("Vektorfeld wird mit EINEM Wert gefüllt ") _Logger.Debug("Vektorfeld wird mit EINEM Wert gefüllt ")
value = aValues(0)
ReDim myArray(0) ReDim myArray(0)
myArray(0) = Convert_IndexValue(vType, value) myArray(0) = Convert_IndexValue(vType, value)
@ -565,7 +566,7 @@ Public Class ClassNIWindream
_Logger.Warn(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING") _Logger.Warn(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING")
End If End If
Else Else
_Logger.Debug("Vektorfeld wird mit MEHREREN Werten [oAnzahl] gefüllt ") _Logger.Debug($"Vektorfeld wird mit MEHREREN Werten [{oAnzahl}] gefüllt ")
' das ausgewählte Profil in _selectedProfile laden ' das ausgewählte Profil in _selectedProfile laden
_selectedProfil = ClassNIProfile.getProfilByName(Profil) _selectedProfil = ClassNIProfile.getProfilByName(Profil)