Recommandé: les chaînes taguées ASP spécifient qu'elles sont insensibles à la casse Le code de fonction de remplacement ordinaire est le suivant: Fourniture de la fonction publique (S, F) Dim Tl, Tm, Tr, K TL = TM = TR = S K = instr (1, tr, f, 1) faire while k0 tl = tl Left (tr, k-1) tm = mid (tr, k, len (f)) tl = tl Spory style = 'couleur: rouge' tm / span " tr = droite (tr, len (tr) -len (f) -K + 1) k = instr (1, tr, f, 1) boucle Hig
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é lorsqu'il y a plusieurs espaces dans le chemin d'image. Non corrigé.
2.18 Correction
Lorsque le chemin d'image a plusieurs espaces, un seul bug peut être conservé. Fixé.
<%
«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
Fonction getimg (sstring)
Dim Sreallodo, Regex, Ireallydo
Dim omatches, cmatch
'// définir un tableau vide
ireallydo = -1
Redim Areallydo (Ireallydo)
Si ISNULL (SSTRING) alors
getImg = areallydo
Fonction de sortie
Terminer si
'// Format Code HTML
'// Apportez chaque pause de ligne <img pour faciliter le remplacement régulier
sreallodo = sstring
Sur l'erreur reprendre ensuite
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 = RempaceALL (Sreallodo, =, =, true)
sreallodo = remplaceall (sreallodo,>,>, true)
sreallodo = remplacer (sreallodo,> <,> & vbcrlf & <)
Sreallodo = TRIM (SREALLYDO)
Définir regex = new regexp
regex.ignorecase = true
regex.global = true
'// Supprimer onclick, onload et autres scripts
regex.pattern = /s--on
sreallodo = regex.replace (sreallodo,)
'// Mettez l'adresse d'image SRC sans citations
regex.pattern = <img. *? / ssrc = ([^ // '/ s] [^ //' / s>] *). *?>
sreallodo = regex.replace (sreallodo, <img src = $ 1 />)
'// correspond régulièrement à l'adresse SRC de l'image
http://bizhi.cncms.com/
regex.pattern = <img. *? / ssrc = ([// ']) ([^ //'] +?) / 1. *?>
Définir omatches = regex.execute (sreallodo)
'// Enregistrez l'adresse d'image dans le tableau
Pour chaque cmatch à Omatches
ireallydo = ireallydo + 1
Redim Preserve Areallydo (Ireallydo)
areallodo (ireallydo) = regex.replace (cmatch.value, 2 $)
Suivant
getImg = areallydo
Fonction finale
%>
<%
«Utilisation: beaucoup de gens me demandent comment l'utiliser, mais en fait, comment utiliser le tableau.
SCONTENT = HTML Code Field '// SContent représente le code HTML. Il s'avère que si vous écrivez des OR, pourquoi ne comprenez-vous pas qu'il s'agit d'un ensemble d'enregistrements? . .
DIM AIMAGES: AIMAGES = GETIMG (SCONTENT) '// Définissez un tableau et utilisez-le pour stocker toutes les adresses d'image analysées
«Énumérez les adresses de toutes les images:
Pour i = 0 à Ubound (Amélioration)
Response.Write (<b> Things & i + 1 & Image Adresse: </b> & AIMAGES (I) & <BR />)
Suivant
«Énumérez la première adresse d'image:
Si ubound (objectifs)> -1 alors réponse.write (<p> <b> première adresse d'image: </b> & objectifs (0) & </p>)
'Liste la dernière adresse d'image:
Si UBound (Aimages)> -1 alors réponse.Write (<p> <b> Dernière adresse d'image: </b> & AIMAGES (UBOUND (AIMAGES)) & </p>)
%>
Partager: comment remplacer le remplacement en ASP en cas d'insensibilité Examinons d'abord la description détaillée du paramètre de Remplacer la chaîne de retour, où un nombre spécifié de sous-chaînes est remplacé par une autre sous-chaîne. Syntaxe remplace (expression, trouver, remplacer par [, comparer [, count [, start]]]]) La syntaxe de la fonction de remplacement a les paramètres suivants: Paramètre Description Expression requise. Package d'expression de chaîne