Supprimer des balises html avec VB6

Signaler
Messages postés
163
Date d'inscription
samedi 19 janvier 2008
Statut
Membre
Dernière intervention
26 août 2014
-
Messages postés
16301
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 septembre 2021
-
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

--

3 réponses

Messages postés
16301
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 septembre 2021
563
Bonjour, il y a bien longtemps que je n'ai pas fait de VB6, mais effectivement la piste de l'expression régulière est la bonne.
As tu bien mis la référence au regex VBScript 5.5?
Y a t il un message d'erreur?
Messages postés
33518
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 septembre 2021
351
Messages postés
163
Date d'inscription
samedi 19 janvier 2008
Statut
Membre
Dernière intervention
26 août 2014

non comment je peux le faire ??

--
Messages postés
16301
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 septembre 2021
563
non à quelle question?
Messages postés
163
Date d'inscription
samedi 19 janvier 2008
Statut
Membre
Dernière intervention
26 août 2014

As tu bien mis la référence au regex VBScript 5.5?
Messages postés
16301
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 septembre 2021
563