Poser une question

Re: formattage de nombre en vbs

Salut,

Tu peux lui indiquer d'utiliser la configuration local ou régionale :

nTemp = 1024
response.write nTemp & "<br >"
response.write FormatNumber(nTemp) & "<br >"

Tu ne peux pas te tromper de cette façon, la responsabilité impute à l'usager ;-)

Mais sinon, une boucle "for" :

<%
Dim nTemp, nNombre, nLong, sSep

' Ton nombre
nNombre = 1024
' Le séparateur
sSep = " "
' On s'assure de ne pas mettre deux espace de suite.
nNombre = replace(nNombre," ","")
nTemp = ""
nLong = len(nNombre)
For i = 1 To nLong
Select Case i
Case nLong-2 : nTemp = nTemp & sSep & Mid(nNombre, i, 1)
Case nLong-5 : nTemp = nTemp & sSep & Mid(nNombre, i, 1)
Case else : nTemp = nTemp & Mid(nNombre, i, 1)
End Select
Next
response.write "<br >" & "<br >" & nNombre & "<br >"
response.write nTemp & "<br >"
%>

Ciao
Oznog

Réponses

Aucune réponse à ce message...