' Gambas class file

Public Sub Form_Open()
  Dim feed As String
  Dim reader As Xmlreader
  Dim foundindex As Integer
  Shell "wget 'http://gdata.youtube.com/feeds/api/videos?q=&max-results=3&v=1&orderby=relevance&time=all_time&author=clad672' -O /tmp/wgetfeed.txt &>/dev/null" Wait
  feed = File.Load("/tmp/wgetfeed.txt")

  foundindex = InStr(feed, "a vos questions")
  Debug Mid(feed, foundindex - 10, 50)

  reader = New Xmlreader
  reader.FromString(feed)
  While Not reader.eof
    reader.Read()
    If reader.Node.Name = "#text" Then
      If reader.Node.value Like "*a vos questions*" Then Debug reader.Node.value
    Endif
    If reader.Node.Attributes.count > 0 Then reader.Read()
  Wend
End

--OUTPUT:

FMain.Form_Open.11: 7 répond a vos questions n°1</title><content typ
FMain.Form_Open.18: Clad67 r�pond a vos questions n�1
FMain.Form_Open.18: Clad67 r�pond a vos questions n�1