Empfohlen: ASP Tagged Saiten geben an, dass sie von Fall unempfindlich sind Der gewöhnliche Ersatzfunktionscode lautet wie folgt: öffentliche Funktion Highlight (s, f) dim tl, tm, tr, k tl = tm = tr = s k = Instrument (1, tr, f, 1), während k0 tl = tl links (tr, k-1) tm = mid (tr, k, k, len (f)) tl = tl span style = 'farb: rot: rot' tm 'tm /tm /span tr = recht
Derzeit gibt es noch Fehler, und die neueste Testseite ist: http://www.reallydo.com/getimg.asp
Die reguläre Analyseseite ist unter: http://jorkin.reallydo.com/article.asp?id=380
Wenn Sie einen Fehler finden, hinterlassen Sie bitte eine Nachricht, danke.
1.31 Korrektur
src = die Räume, nachdem es nicht richtig übereinstimmen kann. Behoben.
Ein Fehler ist aufgetreten, wenn Src = '' leer ist. Behoben.
Der Fehler wurde gefunden: Nur einer kann beibehalten werden, wenn im Bildweg mehrere Räume vorhanden sind. Unkorrigiert.
2.18 Korrektur
Wenn der Bildpfad mehrere Leerzeichen hat, kann nur ein Fehler aufbewahrt werden. Behoben.
<%
'Funktion: Holen Sie sich alle Bildadressen und speichern Sie sie in einem Array.
'Quelle: http://jorkin.reallydo.com/article.asp?id=448
'Ersatz -Funktion ist erforderlich: http://jorkin.reallydo.com/article.asp?id=406
Funktion getImg (SSTRING)
Dim Sreallydo, Regex, ireallydo
Dim Omatches, CMatch
'// Definieren Sie ein leeres Array
ireallydo = -1
Redim areallydo (ireallydo)
Wenn isnull (sString) dann
getImg = areAllydo
Ausgangsfunktion
Ende wenn
'// Format HTML -Code
'// Bringen Sie jede <img -Linienpause mit, um den regelmäßigen Austausch zu erleichtern
sreallydo = sstring
Bei der nächsten Fehleraufnahme als nächstes
sreallydo = ersetzen (sreallydo, vbcr,)
sreallydo = ersetzen (SreallyDo, VBLF,)
sreallydo = ersetzen (sreallydo, vbtab,)
sreallydo = ersetzen (sreallydo, <img, vbcrlf & <img, 1, -1, 1)
sreallyDo = ersetzen (sreallydo, />, />, 1, -1, 1)
sreallydo = ersatz (sreallydo, =, =, true)
SreallyDo = Ersatz (sreallydo,>,>, true)
sreallyDo = ersetzen (sreallydo,> <,> & vbcrlf & <)
sreallydo = trim (sreallydo)
Setzen Sie Regex = New Regexp
regex.ignorecase = true
regex.global = true
'// Onclick, Onload und andere Skripte entfernen
regex.pattern = /s..+?=([/|/'])(.*?)/1
sreallydo = regex.replace (sreallydo,)
'// Die SRC -Bildadresse ohne Anführungszeichen setzen
regex.pattern = <img.*?/ssrc = ([^// '/s] [^//'/s>]*).*?>
sreallyDo = regex.replace (sreallydo, <img src = $ 1 />)
'// stimmen regelmäßig mit der Image SRC -Adresse überein
http://bizhi.cncms.com/
regex.pattern = <img.*?/ssrc = ([// ']) ([^//']+?)/1.*?>
Setzen Sie omatches = regex.execute (sreallydo)
'// Speichern Sie die Bildadresse in das Array
Für jede CMatch in Omatches
ireallydo = ireallydo + 1
Redim Preserve areAllydo (ireallydo)
AREALLYDO (ireallydo) = regex.replace (cmatch.value, $ 2)
Nächste
getImg = areAllydo
Endfunktion
%>
<%
»Nutzung: Viele Leute fragen mich, wie man es benutzt, aber in der Tat, wie man das Array benutzt.
Scontent = HTML -Codefeld '// Scontent repräsentiert den HTML -Code. Wenn Sie Ors schreiben, warum verstehen Sie nicht, dass es sich um einen Datensatz gesetzt, wenn Sie Ors schreiben? . .
DIM -Ziele: Ziele = getImg (scontent) '// Definieren Sie ein Array und verwenden Sie es, um alle analysierten Bildadressen zu speichern
'Listen Sie die Adressen aller Bilder auf:
Für i = 0 bis Ubound (Ziele)
Response.write (<b> Dinge & i + 1 & Bildadresse: < /b> & ziele (i) & <br />)
Nächste
'Listen Sie die erste Bildadresse auf:
Wenn Ubound (Ziele)> -1 dann Antwort.Write (<p> <b> Erste Bildadresse: </b> & Ziele (0) & </p>)
'Listen Sie die letzte Bildadresse auf:
Wenn Ubound (Ziele)> -1 dann Antwort.Write (<p> <b> Letzte Bildadresse: </b> & Ziele (Ubound (Ziele)) & </p>)
%>
Anteil: So ersetzen Sie den Ersatz in ASP für den Fall unempfindlich Schauen wir uns zunächst die detaillierte Parameterbeschreibung der Ersatz -Rücklaufzeichenfolge an, wobei eine angegebene Anzahl von Substrings durch ein anderes Substring ersetzt wird. Syntax Ersetzen (Expression, Finden, Ersetzen durch [, vergleiche [, count [, start]]] Die Syntax der Ersatzfunktion hat die folgenden Parameter: Parameter Beschreibung Expression erforderlich. String -Ausdruckspaket