Select Case

[Heis Spiter]

Salut a tous !
Une question un peu bête mais j'aimerais savoir pourquoi le code suivant ne fonctionne pas.

Code : Tout sélectionner

Select Variable$
Case "a" Or "A"
   ....
EndSelect

J'aimerais que le programme execute les "...." si Variable$ est égal à "a" ou à "A" mais ca ne marche pas.

[nico]

Case ne supporte qu'un argument, apparemment !

[Heis Spiter]

C'est c** parceque j'en ai besoin... Fred ?

[comtois]

ça a déjà été demandé plusieurs fois sur le forum anglais , fais aussi la demande sur le forum français , Fred va peut-être finir par l'ajouter

en attendant , tu peux toujours faire comme ça

Code : Tout sélectionner

Variable$="b"
Select UCase(Variable$) 
   Case "A" 
      Debug "variable = a ou A"
   Case "B"
      Debug "variable = b ou B"
EndSelect

[Heis Spiter]

Pratique ton truc Comtois, mais pas pour ce que je veux faire... Bon ba je vais carburer a coup de if elseif !

[nico]

Ou une structure if elseif .....elseif................endif
cette condition prenant plusieurs arguments.

[edit]
A une minute près, c'était bon, dommage
la prochaine fois, j'écrirais en assembleur!

[brossden]

Bonjour à tous

Code : Tout sélectionner

Case "A" or "a" 

a pour effet de prendre la valeur de la comparaison ("A" or "a") et non ce que tu voulais c'est à dire case "A" or Case "a" .
pour verifier essaye :

Code : Tout sélectionner

Variable=1
Select Variable
  Case "A" Or "a"
    Debug "oui"
  Default 
    Debug "non"
EndSelect

[ZapMan]

Je propose comme Comptois

Code : Tout sélectionner

Select UCase(Variable$)  ; ça le met en majuscule
Case "A"  ; ça marchera pour a et A
   .... 
EndSelect

Ca répond bien à ta question. Maintenant, si tu veux faire un
Case "A" or "B", je suis d'accord que cette solu ne marche pas.

[Fred]

je vais voir ce qu'il est possible de faire

[Le Soldat Inconnu]

Cool

[Heis Spiter]

Merci Fred

[Oliv]

merci

[Patrick88]

avec le "to" ce serais bien aussi :

case "A" to "Z"
....

case "0" to "9"
....

patrick

[cederavic]

et comment veut tu que le compilo fasse un
case "hdfgd" to "165gfdgfd"

[Patrick88]

et comment veut tu que le compilo fasse un
case "hdfgd" to "165gfdgfd"

turbo pascal y arrive bien... alors pourqoui pô pb ...

patrick