Bonjour,
J’aimerai savoir comment peut-on supprimer une balise html et la remplacer
EX : <img src="/media/pics/1.png" alt="HTML" class="right picto">
J’ai trouvé une petit code sur un site web mais je ne le comprends pas très bien seriez-vous me l’expliquer Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 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 = "<img src="/media/pics/1.png" alt="HTML" class="right picto"> " ' 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(<img src="/media/pictures/test001.png" alt="HTML" class="right icto"> ) End Function
Bien à vous
David
Partager