Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 17 juil. 2007 à 17:30
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