fonction str2hex [résolu]

[CrazyCat]

Avec les commandes scan et format non ?

tclcopier

proc str2hex { str } {
   set hex ''
   while { [scan $str %c letter] != -1 } {
      append hex [format %x $letter]
   }
   return $hex
}
proc str2oct { str } {
   set oct ''
   while { [scan $str %c letter] != -1 } {
      append oct [format %o $letter]
   }
   return $oct
}

Je ne suis vraiment pas certain de mon coup, mais c'est peut-être une piste.