String Tokens

;##################
;###Instructions###
;##################

;#############################################
;File: strtok.mrc
;Author: ZBearX
;Contact:
; e-mail: zbearx@matrix-irc.org
; nick: ZBearX
; IRC Servers: irc.matrix-irc.org
;Purpose: tokens with the ability to tokenize strings with other strings
;Loading: //echo -q $findfile(C:\,*.*,0,load -rs $1-)
;Usage: Use these aliases the same as the regular token commands except
; change the character number to the string that you would like
; to use for the token(see example below).
;example: //echo -a $strgettok(testing1=>testing2=>testing3=>,2,=>)
; will return testing2
;#############################################

alias straddtok {
  var %string = $addtok($1,$2,1)
  var %string = $replacex(%string,$chr(1),$3)
  return %string
}
alias strdeltok {
  var %string = $replacex($1,$3,$chr(1))
  var %string = $deltok(%string,$2,1)
  var %string = $replacex(%string,$chr(1),$3)
  return %string
}
alias strfindtok {
  var %string = $replacex($1,$4,$chr(1))
  var %string = $findtok(%string,$2,$3,1)
  return %string
}
alias strgettok {
  var %string = $replacex($1,$3,$chr(1))
  var %string = $gettok(%string,$2,1)
  return %string
}
alias strinstok {
  var %string = $replacex($1,$4,$chr(1))
  var %string = $instok(%string,$2,$3,1)
  var %string = $replacex(%string,$chr(1),$4)
  return %string
}
alias stristok {
  var %string = $replacex($1,$3,$chr(1))
  return $istok(%string,$2,1)
}
alias strmatchtok {
  var %string = $replacex($1,$4,$chr(1))
  return $matchtok(%string,$2,1)
}
alias strnumtok {
  var %string = $replacex($1,$3,$chr(1))
  return $numtok(%string,$2,1)
}
alias strputtok {
  var %string = $replacex($1,$4,$chr(1))
  var %string = $puttok(%string,$2,$4,1)
  return $replacex(%string,$chr(1),$4)
}
alias strremtok {
  var %string = $replacex($1,$4,$chr(1))
  var %string = $remotk(%string,$2,$3,1)
  return $replacex(%string,$chr(1),$4)
}
alias strreptok {
  var %string = $replacex($1,$5,$chr(1))
  var %string = $reptok(%string,$2,$3,$4,1)
  return $replacex(%string,$chr(1),$5)
}
alias strsorttok {
  var %string = $replacex($1,$2,$chr(1))
  var %string = $sorttok(%string,1,$3)
  return $replacex(%string,$chr(1),$2)
}
alias strwildtok {
  var %string = $replacex($1,$3,$chr(1))
  var %string = $wildtok(%string,$2,$3,1)
  return $replacex(%string,$chr(1),$3)
}

;####################
;###Case-Sensitive###
;####################

alias straddtokcs {
  var %string = $addtokcs($1,$2,1)
  var %string = $replacexcs(%string,$chr(1),$3)
  return %string
}
alias strfindtokcs {
  var %string = $replacexcs($1,$4,$chr(1))
  var %string = $findtokcs(%string,$2,$3,1)
  return %string
}
alias stristokcs {
  var %string = $replacexcs($1,$3,$chr(1))
  return $istokcs(%string,$2,1)
}
alias strmatchtokcs {
  var %string = $replacexcs($1,$4,$chr(1))
  return $matchtokcs(%string,$2,1)
}
alias strremtokcs {
  var %string = $replacexcs($1,$4,$chr(1))
  var %string = $remotkcs(%string,$2,$3,1)
  return $replacexcs(%string,$chr(1),$4)
}
alias strreptokcs {
  var %string = $replacexcs($1,$5,$chr(1))
  var %string = $reptokcs(%string,$2,$3,$4,1)
  return $replacexcs(%string,$chr(1),$5)
}
alias strsorttokcs {
  var %string = $replacexcs($1,$2,$chr(1))
  var %string = $sorttokcs(%string,1,$3)
  return $replacexcs(%string,$chr(1),$2)
}
alias strwildtokcs {
  var %string = $replacexcs($1,$3,$chr(1))
  var %string = $wildtokcs(%string,$2,$3,1)
  return $replacexcs(%string,$chr(1),$3)
}