Mensajes

Hola amigo(s) , quisiera su ayuda para extraer el texto de una web .. les explico
Estoy haciendo un traductor usando el traductor de google  pero tengo problemas para sacar el texto traducido  , en lugar de texto traducido solo me muestra parte del codigo fuente   

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

    Private Sub Traductor_Button_Click(sender As Object, e As EventArgs) Handles Traductor_Button.Click
        Try
            Dim MIHTML As String = WebBrowser1.DocumentText
            Dim Traduccion As String = WebUtility.HtmlDecode(MIHTML) 'PARA EVITAR PROBLEMAS CON LOS ACUTE,TILDE, ETC.
            Traduccion = Traduccion.Remove(0, Traduccion.IndexOf("class" & """" & "hps") + 10)
            Traduccion = Traduccion.Substring(0, Traduccion.IndexOf("</span"))
            TextBox2.Text = Traduccion
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        WebBrowser1.Navigate("https://translate.google.com/#auto/es" & TextBox1.Text)

    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        WebBrowser1.Document.GetElementById("source").SetAttribute("value", TextBox1.Text)
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class


Tmbn tengo este problema, algunas veces funciona normal  y otras me sale este error 

[ListBox]

Usa las etiquetas para insertar código, es una norma del foro.



Debes modificar los espacios por guiones bajos (también deberías tratar de realizar una comparación ignorando mayusculas/minusculas), así, funciona:

Código (vbnet) [Seleccionar] Expandir

...
If etiqueta.OuterHtml.ToLower.Contains(String.Format("http://submanga.com/{0}/", "Gakuen Heaven".ToLower.Replace(" "c, "_"c))) Then
...

Saludos!

Muchas gracias amigo Electro , me ha funcionado 

Disculpa y si quisiera poner el nombre del capitulo en lugar de la url ? pero que al clickear el nombre me lleve a la url del capitulo

Programe el ListBox para que al clickear el link se abra en un WebBrowser

Código (vbnet) [Seleccionar] Expandir


Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
      Navegador.WebBrowser1.Navigate(ListBox1.SelectedItem)
      Navegador.Show()
End Sub


Actualmente en el ListBox se me muestra asi

Ejemplo :
http://submanga.com/Gakuen_Heaven/23/244316
http://submanga.com/Gakuen_Heaven/22/243793
http://submanga.com/Gakuen_Heaven/21/243638
http://submanga.com/Gakuen_Heaven/20/243383

Pero quiero que se me vea asi

Ejemplo :
Gakuen Heaven 23
Gakuen Heaven 22
Gakuen Heaven 21
Gakuen Heaven 20

Que deberia añadir o modificar?

[http://submanga.com/nombre_del_manga/completa]

Hola amigos , soy principiante en esto , y quisiera su ayuda por favor.
Lo que quiero hacer es extraer todas las url de los capitulos de un manga buscado en esta web " submanga.com " y que se muestren en un ListBox en el orden que estan , masomenos asi :

http://submanga.com/Gakuen_Heaven/23/244316
http://submanga.com/Gakuen_Heaven/22/243793
http://submanga.com/Gakuen_Heaven/21/243638
http://submanga.com/Gakuen_Heaven/20/243383
etc.....

Para esto cree un TEXTBOX en el cual introduzco el nombre del manga que quiero y un BUTTON que realiza la busqueda en un webbrowser asi
" http://submanga.com/nombre_del_manga/completa "

=====Hasta aqui todo bien======

El problema es en la busqueda de los url .... en el LISTBOX me botan varias url menos la de los capitulos
Por ejemplo , si busco el manga "Gakuen Heaven" me sale así en el ListBox

http://submanga.com/Gakuen_Heaven
http://submanga.com/Gakuen_Heaven/completa
http://submanga.com/Gakuen_Heaven/scanlation
etc.... y varias url similares pero menos la de los capitulos

WebBrowser1

Código (vbnet) [Seleccionar] Expandir

   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Try
           For Each ETIQUETA As HtmlElement In WebBrowser1.Document.All
               If ETIQUETA.TagName = "A" Then
                   If ETIQUETA.OuterHtml.Contains("http://submanga.com/" & TextBox4.Text & "/") Then
                       Try
                           Dim MIURL As String = ETIQUETA.OuterHtml
                           MIURL = MIURL.Remove(0, MIURL.IndexOf("href=") + 6)
                           MIURL = MIURL.Substring(0, MIURL.IndexOf(">") - 1)
                           ListBox1.Items.Add(MIURL)
                       Catch ex As Exception
                       End Try
                   End If
               End If
           Next
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

Si no fuera mucha molestia , me podrían decir que parte esta mal