Рекомендуется: строки с тегами ASP указывают, что они нечувствительны к случаям Обычный код функции замены следующим образом: Основная часть публичной функции (S, F) Dim TL, TM, TR, K TL = TM = TR = S k = instr (1, tr, f, 1) do, пока k0 tl = tl слева (tr, k-1) tm = mid (tr, k, len (f) tl = tl span = 'color: красный tr = right (tr, len (tr) -len (f) -k+1) k = instr (1, tr, f, 1) lop hig
В настоящее время есть ошибки, а последняя тестовая страница: 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
Функция Getimg (SString)
Dim sreallydo, regex, ireallydo
Dim Omatches, Cmatch
'// Определить пустой массив
reallydo = -1
Redim areallydo (ireallydo)
Если isnull (sstring), то
getimg = areallydo
Выходная функция
Конец, если
'// Формат html -код
'// Принесите каждый разрыв линии IMG, чтобы облегчить регулярную замену
sreallydo = sstring
При ошибке резюме следующим
sreallydo = reply (sreallydo, vbcr,)
sreallydo = reply (sreallydo, vblf,)
sreallydo = заменить (sreallydo, vbtab,)
sreallydo = reply (sreallydo, <img, vbcrlf & <img, 1, -1, 1)
sreallydo = reply (sreallydo, />, />, 1, -1, 1)
sreallydo = rayalceall (sreallydo, =, =, true)
sreallydo = rayalceall (sreallydo,>,>, true)
sreallydo = reply (sreallydo,> <,> & vbcrlf & <)
sreallydo = trim (sreallydo)
Set regex = new Regexp
regex.ignorecase = true
regex.global = true
'// Удалить OnClick, Onload и другие сценарии
regex.pattern = /sцерсон
sreallydo = regex.replace (sreallydo,)
'// Поместите адрес изображения SRC без кавычек
regex.pattern = <img.*?/ssrc = ([^// '/s] [^//'/s>]*).*?>
sreallydo = regex.replace (sreallydo, <img src = $ 1 />)
'// Регулярно соответствует адресу изображения SRC
http://bizhi.cncms.com/
regex.pattern = <img.*?/ssrc = ([// ']) ([^//']+?)/1.*?>
Установить omatches = regex.execute (sreallydo)
'// Сохранить адрес изображения в массив
Для каждого CMatch в Omatches
ireallydo = ireallydo + 1
Redim areallydo (йалелидо)
areallydo (ireallydo) = regex.replace (cmatch.value, $ 2)
Следующий
getimg = areallydo
Конечная функция
%>
<%
«Использование: многие люди спрашивают меня, как его использовать, но на самом деле, как использовать массив.
Scontent = HTML -полю кода '// Scontent представляет HTML -код. Оказывается, что если вы пишете ORS, почему вы не понимаете, что это набор записей? Полем Полем
DIM AMEAGE: AMIMAGES = GETIMG (SCONTENT) '// Определите массив и используйте его для хранения всех анализируемых адресов изображения
'Перечислите адреса всех изображений:
Для i = 0 до ubound (Amages)
Response.write (<b> things & i + 1 и адрес изображения: < /b> & amages (i) & <br />)
Следующий
'Перечислите первый адрес изображения:
Если ubound (amages)> -1, то response.write (<p> <b> Первый адрес изображения: </b> & amages (0) и </p>)
'Перечислите последний адрес изображения:
Если ubound (amages)> -1, то response.write (<p> <b> Последний адрес изображения: </b> & images (ubound (images)) и </p>)
%>
Поделиться: как заменить заменить в ASP в случае нечувствительного Давайте сначала рассмотрим подробное описание параметра замены возвращаемой строки, где указанное количество подстроков заменяется еще одной подстрокой. Синтаксис заменить (выражение, найти, заменить с помощью [, сравнить [, count [, start]]]]) Синтаксис функции замены имеет следующие параметры: необходимо выражение описания параметра. Пакет выражения строки