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 :
Pouvez vous m'aider à régler ce problème qui pourrais m'afficher au final chaque Tags une seule fois ? Merci
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
Partager