$MOVETOK ALIAS

By DarthReven on Feb 02, 2007

READ THE COMMENTS IN THE ALIAS

ALIAS MOVETOK { 
  ;$MOVETOK(TEXT,TOKEN,N,C) 
  ;N = Position you wish to move the token to 
  IF ($ISTOK($1,$2,$4)) { 
    IF ($NUMTOK($1,$4) >= $3) { 
      IF ($GETTOK($1,$3,$4) != $2) { 
        IF ($3 == 1) { RETURN $+($2,$CHR($4),$REMTOK($1,$2,1,$4)) } 
        ELSEIF ($3 == $NUMTOK($1,$4)) { RETURN $+($REMTOK($1,$2,1,$4),$CHR($4),$2) } 
        ELSE { RETURN $+($GETTOK($REMTOK($1,$2,1,$4),$IIF($CALC($3 -1) > 1,$+(1-,$V1),1),$4),$CHR($4),$2,,$CHR($4),$GETTOK($REMTOK($1,$2,1,$4),$+($3,-),$4)) } 
      } 
      ELSE { BEEP 2 | ECHO $COLOR(INFO) -a [ERROR] - $2 IS ALREADY IN POSITION $3 } 
    } 
    ELSE { BEEP 2 | ECHO $COLOR(INFO) -a [ERROR] - SORRY YOU PROVIDED A NUMBER GREATER THEN THE NUMBER OF TOKENS } 
  } 
  ELSE { BEEP 2 | ECHO $COLOR(INFO) -a [ERROR] - SORRY BUT $2 IS NOT FOUND IN THE TEXT GIVEN } 
} 

Comments

Sign in to comment.
DarthReven   -  Feb 02, 2007

EX1:
bill jane howwy bill katie jone
I want to move katie from pos 5 to pos 2 so
$MOVETOK(bill jane howwy bill katie jone,katie,2,32)
The text will now read:
bill katie jane howwy bill jone

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.