1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
alias h2t { var %x = 1 var %text = $replace($1-,\x,$chr(255)) while (%x <= $numtok(%text,255)) { echo -ag Inside loop %x var %tmp = $replace($1-,\x,$chr(255) echo -ag Done replace. var %tmp = $gettok(%tmp,%x,255) echo -ag Done gettok. var %tmp = $base(%tmp,16,10) echo -ag Done base. %check = $chr(%tmp) echo -ag Done chr. var %hex = %hex $iif(%check != $chr(32),$+) %check echo -ag Done iif. inc %x } echo -a %hex } |
var %tmp = $replace($1-,\x,$chr(255)| Parsed for bracket errors and indented: | |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
alias h2t { var %x = 1 var %text = $replace($1-,\x,$chr(255)) while (%x <= $numtok(%text,255)) { echo -ag Inside loop %x var %tmp = $replace($1-,\x,$chr(255) echo -ag Done replace. var %tmp = $gettok(%tmp,%x,255) echo -ag Done gettok. var %tmp = $base(%tmp,16,10) echo -ag Done base. %check = $chr(%tmp) echo -ag Done chr. var %hex = %hex $iif(%check != $chr(32),$+) %check echo -ag Done iif. inc %x } echo -a %hex } |