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
15402
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
19 janvier 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
15402
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
19 janvier 2021
502
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
31093
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
19 janvier 2021
342
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
15402
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
19 janvier 2021
502
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
15402
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
19 janvier 2021
502