Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Afficher les séparateurs de milliers dans un nombre
#1

tcl
proc add_thousand_separators {value} {
	return [::tcl::string::trimleft [::tcl::string::reverse [regsub -all {...} [::tcl::string::reverse $value] {& }]] " "]
}


Exemple Wrote:add_thousand_separators 16165152
Tcl: 16 165 152

ou

tcl
proc add_thousand_separators {value} {
return [::tcl::string::trimleft [::tcl::string::reverse [regsub -all {...} [::tcl::string::reverse $value] {&.}]] "."]
}


Exemple Wrote:add_thousand_separators 16165152
Tcl: 16.165.152

Source : https://boulets.eggdrop.fr/tcl/routines/...-0001.html
Toute l'actualité de mes scripts ici     (dernière mise à jour le 22/04/2020)

Tout programme comporte au moins un bug et pourrait être raccourci d'au moins une instruction, de quoi l'on peut déduire que tout programme peut être réduit à une seule instruction qui ne fonctionne pas.


Possibly Related Threads…
Thread Author Replies Views Last Post
  Convertir un nombre d'octets en ko/Mo/Go/To/Po/Eo/Zo ou kio/Mio/Gio/Tio/Pio/Eio/Zio MenzAgitat 5 6,480 20/04/2021, 13:29
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)