ok hows this one?
(defun MultiParse (string delims / char cnt flag len lout s tdlim tstr)
(setq tstr ""
tdlim ""
cnt 0
len (strlen string)
flag nil
lout '()
)
(foreach s delims
(setq tdlim (strcat s tdlim)))
(while (<= cnt len)
(setq char (substr string (1+ cnt) 1))
(if (vl-string-search char tdlim)
(progn
(if flag
(progn
(setq lout (append lout (list tstr))
tstr ""
flag nil
)
)
)
)
(progn
(setq tstr (strcat tstr char)
flag t
)
)
)
(setq cnt (1+ cnt))
)
lout
)
(MultiParse ";;;;;;;;;;;;;This;;;is.a,Test;String hi;,,,yes;;." '(";" "." ","))
(MultiParse "This&%is,5%" '("," "&%"))