Bonjour,
comment je peux supprimer tout les balises html d'une chaine de caractère
<html><body>Ceci est un <b>test</b>.</body></html>
pour que je récupère que ("
Ceci est un test . ")
j'ai déjà trouver le code en VBA mais malheureusement quil ne fonctionne pas sous vb6
Function SupprimerHTML(ByVal strHTML As String) As String
Dim re As VBScript_RegExp_55.RegExp
' On crée une expression rationnelle
Set re = New RegExp
' On définit le critère qui cherche toute balise HTML
re.Pattern = "<s*?[^>]+s*?>"
' On fait en sorte que la casse (majuscules/minuscules)
' soit indifférente
re.IgnoreCase = True
' Traitement global (récursif)
re.Global = True
' La fonction Test renvoie True si la chaîne
' respecte le critère
SupprimerHTML = re.Replace(strHTML, "")
End Function
--