By dddanger on Jan 23, 2009demo result:
Chr / = $chr(47)
Chr a = $chr(97)
Chr s = $chr(115)
Chr c = $chr(99)
space = $chr(32)
Chr w = $chr(119)
Chr h = $chr(104)
Chr a = $chr(97)
Chr t = $chr(116)
Chr e = $chr(101)
Chr v = $chr(118)
Chr e = $chr(101)
Chr r = $chr(114)
End of asc list for "/asc whatever"
asc { var %a, %b, %c, %d, %l
if (!$1-) { .echo -a > Error you must include an string to asc list. | halt }
%a = $1-
%b = $len(%a)
if (%b == 1) { .echo -a $$iif(%a == $chr(32), $replace(%a,$chr(32),space), chr %a) = $+($, chr( $+ $asc(%a) $+ )) | halt }
:loop
if (%b <= 0) .echo -a End of asc list for " $+ %a $+ "
else {
%c = $left($right(%a,%b),1)
.echo -a $$iif(%c != $chr(32), Chr, $chr(32)) $+ $$iif(%c != $chr(32), $chr(32) $+ %c, $replace(%c,$chr(32),space)) = $+($, chr( $+ $asc(%c) $+ ))
dec %b
goto loop
}
}
this is mine =]
chrwrite $iif($isid,return,echo) $iif($len($1-) > 1,$!+ $+ $chr(40)) $+ $replace($mid($regsubex($1-,/(.)/g,$+($!chr,$chr(40),$asc(\t),$chr(41),$chr(44))),1,-1),$+($chr(44),$!chr(32),$chr(44)),$+($chr(41) $!+,$chr(40))) $+ $iif($len($1-) > 1,$chr(41))
EXAMPLE
input: $chrwrite(blah blah blah)
output: $+($chr(98),$chr(108),$chr(97),$chr(104)) $+($chr(98),$chr(108),$chr(97),$chr(104)) $+($chr(98),$chr(108),$chr(97),$chr(104))
lmao @ jonesy Napa'in it up.
dddanger this will do the same thing as ur's but on 1 line.
alias chrget2 { echo -a $regsubex($1-,/(.)/g,$iif(\1 == $chr(32),Space = $!chr(32) $chr(32),$+(chr \1 = $!chr,$chr(40),$asc(\1),$chr(41),$chr(32)))) }
chr h = $chr(104) chr e = $chr(101) chr l = $chr(108) chr l = $chr(108) chr o = $chr(111) Space = $chr(32) chr t = $chr(116) chr h = $chr(104) chr e = $chr(101) chr r = $chr(114) chr e = $chr(101)
or you can do it like this as well
alias chrget { echo -a $+($chr(3),04,$chr(40),$chr(3),$1-,$chr(3),04,$chr(41),$chr(32),$chr(3),Outcome:) //echo -a $+($!+,$chr(40),$regsubex($1-,/(.)/g,$+($!chr,$chr(40),$asc(\1),$chr(41),$chr(44))),$chr(41)) }
(hello there) Outcome: //echo -a $+($chr(104),$chr(101),$chr(108),$chr(108),$chr(111),$chr(32),$chr(116),$chr(104),$chr(101),$chr(114),$chr(101),)
