Atualmente, ainda existem bugs, e a última página de teste é: http://www.reallydo.com/getimg.asp
A página de análise regular está em: http://jorkin.reallydo.com/article.asp?id=380
Se você encontrar um bug, deixe uma mensagem mais tarde, obrigado.
1.31 Correção
src = os espaços depois que não podem corresponder corretamente. Fixo.
Ocorreu um erro quando src = '' está vazio. Fixo.
Foi encontrado um bug: apenas um pode ser retido quando o caminho da imagem tem vários espaços. Não corrigido.
2.18 Correção
Quando o caminho da imagem tem vários espaços, apenas um bug pode ser retido. Fixo.
A cópia do código é a seguinte:
<%
'Função: obtenha todos os endereços de imagem e salve -os em uma matriz.
'Fonte: http://jorkin.reallydo.com/article.asp?id=448
'A função replacEall é necessária: http://jorkin.reallylydo.com/article.asp?id=406
FunctionGetImg (sString)
Dimsreallydo, Regex, Irellydo
Dimomatches, cmatch
'// define uma matriz vazia
IRALLYDO = -1
REDIMAREALLYDO (IRALLYDO)
Ifisnull (sString) então
getimg = ""
Saída de saída
Endif
'// Formato o código HTML
'// traga cada quebra de linha <img para facilitar a substituição regular
sreallydo = sString
OnErrorReSumenext
sreallydo = substituir (sreallydo, vbcr, "")
Sreallydo = Substitua (Sreallydo, VBLF, "")
sreallydo = substituir (sreallydo, vbtab, "")
sreallydo = substituir (sreallydo, "<img", vbcrlf & "<img", 1, -1,1)
sreallydo = substituir (sreallydo, "/>", "/>", 1, -1,1)
sreallydo = replaceall (sreallydo, "=", "=", true)
sreallydo = replaceAll (sreallydo, ">", ">", verdadeiro)
srEallydo = reply (sreallylydo, "> <", ">" & vbcrlf & "<")
Sreallydo = Trim (Sreallydo)
OnErrorgoto0
SetRegex = newRegexp
regex.IGNORECASE = true
regex.global = true
'// Remova OnClick, Onload e outros scripts
regex.pattern = "/s [on].+?