Conditions dans une variable boucle if

Version imprimable

24/01/2013, 20h13
snorky94

Conditions dans une variable boucle if
Bonjour,

J'ai ma condition qui est générée automatiquement, suite à la lecture d'un array.

cond = "toto or titi or tata "

Je souhaiterais faire :
Code:

1 2 3 4 If Name = cond Then wscript.echo super End If
Mais ça ne fonctionne pas.

Mes or ne semblent pas être interprétés ...

Par contre si je fais un copier/coller ca fonctionne très bien :
Code:

1 2 3 4 If Name = toto or titi or tata Then wscript.echo super End If
Comment faire svp sachant que mes conditions sont générées en passant des paramètres à mon script donc ça peux être variable ?

cond = "toto "
cond = "toto or titi"
cond = "toto or titi or tata or tutu "

Merci d'avance pour votre aide ...

Salut

Peut être se moyen détourné

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim Cond As String
Dim Name As String
 
Cond = "toto or titi or tata"
Name = "titi"
 
If InStr(1, Cond, Name) Then
    MsgBox " super"
    Else
    MsgBox "pas super"
End If
 
Name = "tutu"
If InStr(1, Cond, Name) Then
    MsgBox " super"
    Else
    MsgBox "pas super"
End If

A condition que toto, titi et tata soient des valeurs de variables, non pas des noms de variables.

Sinon, il faut que tu passes ces valeur de paramètre à ton script.
Là tu pourrais utiliser ce

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim Cond
Dim Name
 
Dim Conds()
 
Cond = "toto Or titi Or tata "
 
Cond = Trim(Cond)
Conds = Split(Cond, " ")
 
Name = "titi"
If Verif(Name, Conds) = True Then
    MsgBox " super"
    Else
    MsgBox "pas super"
End If
 
Name = "tutu"
If Verif(Name, Conds) = True Then
    MsgBox " super"
    Else
    MsgBox "pas super"
End If
 
 
Function Verif(Nom, TblAcomparer)
Dim T
For T = 0 To UBound(TblAcomparer)
    If Nom = TblAcomparer(T) Then
        Verif = True
        Exit For
    End If
Next T
End Function

:aie: ou j'ai rien compris :aie:

hummmm, merci Francis mais non ca ne va pas aller en fait :(

Voici le contexte exact :
Code:

1 2 3 4 5 6 7 8 9 BulletinTest = Array("KB1201","KB1202","KB999") For I = LBound(BulletinTest) to UBound(BulletinTest) BulletinTestFilter = BulletinTestFilter & """" & BulletinTest(I) & """ or ""ListItem.LocalizedDisplayName = " Next BulletinTestFilter = Left(BulletinTestFilter,Len(BulletinTestFilter)-36) & "" wscript.echo BulletinTestFilter
Ce qui va me donner :

Citation:

"KB1201" or "ListItem.LocalizedDisplayName = "KB1202" or "ListItem.LocalizedDisplayName = "KB999"

Maintenant je voudrais integrer ces conditions dans ma boucle :

Si je fait :
Code:

1 2 3 4 5 If ListItem.LocalizedDisplayName = BulletinTestFilter Then 'Traitement End If
Ca ne fonctionne pas.

Par contre si je fait :
Code:

1 2 3 4 5 6 If ListItem.LocalizedDisplayName = "KB1201" or "ListItem.LocalizedDisplayName = "KB1202" or "ListItem.LocalizedDisplayName = "KB999" Then 'Traitement End If
Ca fonctionne parfaitement.

Mes "OR " dans BulletinTestFilter ne sont pas interpréts correctement.

Merci d'avance pour ton aide :)

25/01/2013, 10h58
papyxy

Bonjour
bizarre les quotes situées après les "or"!:?
25/01/2013, 11h37
snorky94
oui désolé, erreur de recopie.

Normalement c'est :
Code:

1 2 BulletinTestFilter = BulletinTestFilter & """" & BulletinTest(I) & """ or ListItem.LocalizedDisplayName = "
Ce qui donne donne ca :

Citation:

"KB1201" or ListItem.LocalizedDisplayName = "KB1202" or ListItem.LocalizedDisplayName = "KB999"
25/01/2013, 15h00
papyxy

si j'ai bien compris, à ta place je ferai une fonction dans laquelle il y-aurait une boucle à partir du tableau BulletinTest et positionnerais une variable booléenne
qui indiquerait si on a trouvé ou non correspondance.
Dans ce cas il n'y aura plus de "or".
25/01/2013, 15h48
snorky94

Hum, oui ca fonctionnerait avec un bouleen mais je ne vois pas trop comment faire car mon Array n'a jamais la meme taille :

Il peut etre :

BulletinTest = Array("KB1201","KB1202","KB999")

BulletinTest = Array("KB1201")

BulletinTest = Array("KB1201","KB1202")

BulletinTest = Array("KB1201","KB1202","KB999","X","X","X","X","X",)

Si tu as une méthode je suis preneur :)

Merci.

voila un bout de code pour faire le test :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 monbulletin = array(".....",".....", etc)
dim critere
 
resultat  =  trouve(monbulletin,critere)
 
if resultat = true then x="oui" else x="non"
msgbox "A-t'on trouvé correspondance ? " & x
 
function trouve(tbl,z)
        for i=0 to ubound(tbl)
                if  z=tbl(i) then trouve=true : exit for
        next
end function

j'ai pas testé, mais c'est dans l'esprit.

25/01/2013, 18h20
omen999

bonjour,
et sinon il y a la fonction Filter()
télécharger et lire la doc : http://vb.developpez.com/faqvbs/?page=I#vbshelp
05/02/2013, 11h03
snorky94

Merci beaucoup, je vais tester ca.