Recomendado: las cadenas etiquetadas ASP especifican que son insensibles El código de función de reemplazo ordinario es el siguiente: resaltado de función pública (s, f) dim tl, tm, tr, k tl = tm = tr = s k = instr (1, tr, f, 1) do while k0 tl = tl izquierdo (tr, k-1) tm = mid (tr, k, len (f)) tl = tl span span tr = right (tr, len (tr) -len (f) -k+1) k = instr (1, tr, f, 1) bucle hig
Todavía hay errores en la actualidad, y la última página de prueba es: http://www.reallydo.com/getimg.asp
La página de análisis regular es en: http://jorkin.reallydo.com/article.asp?id=380
Si encuentra un error, deje un mensaje más tarde, gracias.
1.31 corrección
src = los espacios después de que no puede coincidir correctamente. Fijado.
Se produjo un error cuando src = '' está vacío. Fijado.
Se encontró un error: solo se puede retener uno cuando hay múltiples espacios en la ruta de la imagen. Sin corregir.
2.18 Corrección
Cuando la ruta de la imagen tiene múltiples espacios, solo se puede conservar un error. Fijado.
<%
'Función: obtenga todas las direcciones de imagen y guárdelas en una matriz.
'Fuente: http://jorkin.reallydo.com/article.asp?id=448
Se requiere la función reemplazo: http://jorkin.reallydo.com/article.asp?id=406
Función getimg (sstring)
Dim Sreallydo, Regex, Ireallydo
Dim omatches, cmatch
'// Defina una matriz vacía
Ireallydo = -1
Redim Areallydo (Ireallydo)
If isnull (sstring) entonces
getimg = Areallydo
Función de salida
Final si
'// Formato de código HTML
'// Traiga cada <iMg Line Break para facilitar el reemplazo regular
sreallydo = sstring
En el currículum de error siguiente
sreallydo = reemplazar (sreallydo, vbcr,)
sreallydo = reemplazar (sreallydo, vblf,)
sreallydo = reemplazar (sreallydo, vbtab,)
sreallydo = reemplazar (sreallydo, <img, vbcrlf & <img, 1, -1, 1)
sreallydo = reemplazar (sreallydo, />, />, 1, -1, 1)
sreallydo = reemplazar (sreallydo, =, =, true)
sreallydo = reemplazar (sreallydo,>,>, verdadero)
sreallydo = reemplazar (sreallydo,> <,> & vbcrlf & <)
sreallydo = Trim (sreallydo)
Establecer regex = new Regexp
regex.ignorecase = true
regex.global = verdadero
'// Eliminar OnClick, Onload y otros scripts
regex.pattern = /s•onfont>.+?=([/|/'font>)(.*?)/1
sreallydo = regex.replace (sreallydo,)
'// Ponga la dirección de imagen SRC sin cotizaciones
regex.pattern = <img.*?/ssrc = ([^// '/s] [^//'/s>]*).*?>
sreallydo = regex.replace (sreallydo, <img src = $ 1 />)
'// Haga coincidir regularmente la dirección SRC de la imagen
http://bizhi.cncms.com/
regex.pattern = <img.*?/ssrc = ([// ']) ([^//']+?)/1.*?>
Establecer omatches = regex.execute (sreallydo)
'// Guarde la dirección de la imagen en la matriz
Para cada cmatch en omatches
Ireallydo = Ireallydo + 1
Redim Preserve Areallydo (Ireallydo)
AREALLYDO (IREALLYDO) = Regex.replace (cmatch.Value, $ 2)
Próximo
getimg = Areallydo
Función final
%>
<%
'Uso: muchas personas me preguntan cómo usarlo, pero de hecho, cómo usar la matriz.
Scontent = HTML Code Field '// Scontent Representa el código HTML. Resulta que si escribes OR, ¿por qué no entiendes que es un conjunto de registros? . .
Dim AIMage: AIMAGS = GetImg (Scontent) '// Defina una matriz y úsela para almacenar todas las direcciones de imagen analizadas
'Enumere las direcciones de todas las imágenes:
Para i = 0 a Ubound (objetivos)
Response.write (<b> cosas e i + 1 y dirección de imagen: </b> & anotages (i) y <br />)
Próximo
'Enumere la primera dirección de imagen:
Si UBound (AIMage)> -1 entonces Response.Write (<p> <b> Primera dirección de imagen: </b> y anotages (0) y </p>)
'Enumere la última dirección de imagen:
Si UBound (AIMage)> -1 entonces Response.Write (<p> <b> Last Image Dirección: </b> y AIMAGS (UBound (AIMages)) y </p>)
%>
Compartir: cómo reemplazar reemplazar en ASP en caso de insensible Primero veamos la descripción detallada del parámetro de la cadena de retorno de reemplazo, donde un número especificado de subcadenas se reemplaza con otra subcadena. Sintaxis reemplazar (expresión, encontrar, reemplazar con [, comparar [, contar [, inicio]]]) la sintaxis de la función de reemplazo tiene los siguientes parámetros: expresión de descripción de parámetros requerida. Paquete de expresión de cadena