Public Shared Function StripHTML(ByVal TexteHTML As String) As String

	Return System.Text.RegularExpressions.Regex.Replace(TexteHTML, "(<[^>]+>)", "") 

End Function

public static string StripHTML(String TexteHTML) 
{ 
	return System.Text.RegularExpressions.Regex.Replace(TexteHTML, @"(<\/?\w+((\s+\w+(\s*=\s*(?:"".*?""|'.*?'|[^'"">\s]+))?)+\s*|\s*)\/?>)|(<!--.*?-->)", ""); 
}

public static String stripHTML(String htmlText){
    return htmlText.replaceAll("(<[^>]+>)", "");    
}

<?php
function StripHTML ($sString) {
    return preg_replace ('@<[\/\!]*?[^<>]*?>@si', '', $sString);
}
?>
/**
* Autre possibilité sans expression régulière
*/
<?php
function StripHTML ($sString) {
    return strip_tags ($sString);
}
?>

<cffunction name="StripHTML" hint="Supprime les tags HTML dans un texte">
 <cfargument name="TexteHTML" type="string" required="yes">
 <cfreturn ReReplace(TexteHtml,"(<[^>]+>)","","All")>
</cffunction>

function stripHTML(txt){ 
    return txt.replace(/(<\/?\w+((\s+\w+(\s*=\s*(?:".*?"|'.*?'|[^'">\s]+))?)+\s*|\s*)\/?>)|(<!--.*?-->)/gim, "")
}

Private Function StripHTML(ByRef sTexteHTML As String) As String
Dim oReg As New RegExp
    oReg.Pattern = "(<[^>]+>)"
    oReg.Global = True
    StripHTML = oReg.Replace(sTexteHTML, vbNullString)
End Function

Function StripHTML(sTexteHTML)
Dim oReg
    Set oReg = CreateObject("VBScript.RegExp")
    oReg.Pattern = "(<[^>]+>)"
    oReg.Global = True
    StripHTML = oReg.Replace(sTexteHTML, vbNullString)
End Function