Ganz viele IFs

Computer: Software & Programmierung Visual Basic
#1

ich habe eine condition-anweisung, bei der ich ganz viele ifs benötige, nach denen, wenn sie zutreffen alle das gleiche ausgeführt werden soll (select bietet sich also nicht an - wobei es möglich wäre)

jedoch weiss ich nicht, wie ich die organisieren soll?
ich kann sie zwar alle in eine zeile quetschen, das ist aber sicher nicht schön - deswegen frage ich mal so zur weiterbildung, ob zufällig jemand gleich die antwort weiss
(aber wie gesagt, ich werd das jetzt erst mal mit der 1e-zeile-lösung machen)

If var_post_trim = „1_01_01_01“ or var_post_trim = „1_01_01_04“ or var_post_trim = „1_01_01_06“ & _

or var_post_trim = „1_01_01_08“ or var_post_trim = „1_01_01_10“ or var_post_trim = „2_01_01_01“ & _

or var_post_trim = „2_01_01_02“ or var_post_trim = „2_01_01_04“ or var_post_trim = „2_01_01_05“ & _

or var_post_trim = „2_01_01_06“ or var_post_trim = „2_01_01_07“ or var_post_trim = „2_04_01_01“ & _

or var_post_trim = „2_04_01_01“ or var_post_trim = „3_01_01_01“ or var_post_trim = „3_01_01_02“ & _

or var_post_trim = „3_01_01_04“ or var_post_trim = „3_01_01_05“ or var_post_trim = „3_01_01_07“ & _

or var_post_trim = „3_04_01_01“ or var_post_trim = „3_04_01_02“ or var_post_trim = „4_01_01_01“ & _

or var_post_trim = „4_01_01_02“ or var_post_trim = „4_01_01_04“ or var_post_trim = „4_01_01_05“ & _

or var_post_trim = „4_01_01_06“ or var_post_trim = „4_01_01_07“ or var_post_trim = „4_04_01_01“ & _

or var_post_trim = „4_04_01_02“ & _

Then

vielen dank

#2

ich habe eine condition-anweisung, bei der ich ganz viele ifs
benötige, nach denen, wenn sie zutreffen alle das gleiche
ausgeführt werden soll (select bietet sich also nicht an -
wobei es möglich wäre)

jedoch weiss ich nicht, wie ich die organisieren soll?
ich kann sie zwar alle in eine zeile quetschen, das ist aber
sicher nicht schön - deswegen frage ich mal so zur
weiterbildung, ob zufällig jemand gleich die antwort weiss
(aber wie gesagt, ich werd das jetzt erst mal mit der
1e-zeile-lösung machen)

Hi Stefan,

kürzer, aber auch nicht hübscher :smile:

If instr(var_post_trim,„1_01_01_011_01_01_041_01_01_061_01_01_08…“ Then

Gruß
Reinhard

#3

Hallo,

dr Uebersichtlichkeit und Wartbarbeit zuliebe wuerde ich diese „var_post_trim“ in ihre Bestandteile ( 4 num. Variablen) zerlegen und dann mit geschachtelten Select-Anweisungen arbeiten.

Dadurch wird das ganze etwas uebersichticher und man kann problemlos neue Bedingungen einfuegen.

Tschau
Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Hallo,

verrate mal etwas über das System und vor allem, wie ein ähnlicher String aussieht, der nicht passt. Auf den ersten Blick vermute ich, daß gar nicht immer alles geprüft werden muss.

Gruß, Rainer
PS: Weg für heute, mein Schleppi-Netzteil ist kaputt, ich habe nur noch wenige Minuten Betriebszeit …

#5

Hallo,

um den ‚Rattenschwanz‘ aus dem Codebereich zu bekommen, könntest Du noch folgendes tun:

Dim Zl As String

Zl = "1\_01\_01\_01,1\_01\_01\_04,1\_01\_01\_06,1\_01\_01\_08,"
Zl = Zl + "1\_01\_01\_10,2\_01\_01\_01,2\_01\_01\_02,2\_01\_01\_04,"
Zl = Zl + "2\_01\_01\_05,2\_01\_01\_06,2\_01\_01\_07,2\_04\_01\_01,"
Zl = Zl + "2\_04\_01\_01,3\_01\_01\_01,3\_01\_01\_02,"
Zl = Zl + "3\_01\_01\_04,3\_01\_01\_05,3\_01\_01\_07,"
Zl = Zl + "3\_04\_01\_01,3\_04\_01\_02,4\_01\_01\_01,"
Zl = Zl + "4\_01\_01\_02,4\_01\_01\_04,4\_01\_01\_05,"
Zl = Zl + "4\_01\_01\_06,4\_01\_01\_07,4\_04\_01\_01,4\_04\_01\_02"

If Instr(Zl, var\_post\_trim) Then
 DoEvents
End If

Gruß, Rainer