fonction visual basic

Question

comment convertir les chiffres en lettres?

cs_liquide · Answer

ca c'est de la question !!! :-)

essais un Chr$, enfin tout dépend de ce que tu cherches.

bonne prog
liquide

Scalpweb · Answer

Tu pourrais faire un truc du genre :

'Fonction convertissant les chiffres en lettres :
Dim v as string
v = ""

for i = 1 to len(ta_chaine_de_caractère)
   for o = 1 to 255
         if mid(ta_chaine_de_caractère, i, len(o)) = o then
           v = v & chr$(o)
           goto suiv
         End if
   next o
suiv:
next i
msgbox v

Voilà...
   
Pice-WCorp bientôt sur le net.

Scalpweb · Answer

tu peux aussi faire le contraire :

'Fonction convertissant les lettres en chiffres :
Dim v as string
v = ""

for i = 1 to len(ta_chaine_de_caractère)
   for o = 1 to 255
         if mid(ta_chaine_de_caractère, i, 1) = chr$(o) then
           v = v & o
           goto suiv
         End if
   next o
suiv:
next i
msgbox v

Pice-WCorp bientôt sur le net.

Scalpweb · Answer

Note que j'ai fais ça un peu vite donc si ça marche pas prévient moi...

Pice-WCorp bientôt sur le net.

cs_liquide · Answer

bien moi je ne comprend pas ce que ca doit donner.

pourquoi tu parcours 255 fois ?
pourquoi tu fais un goto au lieu de faire un exit for?

j'ai essayé la 1ere procédure et je ne vois pas ce que ca doit donner.

bonne prog
liquide

cs_DARKSIDIOUS · Answer

Ah mon avis, il veut plutôt un truc du style : 25 => "vingt-cinq" !

Regarde dans les sources de ce site, il y en a quelques unes qui le font.

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Fonction visual basic

6 réponses

Discussions similaires