$maketok
Posted by CrashB
Tuesday, March 16, 2004
Description: add you own tokens the CrashB way :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
np
Posted by bunkahumpa
Wednesday, March 17, 2004 06:07pm PST
I knew you didn't want to lose that, it's a great snippet :)
Humorous...
Posted by snang
Wednesday, March 17, 2004 10:49pm PST
Not more than 2 days ago...was in in #script asking if there was already an alias to do this exact same thing.  Life saver.
Submit a comment
Oops! You need to login or register before you can post a comment!

ebaum's world