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 der Bildpfad mehrere Räume hat. Unkorrigiert.
2.18 Korrektur
Wenn der Bildpfad mehrere Leerzeichen hat, kann nur ein Fehler aufbewahrt werden. Behoben.
Die Codekopie lautet wie folgt:
<%
'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
FunctionGetimg (SSTRING)
DimsReallydo, Regex, Ireallydo
Dimomatches, CMatch
'// Definieren Sie ein leeres Array
ireallydo = -1
Redimareallydo (ireallydo)
Ifisnull (SSTRING) dann
getImg = ""
Ausgangsfunktion
Endif
'// Format HTML -Code
'// Bringen Sie jede <img -Linienpause mit, um den regelmäßigen Austausch zu erleichtern
sreallydo = sstring
OnErrorresumeNext
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, ">", ">", wahr)
sreallydo = ersetzen (sreallydo, "> <", ">" & vbcrlf & "<")
sreallydo = trim (sreallydo)
OnErorgoto0
SetRegex = newRegExp
regex.ignorecase = true
regex.global = true
'// Onclick, Onload und andere Skripte entfernen
regex.pattern = "/s [on].+?