Codé les lettres e nchiffresRésolu

Question

bonjour 
je souhaiterais coder un profil sous forme de chiffres pour cela , je donne à chaque lettre un N° 
à deux chiffres. 
exemple A=02, B=06, C=20.......O=40, ...T=60....
Ainsi TOTO s'écrira 60406040
je voudrais écrire cela dans un tableau à deux dimensions 
tableau = array("A, 02", "B, 06"....)

 puis lorsque je lis TOTO je dois être  capable de le coder en 60406040 et inversement  60406040 en TOTO

je ne sais comment lire mon tableau de correspondance pour 
transformer TOTO en 60406040 et vis et versa
 
Quelqu'un sait-il écrire ce code en VBA
 
Merci de votre aide

jmfmarques · Accepted Answer

Bonjour,

Surtout pas un tableau à 2 dimensions, qui obligerait à aller chercher dans la èere colonne, à chaque fois, où se trouve la lettre considérée puis à extraire la correspondance dans la 2ème colonne.

Il vaudrait dans ce cas mieux, alors, avoir une variable toto = "abcd....yzABCD...YZ..."
et un array tableau avec, dans le même ordre, la correspondance en chiffre
et, pour chaque lettre, utiliser instr pour extraire la position dans toto puis extraire la correspondance (même rang) dans tableau...

Mais bon...

BunoCS · Answer

Salut,
Il n'y a pas longtemps (hier??), quelqu'un a eu le même problème que toi.
Nous avons déplacé son topic dans la partie Java

Buno
----------------------------------------
L'urgent est fait, l'impossible est en cours. Pour les miracles, prévoir un délai...
Le site de mon mariage

BunoCS · Answer

Le topic ici
Regarde du côté des tableaux à 2 dimensions en VBA sinon...

Buno
----------------------------------------
L'urgent est fait, l'impossible est en cours. Pour les miracles, prévoir un délai...
Le site de mon mariage

JPGVB · Answer

Bonjour,
le plus simple me parait être de passer par un tableau


dim Decode(100)
et de remplir ce tableau ce tableau de la sorte:
decode(60)="T"


decode(40)="O"


et ainsi de suite avec toutes les lettres.


Pour décoder il suffira alors de lire le contenu 60406040, par groupe de deux caractères dans une boucle et d'utiliser une syntaxe du type nom=nom & decode(numéro)

chaibat05 · Answer

Salut tt le monde, Salut jmfMarques, Pourquoi pas un tableau à deux dim ? Je vois les choses autrement. Pas obligé d' aller chercher dans la 1ere colonne, à chaque fois, où se trouve la lettre considérée puis à extraire la correspondance dans la 2ème colonne. si dans la 1° colonne on mettait le code Ascii du caractère. Ainsi en extrayant un à un chaque caractère de la chaine, on cherche son index dans le tableau en se basant sur son Code Asccii. t' en penses quoi ?

I LIKE TO BE HERE WHEN I CAN

chaibat05 · Answer

je m' explique.. On declare donc un tableau T(122,1) For i=1 to 64 T(i,1)="" Next de 65 à 122 on remplit notre tableau avec la valeur correspondante à chaque caractère. Par exemple: -pour le O T(79,1)=40 -pour le T T(84,1)=60 For i=1 To Len(MaChaine) vBuffer=vBuffer & T(Asc(Mid(MaChaine,i,1)),1) Next PS: 122 pour respecter la casse: A==>65 ; a ==> 97 Z ==>90 ; z ==> 122

I LIKE TO BE HERE WHEN I CAN

Codé les lettres e nchiffres

6 réponses

Votre réponse

Discussions similaires