{VBS}--Décomposer une inputbox pour en retirer des valeurs

Question

Bonjour &#224; tous!
Rien de plus simple pour poser un probl&#232;me, que de montrer un exemple:

ck=inputbox ("Valeur","Valeur","    2.0 : +1105.01, +758.01")
ck = "    "&fr&".0 : +"&valX&", +"&valY 
msgbox valX

Vous l'aurez surement devin&#233;, ce script ne marche pas..
Cependant, il explique bien ce que je voudrais faire:
A partir de ce qui est &#233;crit dans le inputbox (c'est toujours le m&#234;me modele: deux espaces, une valeur, le .0 : +, une autre valeur, le , + et une derni&#232;re valeur) je voudrais pouvoir r&#233;utiliser les valeurs (ici avec un msgbox)
Voila voila!
Merci beaucoup!!

cs_JMO · Answer

Bonsoir,

Ce n'est pas tr&#232;s orthodoxe, mais le r&#233;sultat est l&#224; ......

ck = inputbox ("Valeur","Valeur","    2.0 : +1105.01, +758.01")


'La variable "fr" affiche "2"
fr = Replace(ck, Mid(ck, InStr(1, ck, ":")), "")
fr = Replace(Replace(fr, Mid(fr, InStr(1, fr, ".")), ""), Left(fr, 2), "") 
  
'La variable "valX" affiche "1105.01"
valX = Replace(ck, Left(ck, InStr(1, ck, "+")), "")
valX = Replace(Replace(valX, Right(valX, InStr(1, valX, ",")), ""), ",","")


'La variable "valY" affiche "758.01"
valY = Replace(ck, Left(ck, InStr(1, ck, "+")), "")', "+",""), " ", "")
valY = Replace(Replace(Replace(valY, Left(valY, InStr(1, valY, ",")), ""), " ",""),"+","") 


ck = "    "&fr&".0 : +"&valX&", +"&valY 
MsgBox ck

'MsgBox "fr = """ & fr & """    longueur de la variable : " & Len(fr)
'MsgBox "valY = """ & valY & """    longueur de la variable : " & Len(valY)
'MsgBox "valX = """ & valX & """    longueur de la variable : " & Len(valX)

jean-marc

{VBS}--Décomposer une inputbox pour en retirer des valeurs

1 réponse

Discussions similaires