Cómo utilizar VB para interceptar caracteres específicos en páginas web de VB y mostrarlos en text1.text Baidu tiene muchas personas excelentes y puntuaciones altas.

Que casualidad, también estoy estudiando el contenido de obtención de páginas web. La función de interceptación que mencionaste se puede implementar con la función Split. Aquí hay un ejemplo de su función:

Supongamos una cadena Str1="left ABC middle ABC right"

Entonces Split(. Str1, "ABC")(0)="izquierda", cambie 0 a 1 para obtener "medio", cámbielo a 2 para obtener "derecha"

Para lograr la función que desea, almacene la web contenido de la página en In Text2 (Text2.Multiline = True), luego

Text1.Text = Split (Text2.Text,"value=""") (1) 'Utilice dos comillas dobles en vb para representar el texto Una comilla doble

Text1.Text = Split (Text2.Text,"""/>") (0)

Por cierto, el separador debería ser más largo, de lo contrario, se pueden interceptar errores

Bien, lo anterior no tiene sentido, vayamos al grano

Coloque Texto1 y Texto2 en el formulario, donde Text2.Multiline=True, el código es el siguiente:

Opción explícita

Función privada GetWebTxt(Url)

Dim objWMD como objeto: Establecer objWMD = CreateObject("Microsoft.XMLHTTP" )

objWMD.Open "GET", Url, False

objWMD.Send

GetWebTxt = StrConv(objWMD.responseBody, vbUnicode)

Función final

Private Sub Form_Load()

Dim UrlWeb$: UrlWeb = "URL de destino" 'Modifica la URL aquí

Text2.Text = GetWebTxt (UrlWeb)

Text1.Text = Split (Split (Text2.Text,"value=""")(1) , """/>")(0) 'Anidar el dos funciones de interceptación anteriores en Together

End Sub