Afficher les séparateurs de milliers dans un nombre

[MenzAgitat]

tcl

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

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] {&.}]] "."]
}

add_thousand_separators 16165152
Tcl: 16.165.152

Source : https://boulets.eggdrop.fr/tcl/routines/...-0001.html