1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

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

--
Afficher la suite

3 réponses

Réponse 1 / 3
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?
Réponse 2 / 3
Messages postés
31093
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
19 janvier 2021
 342
Bonjour,

http://support.microsoft.com/kb/818802/fr

Réponse 3 / 3
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 ??

--
Signaler
Messages postés
15402
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
19 janvier 2021
 502
non à quelle question?
Signaler
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?
Signaler
Messages postés
15402
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
19 janvier 2021
 502
http://codes-sources.commentcamarche.net/faq/520-les-expressions-rationnelles-regulieres
Répondre Posez votre question