Discussion :

[rayzox57]

Bonjour ;
Je me suis lancé sur un petit projet tout simple, en effet mon but serait qu'une fois une adresse vidéo youtube mise dans une textbox1 et appuyée sur un boutton ont puissent afficher tout les tags que la personne à utilisé pour sa vidéo. Tout allez bien jusqu’à que je me constate que tout les tags soient misent en plusieurs exemplaires ... c'est normal ?

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If (WebBrowser1.Document IsNot Nothing) Then
            Dim Elems As HtmlElementCollection
            Dim WebOC As WebBrowser = WebBrowser1
 
            Elems = WebOC.Document.GetElementsByTagName("META")
 
            For Each elem As HtmlElement In Elems
                Dim NameStr As String = elem.GetAttribute("property")
 
                If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then
                    If NameStr.ToLower().Equals("og:video:tag") Then
                        Dim ContentStr As String = elem.GetAttribute("content")
                        TextBox2.Text = TextBox2.Text & vbCrLf & ContentStr
                    End If
                End If
            Next
        End If
    End Sub
End Class

Pouvez vous m'aider à régler ce problème qui pourrais m'afficher au final chaque Tags une seule fois ? Merci

[ACIVE_CS]

Bonjour,
J'ai essayé ton code avec une vidéo au pif et ça fonctionne bien...
J'imagine que tes doublons ont été inscrits au moment de la mise en ligne de la vidéo

Ce que tu peux faire c'est les éviter, quelque chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If (WebBrowser1.Document IsNot Nothing) Then
            Dim Elems As HtmlElementCollection
            Dim WebOC As WebBrowser = WebBrowser1
 
            Elems = WebOC.Document.GetElementsByTagName("META")
 
            For Each elem As HtmlElement In Elems
                Dim NameStr As String = elem.GetAttribute("property")
 
                If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then
                    If NameStr.ToLower().Equals("og:video:tag") Then
                        Dim ContentStr As String = elem.GetAttribute("content")
                        If Not TextBox2.Lines.Contains(ContentStr) Then
                            'VB6 ==> TextBox2.Text = TextBox2.Text & vbCrLf & ContentStr
                            'VB.NET ==>
                            TextBox2.Text &= ContentStr & Environment.NewLine
                        End If
                    End If
                End If
            Next
        End If
    End Sub

[rayzox57]

Bonjour,
J'ai essayé ton code avec une vidéo au pif et ça fonctionne bien...
J'imagine que tes doublons ont été inscrits au moment de la mise en ligne de la vidéo

Ce que tu peux faire c'est les éviter, quelque chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If (WebBrowser1.Document IsNot Nothing) Then
            Dim Elems As HtmlElementCollection
            Dim WebOC As WebBrowser = WebBrowser1
 
            Elems = WebOC.Document.GetElementsByTagName("META")
 
            For Each elem As HtmlElement In Elems
                Dim NameStr As String = elem.GetAttribute("property")
 
                If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then
                    If NameStr.ToLower().Equals("og:video:tag") Then
                        Dim ContentStr As String = elem.GetAttribute("content")
                        If Not TextBox2.Lines.Contains(ContentStr) Then
                            'VB6 ==> TextBox2.Text = TextBox2.Text & vbCrLf & ContentStr
                            'VB.NET ==>
                            TextBox2.Text &= ContentStr & Environment.NewLine
                        End If
                    End If
                End If
            Next
        End If
    End Sub

Merci !!! C'est Parfait comme sa ^^

[rayzox57]

Bonjour,
J'ai essayé ton code avec une vidéo au pif et ça fonctionne bien...
J'imagine que tes doublons ont été inscrits au moment de la mise en ligne de la vidéo

Ce que tu peux faire c'est les éviter, quelque chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If (WebBrowser1.Document IsNot Nothing) Then
            Dim Elems As HtmlElementCollection
            Dim WebOC As WebBrowser = WebBrowser1
 
            Elems = WebOC.Document.GetElementsByTagName("META")
 
            For Each elem As HtmlElement In Elems
                Dim NameStr As String = elem.GetAttribute("property")
 
                If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then
                    If NameStr.ToLower().Equals("og:video:tag") Then
                        Dim ContentStr As String = elem.GetAttribute("content")
                        If Not TextBox2.Lines.Contains(ContentStr) Then
                            'VB6 ==> TextBox2.Text = TextBox2.Text & vbCrLf & ContentStr
                            'VB.NET ==>
                            TextBox2.Text &= ContentStr & Environment.NewLine
                        End If
                    End If
                End If
            Next
        End If
    End Sub

Et si je veut mettre chaque tag dans une listbox je fait comment ^^' ?

[ACIVE_CS]

on peux aussi mettre le résultat dans une lettre et l'envoyer par la poste (mais c'est plus long)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
  If (WebBrowser1.Document IsNot Nothing) Then
            Dim Elems As HtmlElementCollection
            Dim WebOC As WebBrowser = WebBrowser1
 
            Elems = WebOC.Document.GetElementsByTagName("META")
 
            For Each elem As HtmlElement In Elems
                Dim NameStr As String = elem.GetAttribute("property")
 
                If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then
                    If NameStr.ToLower().Equals("og:video:tag") Then
                        Dim ContentStr As String = elem.GetAttribute("content")
                        If Not ListBox1.Items.Contains(ContentStr) Then ListBox1.Items.Add(ContentStr)
                    End If
                End If
            Next
        End If

[rayzox57]

on peux aussi mettre le résultat dans une lettre et l'envoyer par la poste (mais c'est plus long)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
  If (WebBrowser1.Document IsNot Nothing) Then
            Dim Elems As HtmlElementCollection
            Dim WebOC As WebBrowser = WebBrowser1
 
            Elems = WebOC.Document.GetElementsByTagName("META")
 
            For Each elem As HtmlElement In Elems
                Dim NameStr As String = elem.GetAttribute("property")
 
                If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then
                    If NameStr.ToLower().Equals("og:video:tag") Then
                        Dim ContentStr As String = elem.GetAttribute("content")
                        If Not ListBox1.Items.Contains(ContentStr) Then ListBox1.Items.Add(ContentStr)
                    End If
                End If
            Next
        End If

Dernière demande imaginons je lance l'action avec le bouton ... les tags se mettrons dans la listbox
Une fois que cette listbox a les tags je souhaite mettre un autre lien et cliquer a nouveau sur le bouton
l'objectif serait de vider la listbox pour la remplacer par les nouveaux tags .. j'ai chercher sur internet j'ai rien trouver

Merci

[ACIVE_CS]

Re:

"l'objectif serait de vider la listbox pour la remplacer par les nouveaux tags .. j'ai chercher sur internet j'ai rien trouver "

Quand tu tapes 'ListBox1.Items.cl'

Que vois-tu comme proposition dans la liste ??