VB: If a in [1,2,3] Then

[Patrick Sack]

Hi,
<br>
<br>wie kann man folgende Delphi Zeile in VB i"mplementieren?
<br>If a in [1,2,3] Then
<br>
<br>Bei "in" wird immer ein Syntaxfehler geliefert.
<br>
<br>Danke!
<br>
<br>mfg
<br>PS

[Andreas Tengicki]

ggf (aber eigentlich keine Ahnung)

> if a in (1,2,3)

ansonsten natürlich

>if a = 1 or a = 2 or a = 3

Hintergrund ist, daß Pascal die einzige Programmiersprache (ggf. die einzig verbreitete) bei man mit Mengen arbeiten kann

[Buells-United]

Dim B<br>
Dim A<br>
Dim I<br>

b = ...deine Variable<br>
a = Array(1, 2, 3)<br>
If IsArray(a) Then<br>
For i = lBound(a) to uBound(a)<br>
If b = a(i) Then<br>
' b ist gleich a<br>
Else<br>
' b ist ungleich a<br>
End If<br>
Next i<br>
End If<br&gt

[Patrick Sack]

Danke Buells!
<br>
<br>Wen es interessiert:
<pre>
Function IsIn(X, IsInArray) As Boolean
Dim I
If IsArray(IsInArray) Then
IsIn = False
For I = LBound(IsInArray) To UBound(IsInArray)
If X = IsInArray(I) Then 'Option Compare muß bei Strings beachtet werden
IsIn = True
Exit For
End If
Next I
End If
End Function
</pre>
<br>Aufruf:
<br>isin(1,array(2,3,1))
<br>
<br>@andreas:
<br>vermissen werde ich natürlich If a in ['a'..'t'] Then ;-)
<br>
<br>mfg
<br>P