;č zde naším úkolem nikoliv dokonalá podpora HTML,
;č na to je HTMLView v RapaGUI,
;č ale vyříznutí html tegů, aby neotravovaly čtení

Function tf_TextField(html$)
	html$ = tf_ParseHTML(html$)
	html$ = tf_StripHTML(html$)
	html$ = tf_HtmlCharacters(html$)
	
	Return(StripStr(html$))
EndFunction 

Function tf_Label(html$)
	html$ = tf_StripHTML(html$)
	html$ = tf_HtmlCharacters(html$)
	
	Return(StripStr(html$))
EndFunction 


Function tf_HtmlCharacters(html$)
	html$ = ReplaceStr(html$, " ", "\194\160", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, " ", "\194\160", True, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, " ", "\194\160", False, 0, #ENCODING_RAW)
	
	;html$ = ReplaceStr(html$, "§", "§", False, 0, #ENCODING_UTF8)
	html$ = ReplaceStr(html$, "—", "--", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "–", "-", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "–", "-", True, 0, #ENCODING_RAW)
	
	html$ = ReplaceStr(html$, "&", "&", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "&", "&", True, 0, #ENCODING_RAW)
	
	html$ = ReplaceStr(html$, """, "\34", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "«", "\194\171", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "»", "\194\187", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "’", "\'", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "…", "...", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "…", "...", False, 0, #ENCODING_RAW)
	
	html$ = ReplaceStr(html$, "&lt;", "<", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "&gt;", ">", False, 0, #ENCODING_RAW)
	
	
	;č A teď... 
	html$ = PatternReplaceStr(html$, "&#(%d+);", Chr)
	
	Return(html$)
EndFunction 



Function tf_ParseHTML(html$)
	html$ = ReplaceStr(html$, "<br>", "\n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "<br />", "\n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "<p>", "\n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "</p>", "\n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "<u>", "\27u", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "</u>", "\27n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "<b>", "\27b", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "</b>", "\27n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "<i>", "\27i", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "</i>", "\27n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "<em>", "\27i", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "</em>", "\27n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "<li>", "- ", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "</li>", "\n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "<strong>", "\27b", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "</strong>", "\27n", False, 0, #ENCODING_RAW)
	
	html$ = ReplaceStr(html$, "[br]", "\n", False, 0, #ENCODING_RAW)
	;html$ = ReplaceStr(html$, "[br /]", "\n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[p]", "\n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[/p]", "\n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[u]", "\27u", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[/u]", "\27n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[b]", "\27b", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[/b]", "\27n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[i]", "\27i", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[/i]", "\27n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[em]", "\27i", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[/em]", "\27n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[li]", "- ", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[/li]", "\n", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[strong]", "\27b", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "[/strong]", "\27n", False, 0, #ENCODING_RAW)
	
	Return(html$)
EndFunction 

Function tf_StripHTML(html$)
	html$ = ReplaceStr(html$, "</a>", "", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "</div>", "", False, 0, #ENCODING_RAW)
	html$ = ReplaceStr(html$, "</span>", "", False, 0, #ENCODING_RAW)
	
	;html$ = PatternReplaceStr(html$, "<a.->", "")
	;html$ = PatternReplaceStr(html$, "<img.->", "")
	;html$ = PatternReplaceStr(html$, "<div.->", "")
	;html$ = PatternReplaceStr(html$, "<span.->", "")

	html$ = PatternReplaceStr(html$, "<.->", "")
	
	
	Return(html$)
EndFunction