Visual Basic.NET - Como extraer datos de una etiqueta HTML

Pos: 420

Val: 2

Como extraer datos de una etiqueta HTML

Publicado por fran (73 intervenciones) el 05/03/2019 17:54:47

Buenas uso un webbrooser para sacar datos de una pagina web, pero como puedo sacar el dato de esta etiqueta el dato a sacar es: 15:00

<td class="text-center" style="font-size: 12px !important; line-height: 17.15px !important;">15:00</td>

uso esto pero no me lo reconoce

HORA = WebBrowser1.Document.GetElementById("text-center").InnerText

Espero vuestra ayuda, gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 3.353

Como extraer datos de una etiqueta HTML

Publicado por Phil Rob (1562 intervenciones) el 06/03/2019 09:13:51

Hola,

¿Es todavia el mismo forma de frase?
En este caso, es facil de rehacer la frase sin > ... <.

Ejemplo :

        ' La frase esta copiado en el TextBox1

        Dim InicialFrase As String = TextBox1.Text

        Dim FraseResulta As String

        Dim IndicePrimeroBracked As Integer ' primero >

        Dim IndiceSegundoBracked As Integer ' segundo <

        IndicePrimeroBracked = InicialFrase.IndexOf(">")

        IndiceSegundoBracked = InicialFrase.IndexOf("<", IndicePrimeroBracked)

        FraseResulta = InicialFrase.Substring(0, IndicePrimeroBracked + 1) & InicialFrase.Substring(IndiceSegundoBracked) ' con ><

        MessageBox.Show(FraseResulta)

        FraseResulta = InicialFrase.Substring(0, IndicePrimeroBracked) & InicialFrase.Substring(IndiceSegundoBracked + 1) ' sin ><

        MessageBox.Show(FraseResulta)

Que tenga un buen día ...

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 420

Val: 2

Como extraer datos de una etiqueta HTML

Publicado por fran (73 intervenciones) el 06/03/2019 15:57:41

Buenas gracias por el aporte, pero no se si no me explique bien pero no es lo que busco, voy a poner parte del codigo que utilizo esto para sacar datos de una pagina web:

For Each ETIQUETA As HtmlElement In WebBrowser1.Document.All

    'COGER NOMBRE

    If ETIQUETA.TagName = "A" And ETIQUETA.GetAttribute("href").Contains("/doctor/view/")  Then

        COGER_NOMBRE = LTrim(ETIQUETA.InnerText)

Next

ese codigo me coge los datos de esta etiqueta del HTML de la pagina

<a target="_blank" href="/doctor/view/303">Francisco Gracia</a>

y me saca el dato del nombre del doctor "Francisco Garcia"

Entonces el problema que tengo que no se montar la etiqueta de sacar la HORA en el Form del WebBrooser:

For Each ETIQUETA As HtmlElement In WebBrowser1.Document.All

que seria esta etiqueta

<td class="text-center">15:00</td>

y sacar el dato "15:00"

Espero que me entiendan mejor gracias.

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

Como extraer datos de una etiqueta HTML

Publicado por Phil Rob (1562 intervenciones) el 06/03/2019 16:13:09

Disculpa, no habia comprendido bien ...

Tengo que probar "For Each ETIQUETA As HtmlElement In WebBrowser1.Document.All ..." para mejor comprender.

Quizá, hasta luego ...

Valora esta respuesta

Comentar

Pos: 20

Val: 150

Como extraer datos de una etiqueta HTML

Publicado por Javier (77 intervenciones) el 07/03/2019 17:39:36

No se si te sirva, pero podrías utilizar "parent()" en jquery para ubicar el control y su valor.

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

Como extraer datos de una etiqueta HTML

Publicado por Phil Rob (1562 intervenciones) el 06/03/2019 17:51:58

Clara, no much comprendo ...
Hago un ultimo propongo después no hago tu desperdiciar más tiempo.

Veo que "ETIQUETA As HtmlElement" da solo poco de datos y que no puebe buscar "A", por ejemplo. (cf. Illustration).
HTML1

Ahi, el codigo siguiente no puebe buscar este que tu dese.

Dim COGER_NOMBRE As String

        For Each ETIQUETA As HtmlElement In WebBrowser1.Document.All

            ListBox1.Items.Add(ETIQUETA.TagName)   ' Mi pruebo

            If ETIQUETA.TagName = "A" And ETIQUETA.GetAttribute("href").Contains("/doctor/view/") Then

                COGER_NOMBRE = LTrim(ETIQUETA.InnerText)

            End If

        Next

Pero, el codigo siguiente puebe leer una linea a vez y dar "String".
En String, podemos todo buscar ...

Dim UnaLinea As String

        Dim WDHtml As New StreamReader(WebBrowser1.DocumentStream)

        While WDHtml.Peek > -1

            UnaLinea = WDHtml.ReadLine()

            If UnaLinea.IndexOf("/doctor/view/") > -1 Then

                MessageBox.Show("Buscado")

            End If

            ListBox1.Items.Add(UnaLinea)

        End While

Espero darte una buena idea …

Valora esta respuesta

Comentar

El porque de las cosas. Necesito un guía. Por favor

¿Consulta base de datos sin abrirla? No entiendo