Vb usa xmlhttp para obtener el código fuente de la página web. ¿Cómo filtrar enlaces en etiquetas extraídas usando expresiones regulares?

Este problema es fácil de resolver. Hay demasiado código publicado aquí. Agregue QQ 620941 para ayudarlo a extraer caracteres y escribir una función sin regularización.

La función strrow(ByVal sStr es String, ByVal nRow es Long, ByVal sP1 opcional es String = vbCrLf, ByVal sP2 opcional es String = vbCrLf) es String

"Dim x As Reciclaje largo

Dim nPoint1 solo necesita guardar el primer punto clave.

"Dim nPoint2 As Long" guarda el segundo punto clave.

Busca números de ubicación al guardar los valores predeterminados.

Marcar isDef como booleano

Si sP1 = sP2, entonces isDef = True, de lo contrario isDef = False

Para x = 1 a nRow

npunto 1 = InStr(npunto 1+1, sStr, sP1)

npunto 2 = InStr(npunto 1+Len(sp 1), sStr, sP2)

depuración. Imprima nPoint1, nPoint2

Si isDef, entonces tnRow = nRow - 1, de lo contrario tnRow = nRow

Si isDef y nPoint2 = 0 y sP2 = vbCrLf, entonces npoint 2 = Len(sStr) +Len(sp 1)

Si nPoint1 = 0 o nPoint2 = 0, entonces

Si esDef, entonces

stxtRow = " ":Salir de la función

p>

p>

StxtRow = "No encontrado, archivo * * * " &; /p>

StxtRow = "No encontrado, archivo * * * " &; 'línea':Salir de la función

Finalizar si...

Finalizar si...

Sinrow = 1 y isdef y SP2 = vbcrlfentonces 'si es el valor predeterminado Siguiente busca la primera línea.

str xtrow = Mid(sStr, 1, nPoint1 - 1)

Salir de la función

Otras situaciones

Si x = tnRow, Entonces

str xtrow = Mid(sStr, nPoint1 + Len(sP1), npoint 2-npoint 1-Len(sp 1))

Salir de la función

Si... terminará

Si... terminará

Entonces

Finalizar función

Por ejemplo, cadena s ="ksdjfkls, slkjfsd dije sdfsdf "Y quieres extraer lo que dije.

StxtRow s, 1, "I", "Say"

Esto es para extraer la primera cadena en S que comienzo y termino con Say. El código es un desastre, pero definitivamente funciona.