;; | -----------------------------------------------------------------------------
;; | TX_ExtractXMLValue 
;; | -----------------------------------------------------------------------------
;; | Function : Reads an XML string and extracts a value part only
;; | Argument : 'Str'      - XML string
;; | Return   :
;; | Update   : March 12, 2009
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | -----------------------------------------------------------------------------


(defun TX_ExtractXMLValue ( xmlStr / Val pos1 pos2 )
(setq
	Val  nil
	pos1 (ST_fsrch xmlStr ">")
	pos2 (ST_lsrch xmlStr "<")
)
(if (and pos1 pos2)
	(setq Val (substr xmlStr (1+ pos1) (- pos2 pos1 1)))
)

Val
)