idlastro / Miscellaneous (Non-Astronomy) Procedures: GETTOK

[Source code]

NAME
GETTOK                                    
PURPOSE
Retrieve the first part of a (vector) string up to a specified character
EXPLANATION
GET TOKen - Retrieve first part of string until the character char 
is encountered.   
CALLING SEQUENCE
token = gettok( st, char, [ /EXACT, /NOTRIM ] )
INPUT
char - character separating tokens, scalar string
INPUT-OUTPUT
st - string to get token from (on output token is removed unless
    /NOTRIM is set), scalar or vector
OUTPUT
token - extracted string value is returned, same dimensions as st
OPTIONAL INPUT KEYWORD
/EXACT -  The default behaviour of GETTOK is to remove any leading 
       blanks and (if the token is a blank) convert tabs to blanks.    
       Set the /EXACT keyword to skip these steps and leave the 
       input string unchanged before searching for the  character 
       tokens. 
NOTRIM - if set, then the input string is left unaltered 
EXAMPLE
If ST is ['abc=999','x=3.4234'] then gettok(ST,'=') would return
['abc','x'] and ST would be left as ['999','3.4234'] 
PROCEDURE CALLS
REPCHR()
HISTORY
version 1  by D. Lindler APR,86
Remove leading blanks    W. Landsman (from JKF)    Aug. 1991
5.3 version, accept vector input   W. Landsman February 2000
lightly faster implementation  W. Landsman   February 2001
dded EXACT keyword  W. Landsman March 2004
ssume since V5.4, Use COMPLEMENT keyword to WHERE W. Landsman Apr 2006
dded NOTRIM keyword W. L. March 2011