;; | ----------------------------------------------------------------------------
;; | ST_PatternTokens
;; | ----------------------------------------------------------------------------
;; | Function : Tokenize a string based on a pattern delimiter string
;; | Argument : 'Str' - Text String to check
;; |            'Pat' - Pattern string to use for splitting into tokens
;; | Return   : A list of all strings formed by token splitting
;; | Update   : June 12, 2004
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun ST_PatternTokens ( Str Pat / patLen Lst len Str1 pos )

(setq
	patLen  (strlen Pat)
	Lst    '()
)

(while (setq pos (ST_FindPattern Str Pat))
	(setq
		len  (strlen Str)
		Str1 (substr Str 1 (1- pos))
		Lst  (cons Str1 Lst)
		Str  (substr Str (+ pos patLen))
	)
)

(if (/= Str "")
	(setq Lst (cons Str Lst))
)

(setq Lst (reverse Lst))
)