Something like this:

function UnTag(tcString)
*[2010/06/24 17:44:25] ndragan - strip html, return text.
	local c, lcTag
	#define hLT "<"
	#define hGT ">"
	c=tcString
	do while hLT$c
		lcTag=strextract(c, hLT, hGT,1,4)
		c=strtran(c, lcTag, "")
	enddo
	return c

But this is only the starter... because in code tags, wrapped around any script, you may find the < inside the code, and that will throw this off.

The safer way is to find a tag first, by strextract(c, "<", " ",1,4), then find the matching > for it; then find the </tag and its matching > and then strtran those two with a "". Proceed as long as you keep finding pairs.