Il y a encore des bogues à l'heure actuelle, et la dernière page de test est: http://www.reallydo.com/getimg.asp
La page d'analyse régulière est à: http://jorkin.reallodo.com/article.asp?id=380
Si vous trouvez un bug, veuillez laisser un message plus tard, merci.
1.31 Correction
src = les espaces après qu'il ne peut pas correspondre correctement. Fixé.
Une erreur s'est produite lorsque Src = '' est vide. Fixé.
Un bug a été trouvé: un seul peut être conservé lorsque le chemin d'image a plusieurs espaces. Non corrigé.
2.18 Correction
Lorsque le chemin d'image a plusieurs espaces, un seul bug peut être conservé. Fixé.
La copie de code est la suivante:
<%
«Fonction: obtenez toutes les adresses d'image et enregistrez-les dans un tableau.
'Source: http://jorkin.reallodo.com/article.asp?id=448
'La fonction de remplacement est requise: http://jorkin.reallodo.com/article.asp?id=406
FunctionGetImg (sString)
DimsReallydo, Regex, Ireallydo
Dimomatches, cmatch
'// définir un tableau vide
ireallydo = -1
RedimareAllydo (Ireallydo)
Ifisnull (sstring) puis
getImg = ""
Sortie
Endire
'// Format Code HTML
'// Apportez chaque pause de ligne <img pour faciliter le remplacement régulier
sreallodo = sstring
Onerrorresumenext
sreallodo = remplacer (sreallodo, vbcr, "")
sreallodo = remplacer (sreallodo, vblf, "")
sreallodo = remplacer (sreallodo, vbtab, "")
sreallodo = remplacer (sreallodo, "<img", vbcrlf & "<img", 1, -1,1)
sreallodo = remplacer (sreallodo, "/>", "/>", 1, -1,1)
sreallodo = remplaceall (sreallodo, "=", "=", true)
sreallodo = remplaceall (sreallodo, ">", ">", true)
sreallodo = remplacer (sreallodo, "> <", ">" & vbcrlf & "<")
Sreallodo = TRIM (SREALLYDO)
Onerrorgoto0
SetRegex = newRegexp
regex.ignorecase = true
regex.global = true
'// Supprimer onclick, onload et autres scripts
regex.pattern = "/ s [on]. +? = ([/" "| /'m de par exemple.