Visual Basic 6 - Come prelevare link da pagina web?

08/01/12 18:53

Cosa sbaglio???

 Private Sub wb_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        For Each he As HtmlElement In CType(sender, WebBrowser).Document.Links
            Dim sLink As String = he.GetAttribute("href")
            Dim sFind As String = ".com" 
            If sLink.ToLower.IndexOf(sFind.ToLower) > -1 Then

            End If
            If Not ListBox1.Items.Contains(sLink) Then
                ListBox1.Items.Add(sLink)
            End If

        Next
    End Sub

Ultima modifica effettuata da bibimeravilla96 08/01/12 18:55

aaa

08/01/12 20:01

Postato originariamente da bibimeravilla96:

Cosa sbaglio???

 Private Sub wb_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        For Each he As HtmlElement In CType(sender, WebBrowser).Document.Links
            Dim sLink As String = he.GetAttribute("href")
            Dim sFind As String = ".com" 
            If sLink.ToLower.IndexOf(sFind.ToLower) > -1 Then

            End If
            If Not ListBox1.Items.Contains(sLink) Then
                ListBox1.Items.Add(sLink)
            End If

        Next
    End Sub

 Private Sub wb_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        For Each he As HtmlElement In CType(sender, WebBrowser).Document.Links
            Dim sLink As String = he.GetAttribute("href")
            Dim sFind As String = ".com" 
            If sLink.ToLower.IndexOf(sFind.ToLower) > -1 Then
             If Not ListBox1.Items.Contains(sLink) Then
                 ListBox1.Items.Add(sLink)
             End If
            End If
        Next
    End Sub

aaa

08/01/12 20:25

bibimeravilla96

No non funziona comunque mi da lo stesso errore che mi dava prima...senti preferirei comunque fare quello che avevo detto all inizio ovvero di pulire la list box...come si fa allora??

aaa

08/01/12 20:40

Se funziona questo

    For Each he As HtmlElement In CType(sender, WebBrowser).Document.Links
     
          'Assegno alla variabile sLink il testo del link anziché aggiungerlo direttamente alla ListBox
          Dim sLink As String = he.GetAttribute("href").ToString
     
          'Imposto il testo da filtrare
          Dim sFind As String = ".COM"
     
            'IndexOf restituisce la posizione del carattere all'interno della stringa qualora il testo in sFind sia incluso altrimenti restituisce -1
     
          If sLink.ToLower.IndexOf(sFind.ToLower) > -1 Then
            'il testo da cercare è incluso nel testo del link quindi lo aggiungo alla listbox
            ListBox1.Items.Add(sLink)
     
          End If
     
     
          'le funzioni ToLower applicate alle variabili stringa convertono il testo in minuscolo, in questo modo possiamo usare indipendentemente le lettere maiuscole / minuscole per cercare il testo
     
        Next

allora deve funzionare anche questo

    Private Sub wb_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
            For Each he As HtmlElement In CType(sender, WebBrowser).Document.Links
                Dim sLink As String = he.GetAttribute("href")
                Dim sFind As String = ".com"
                If sLink.ToLower.IndexOf(sFind.ToLower) > -1 Then
                 If Not ListBox1.Items.Contains(sLink) Then
                     ListBox1.Items.Add(sLink)
                 End If
                End If
            Next
        End Sub

quel'è l'errore segnalato? Questo pierotofy.it/pages/extras/forum/… o altro?
Comunque, per pulire la listbox, dotnethell.it/forum/….

aaa

08/01/12 20:46

bibimeravilla96

No non è proprio un errore ma praticamente non mi filtra piu i risultati...ma mi cerca tutti i link della pagina...comunque quello di ripulire i link lo avevo gia visto e non l ho capito....

aaa

09/01/12 10:35

ampeg

Postato originariamente da bibimeravilla96:

No non è proprio un errore ma praticamente non mi filtra piu i risultati...ma mi cerca tutti i link della pagina...comunque quello di ripulire i link lo avevo gia visto e non l ho capito....

invece che usare il metodo "Contains" della ListBox, prova usare il FindStringExact

If sLink.ToLower.IndexOf(sFind.ToLower) > -1 Then

  'restituisce -1 se non viene trovata la stringa e la aggiunge alla listbox
  If ListBox1.FindStringExact(sLink) = -1 Then
  
    ListBox1.Items.Add(sLink)

  End If

End If

Ultima modifica effettuata da ampeg 09/01/12 10:36

aaa

09/01/12 14:07

bibimeravilla96

Grazie mille perfettissimo proprio quello che cercavo...... :k: