cvb | c'est pas compliqué ! Code :
- dim recup_num1 as integer
- dim recup_num as string
- dim découp_chaine_1, découp_chaine_2, découp_chaine_3 as string
- 'tu récupère le numéro dans une variable
- recup_num1 = inputboc("Votre numéro" )
- 'tu convertie en chaine de caractère le nombre
- recup_num = str(recup_num_1) 'convertir en string la chaine renvoyé
- 'tu récupère les morceaux
- découp_chaine_1 = left(recup_num,6)
- découp_chaine_2 = right(recup_num,2)
- decoup_chaine_3 = mid(recup_num,7,2)
- label1.caption = découp_chaine_1 & "-" & découp_chaine_3 & "-" & découp_chaine_2
|
il faut convertir la chaine en string, puisque c'est un entier. Aprés, avec les fonctions des traitement de caratère, tu découpe ta chaine en trois parties (il faut qu'elle soit impérativement de 11 caractère, du moins pour mon exemple). Une fois découper et dans des variables, tu les acroche en elles, avec au milieu le tiret...
Vérfie au passage la fonction "mid", je m'en souviens mal, je fais de tête. Tu devras faire attention à ce que le nombre retourné, soit égal à 11 carcatère et pas un de plus ou de moins, sinon, le code que je viens de mettre deviens faux ! |