;; | ----------------------------------------------------------------------------
;; | ST_Strip
;; | ----------------------------------------------------------------------------
;; | Function : Strip (remove) a Charcter from a string
;; | Argument : 'str'     - String to search
;; |            'delchar' - Character(s) to remove
;; | Return   : The string with the specified characters removed
;; | Updated  : February 5, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun ST_Strip( str delchar / len cnt nstr cchar len1 DelCharLst )

(setq
	len  (strlen str)
	len1 (strlen delchar)
	nstr ""
	cnt  1
	DelCharLst '()
)
(repeat len1
	(setq
		cchar      (substr delchar cnt 1)
		DelCharLst (cons cchar DelCharLst)
		cnt        (1+ cnt)
	)
)

(setq cnt 1)
(repeat len
	(setq
		cchar (substr str cnt 1)
		cnt (1+ cnt)
	)
	(if (not (member cchar DelCharLst))
		(setq nstr (strcat nstr cchar))
	)
)
 nstr
)