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