iLogic MultiValue.FindValue for text

[dusan.naus.trz]

I think the functionality doesn't support text. Is it true? Not supported for text? 

MultiValue.SetValueOptions(True, DefaultIndex := 0)
'OK
'Try 
'	p1="test"
'	m1 = Parameter.Param(p1)
'Catch
''	Create Parameter
'	op1 = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddbyExpression(p1, 4.0, "mm")
'End Try

'MultiValue.SetList("test", 4.0, 0.75, 1.0, 1.25)
'If MultiValue.FindValue(MultiValue.List("test"), "=", 100) Then
'MessageBox.Show("Value found", "Title")
'Else
'MessageBox.Show("No match", "Title")
'End If

'BAD
Try 
	p1="test"
	m1 = Parameter.Param(p1)
Catch
'	Create Parameter
	op1 = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByValue(p1, "red", "Text")
End Try

MultiValue.SetList("test", "red", "yellow")
If MultiValue.FindValue(MultiValue.List("test"), "=", "red") Then
MessageBox.Show("Value found", "Title")
Else
MessageBox.Show("No match", "Title")
End If

It hasn't written me a mistake in English yet. 🙂 And I have an English language version.

Converting red to Boolean is not valid.

[dusan.naus.trz]

I did it differently, but I would still like to know if the functionality supports text. Back to the query at the beginning. 

Dim sValue As String
sValue = "red"

For Each oItem In MultiValue.List("test")
	If oItem = sValue Then
	oFlag = True
	End If
Next

If oFlag = True Then
MessageBox.Show("Bingo! " &  sValue & " is in the list.", "iLogic")
Else
MessageBox.Show("Sorry, " &  sValue & " is NOT in the list.", "iLogic")
End If

[JelteDeJong · Accepted solution]

try it like this:

Dim sValue As String
sValue = "red"

If (MultiValue.FindValue(MultiValue.List("test"), "=", sValue) = Nothing) Then
	MessageBox.Show("Sorry, " &  sValue & " is NOT in the list.", "iLogic")
Else
	MessageBox.Show("Bingo! " &  sValue & " is in the list.", "iLogic")	
End If

[dusan.naus.trz]

Hi, I really like the simplicity. It is very practical. Thank you.

[JelteDeJong · Accepted solution]

to be honest, if I would see this in any code I would not be happy. Writing code is not that difficult but writing readable code is much more of a challenge. And I did not succeed here I think. The following would be much better I think.

Dim sValue As String
sValue = "Red"

If (MultiValue.List("test").Contains(sValue)) Then
	MessageBox.Show("Bingo! " &  sValue & " is in the list.", "iLogic")
Else
	MessageBox.Show("Sorry, " &  sValue & " is NOT in the list.", "iLogic")		
End If

[dusan.naus.trz]

That's great. When the code is simple, then it is fast in greater use. Thank you for the different variants. Different perspectives on the solution are very beneficial.