Snippet that removes multiple tokens from a string of text. An enhancement to $remtok.

;; --- $multiremtok by brinxy --- ;;
;; About ;;
;; $multiremtok is an enhanced version of $remtok allowing you to remove multiple tokens at once from a string of text. ;;
;; -------------------- ;;
;; Snippet Syntax ;;
;; -------------------- ;;
;; $multiremtok([string],[n],[n*],[C]) 
;;  Breaking it down:
;;      - [string]: String to maniipulate
;;      - [n]: the first Nth token to be removed
;;      - [n*]: The Nth Nth token to be removed
;;      - [C]: Common Character
;; -------------------- ;;
;; Examples ;;
;;  - $multiremtok(this is a string of text,1,2,3,32) returns 'string of text' because it removed tokens 1-3 (this, is, and a)
;;  - $multiremtok(this is a string of text,1-3,4,32)  returns 'of text' because it removes tokens 1-3, as specified, and token 4 (string)
;; Counter examples ;;
;;  - $multiremtok(this is a string of text,233,3,32) returns $false because 233 isn't a token in the string
;;  - $multiremrok(this is a string of text,a,4,32) returns $false because a isn't a number
;;  - $multiremtok(this is a string of text,4-a,2,32) returns this is of text because it ignores '-a' 
;; -------------------- ;;
;; Notes ;;
;; -------------------- ;;
;; Do you now how, in the first counter example, the string returned $false? 
;;  - If you put '233' to not be the first token, the snippet will remove all tokens before it reaches 233.
;;      - Once it reaches 233, the while event breaks and it doesn't replace anymore.
;; This rule applies for letters as the removed token as well.

alias multiremtok { 
  if ($$1) { 
    var %0 = $($+($,$0),2), %inc = 2,%get = $1,%d
    while (%inc < $0) { 
      if ($($+($,%inc),2) > $numtok(%get,%0)) { break }
      elseif (!$gettok(%get,$($+($,%inc),2),%0)) { break } 
      elseif (!$regex($($+($,%inc),2),/^[0-9]+/gi)) { break }
      else { %d = $addtok(%d,$gettok(%get,$($+($,%inc),2),%0),%0) }
      inc %inc
    } 
    if (%d) { 
      var %x = 1
      while ($gettok(%d,%x,%0)) { 
        %get = $remtok(%get,$v1,1,32)
        inc %x
      }
      return %get
    }
    else return $false
  }
}