В настоящее время есть ошибки, а последняя тестовая страница: http://www.reallydo.com/getimg.asp
Страница регулярного анализа: http://jorkin.reallydo.com/article.asp?id=380
Если вы найдете ошибку, пожалуйста, оставьте сообщение позже, спасибо.
1.31 коррекция
src = пространства после того, как он не может соответствовать правильно. Зафиксированный.
Произошла ошибка, когда src = '' пуста. Зафиксированный.
Была найдена ошибка: только один может быть сохранен, когда в пути изображения есть несколько мест. Некорректирован.
2.18 Коррекция
Когда путь изображения имеет несколько пробелов, можно сохранить только одну ошибку. Зафиксированный.
Кода -копия выглядит следующим образом:
<%
'Function: Получите все адреса изображения и сохраните их до массива.
'Источник: http://jorkin.reallydo.com/article.asp?id=448
Требуется функция замены: http://jorkin.reallydo.com/article.asp?id=406
Functiongetimg (sstring)
Dimsreallydo, regex, ireallydo
Dimomatches, Cmatch
'// Определить пустой массив
reallydo = -1
Redimareallydo (ireallydo)
Ifisnull (sstring) затем
getimg = ""
Выходная функция
Эндиф
'// Формат html -код
'// Принесите каждый разрыв линии IMG, чтобы облегчить регулярную замену
sreallydo = sstring
OnerRorResumenext
sreallydo = reply (sreallydo, vbcr, "")
sreallydo = reply (sreallydo, vblf, "")
sreallydo = reply (sreallydo, vbtab, "")
sreallydo = reply (sreallydo, "<img", vbcrlf & "<img", 1, -1,1)
sreallydo = reply (sreallydo, "/>", "/>", 1, -1,1)
sreallydo = rylaceall (sreallydo, "=", "=", true)
sreallydo = Reallaceall (sreallydo, ">", ">", true)
sreallydo = reply (sreallydo, "> <", ">" & vbcrlf & "<")
sreallydo = trim (sreallydo)
OnErrorgoto0
SetRegex = newRegexp
regex.ignorecase = true
regex.global = true
'// Удалить OnClick, Onload и другие сценарии
regex.pattern = "/s [On].+?