Convertir un nombre d'octets en ko/Mo/Go/To/Po/Eo/Zo ou kio/Mio/Gio/Tio/Pio/Eio/Zio
#1
En raison de problèmes d'interprétation du forum avec certains caractères, je donne un lien vers ma page :
http://www.boulets.oqp.me/tcl/routines/t...-0003.html
Répondre Avertir
#2
Je ne suis pas tout à fait d'accord. Il s'agit là du calcul binaire et non SI, donc les unités sont Kio, Mio, Tio et Pio.
Répondre
#3
 
Tu as entièrement raison, n'hésite pas à corriger / améliorer.
 
Répondre Avertir
#4
J'aurais bien vu:

tcl
proc octet_formatting {value {SI 1}} {
   if { $SI == 1 } {
      set base 1024
      set u { Kio Gio Tio Pio }
   } else {
      set base 1000
      set u { Ko Go To Po }
   }
   if { $value < $base } { return "$value octets" }
   foreach unit $u {
      set value [expr {$value / $base.} ]
      if { $value < $base } {
         return "[format %1.2f $value]$unit"
      }
   }
}


Et pis voila Smile
Répondre


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté