Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_Contains
Überprüft ob der übergebene "wert" im String "eingabe" enthalten ist. Ist dies der Fall wird "true" zurückgegeben.
Wird für "eingabe" ein Array übergeben, wird überprüft, ob der übergebene "wert" in einem Feld des Arrays vorhanden ist.
Dim a(0 To 3) As String
Dim b As String
Dim c As String
Dim d As String
a(0) = "Wer reitet "
a(1) = "so spät "
a(2) = "durch Nacht "
a(3) = "und Wind?"
b = "Wer reitet so spät durch Nacht und Wind?"
c = "reitet"
d = "Kind"
If CNCL_Contains(a, c) Then
Print |"| + c + |" ist Bestandteil von a|
Else
Print |"| + c + |" ist nicht Bestandteil von a|
End if
If CNCL_Contains(a, d) Then
Print |"| + d + |" ist Bestandteil von a|
Else
Print |"| + d + |" ist nicht Bestandteil von a|
End If
If CNCL_Contains(b, c) Then
Print |"| + c + |" ist Bestandteil von b|
Else
Print |"| + c + |" ist nicht Bestandteil von b|
End If
If CNCL_Contains(b, d) Then
Print |"| + d + |" ist Bestandteil von b|
Else
Print |"| + d + |" ist nicht Bestandteil von b|
End If
Ausgabe:
"reitet" ist Bestandteil von a
"Kind" ist nicht Bestandteil von a
"reitet" ist Bestandteil von b
"Kind" ist nicht Bestandteil von b