Ca marche pas

Signaler
Messages postés
121
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
8 août 2008
-
Messages postés
22
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
7 décembre 2002
-
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

3 réponses

Messages postés
22
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
7 décembre 2002

Tu pourrais balancer la partie de ton code, ou expliquer un peu plus, car la c'est un peu vague...
0
Messages postés
121
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
8 août 2008

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
0
Messages postés
22
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
7 décembre 2002

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.
0