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