Problème programmation en boucle
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:
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