#cs ----------------------------------------------------------------------------

	AutoIt Version: 3.3.6.1
	Author:         Aquaplant

	Script Function:
	V 1.0

#ce ----------------------------------------------------------------------------
#include <string.au3>

Func _StringReplaceHTML2($sText)
	While 1
		$Between = _StringBetween($sText, "<a", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<a" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<span", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<span" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<td", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<td" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<img", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<img" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<div", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<div" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<table", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<table" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<h2", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<h2" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<p", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<p" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<tr", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<tr" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<ul", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<ul" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<script", "</script>")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<script" & $Between[0] & "</script>", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<input", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<input" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<meta", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<meta" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<style", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<style" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<link", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<link" & $Between[0] & ">", "")
		EndIf
	WEnd
	While 1
		$Between = _StringBetween($sText, "<form", ">")
		If @error Then
			ExitLoop
		Else
			$sText = StringReplace($sText, "<form" & $Between[0] & ">", "")
		EndIf
	WEnd


	$sText = StringReplace($sText, "<strong>", "")
	$sText = StringReplace($sText, "</strong>", "")
	$sText = StringReplace($sText, "<small>", "")
	$sText = StringReplace($sText, "</small>", "")
	$sText = StringReplace($sText, "</td>", "")
	$sText = StringReplace($sText, "</div>", "")
	$sText = StringReplace($sText, "<tr>", "")
	$sText = StringReplace($sText, "</h2>", "")
	$sText = StringReplace($sText, "</a>", "")
	$sText = StringReplace($sText, "</span>", "")
	$sText = StringReplace($sText, "</tr>", "")
	$sText = StringReplace($sText, "</table>", "")
	$sText = StringReplace($sText, "<br />", "")
	$sText = StringReplace($sText, "</p>", "")
	$sText = StringReplace($sText, "</li>", "")
	$sText = StringReplace($sText, "</ul>", "")
	$sText = StringReplace($sText, "<li>", "")
	$sText = StringReplace($sText, "<hr />", "")
	$sText = StringReplace($sText, "</style>", "")
	$sText = StringReplace($sText, "</a>", "")
	Return $sText
EndFunc   ;==>_StringReplaceHTML2