$maketok
Posted by CrashB
Tuesday, March 16, 2004
Description: add you own tokens the CrashB way :D!
Thank you bunkahumpa, I saw this in your /riaa snippet so I threw it out here. I forgot I even had it :D
; $maketok by CrashB
;Usage: $maketok(string,spacing between chars,asc code for char)
;Example: $maketok(1234567890,3,44) returns "1,234,567,890"
alias maketok {
var %string $$1
var %space $$2
var %chr $$3
var %i $len(%string)
var %scount 0
while %i >= 1 {
if %scount == %space {
var %new $chr(%chr) $+ %new
var %scount 0
}
var %new $mid([ %string ],[ %i ],1) $+ %new
inc %scount
dec %i
}
return %new
}Thank you bunkahumpa, I saw this in your /riaa snippet so I threw it out here. I forgot I even had it :D