ASP est le code d'implémentation de SRC utilisant une extraction régulière de tous les chemins d'image dans le contenu

2019-12-22

Fonction


 Fonction RegImg (TheStr)
     Dim RegEx
     Set RegEx = New RegExp 'Créez un objet d'expression régulière.
     RegEx.IgnoreCase = True 'Que ce soit sensible à la casse, True n'est pas sensible à la casse et par défaut
     RegEx.Global = True 'correspond à tout ou seulement le premier
     RegEx.Pattern = "] * src \ s * = \ s * ['" & CHR (34) & "]? ([\ W /\-\:. E5E*)['"& CHR (34  ) & "]? [^>] *>" 'Expression régulière utilisée pour la recherche
     If Regex.test (TheStr) Then 'Détermine s'il existe une valeur correspondante et renvoie True ou False.  Non affecté par la propriété Global.
         Dim Matchs
         Set Matches = RegEx.Execute (TheStr) 'Effectuez une recherche.  La méthode Execute renvoie une collection Matches qui contient chaque objet Match trouvé dans TheStr.  Si aucune correspondance n'est trouvée, Execute renvoie une collection Matches vide.
         Pour chaque match dans les matchs Itérer sur les sets de matchs.
         'RetStr = RetStr & Match.Value & "
"' Obtenez l'image complète          RetStr = RetStr & Match.SubMatches (0) & "||" 'Seulement src          Suivant          RegImg = RetStr      Fin si Fonction de fin

'Méthode d'appel
htmlBody = "Titre de l "
Response.Write RegImg (htmlBody)

Ici c'est pour sortir, vous pouvez le modifier au besoin.

www.xd1998.com@2001-2030Partage De Technologie