ca marche pas

Question

salut tout le monde

j'essai d'affecter a un caractere plusieurs valeurs possible.
j'aimerai dire que le string peut prendre soit la valeur chr(48) ou chr(49) mais ca marche pas

si quelqu'un pouvait m'aider

ElDoktor · Answer

Tu pourrais balancer la partie de ton code, ou expliquer un peu plus, car la c'est un peu vague...

damd · Answer

j'ai declarer un string (dim index as string)
index peut etre differents caracteres
suivant le caractere le programme se deroule :
select case index
   case "a" or "b" : ca ne marche pas
plutot de faire case "a" puis case "b" sinon j'en sort pas avec tous les caracteres
donc je voulais cree des variables tempons :
texte = chr(97) or chr(98)
mais ca ne marche pas non plus

ElDoktor · Answer

Bah je vois pas trop comment un caractere peut avoir plusieur valeur... mais j'ai peut etre une solution
Tu declare un tableau:
Dim TabCase(0 to 255) as Integer

et pour chaque caractere, le tableau comporte un cas.
Exemple:
TabCase(97)=1 (ton "a" cas numero 1) 
TabCase(98)=1 (ton "b" cas numero 1) 
TabCase(99)=4 (ici c'est le "c" cas numero 4 par exemple)
etc...

Pour tes differents cas tu fait comme suit:
Select Case TabCase(Asc(Index))
          Case 1: Bidule 'ici c'est ton cas "a" ou "b"
          Case 2: Machin
etc...

par contre y'a toute l'initialisation du tableau. J'espere que ca peut t'aider.
@+
- Dok.

Ca marche pas

3 réponses