1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

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

--
A voir également:

3 réponses

Réponse 1 / 3
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?
Réponse 2 / 3
Messages postés
33518
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 septembre 2021
 351
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
16301
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 septembre 2021
 563
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
16301
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 septembre 2021
 563
http://codes-sources.commentcamarche.net/faq/520-les-expressions-rationnelles-regulieres
Répondre Posez votre question