Virer les tag html d'une chaine

Résolu
Signaler
Messages postés
296
Date d'inscription
mardi 9 janvier 2007
Statut
Membre
Dernière intervention
21 novembre 2008
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
salut,
je veux virer les tags html d'une chaine mais avec cete function ca marche pas .
merci de m'aider

Private Function
StripHTML
(ByRef
sTexteHTML
As String) As String
Dim
oReg
As New
RegExp


    oReg.Pattern =


"(<[^>]+>)"
    oReg.Global = True






    StripHTML = oReg.Replace(sTexteHTML, vbNullString)

End Function

5 réponses

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
Mon code (vi, je l'ai reconnu :p) fonctionne parfaitement...

as tu bien ajouté la reference a 'Microsoft VbScript Regular Expressions 5.5' dans le menu Projet> Reference ?

au pire, tu peux le faire en Late Binding :


Private Function StripHTML(ByRef sTexteHTML As String) As String
Dim oReg As Object
Set oReg = CreateObject("VBScript.RegExp")
oReg.Pattern = "(<[^>]+>)"
oReg.Global = True
StripHTML = oReg.Replace(sTexteHTML, vbNullString)
End Function
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
? StripHTML("ce mot est en gras !!")
ce mot est en gras !!
Messages postés
296
Date d'inscription
mardi 9 janvier 2007
Statut
Membre
Dernière intervention
21 novembre 2008

oui j'ai ajouterbla reference 'Microsoft VbScript Regular Expressions 5.5' dans le menu Projet> Reference'

meme avec ca ca marche pas byref argument type mismatch
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
Essaye de faire ainsi :
dim toto as string
toto = ("ce mot est en gras !!")
msgbox StripHTML(toto)

et:
Private Function StripHTML(sTexteHTML As String) As String
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
tu dois surement lui filer un numérique ou un Variant (ou pire)

StripHtml attends un String...

Renfield
Admin CodeS-SourceS- MVP Visual Basic