;; | ----------------------------------------------------------------------------
;; | ST_StrTok 
;; | ----------------------------------------------------------------------------
;; | Function : Splits up a string into a list of tokens delimited by a list of
;; |            delimiters and returns all white spaces in between the dlimiters
;; | Argument : [lstr]     - The String
;; |            [DelimLst] - The list of possible delimiters
;; | Return   : A list of delimited strings
;; | Updated  : January 29, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun ST_StrTok( lstr DelimLst / cnt len Lst str Char LastWasWhite )
(setq
	len           (strlen lstr)
	cnt           1
	Lst          '()
	LastWasWhite nil
	str          ""
)

(repeat len
	(setq
		Char (substr lstr cnt 1)
		cnt (1+ cnt)
	)

	(if (not (member Char DelimLst))
	(setq str (strcat str Char))
	(setq
		LastWasWhite T
		Lst          (append Lst (list str))
		str          ""
	))
)
(if (not (equal str ""))
	(setq Lst (append Lst (list str)))
)
 Lst
)