


Public Sub ParseFeed(Data As String)

    Dim hXML As String
    Dim hRSSItem As RssItem
    Dim picFlag As Picture
    Dim iKey As Integer
    
'-- Der RSS-Feed wird aus einer XML-Datei geladen 
    hXML = File.Load("./tools/ard.xml")
    
'-- Es wird ein neues RSS-Objekt erzeugt
    hRSS = New Rss
    
    'hRSS.FromString(Data)  
    hRSS.FromString(hXML)
    
    picFlag = Picture.Load("./symbols/r.png")    
    aItemURL = New String[]
    
'-- Ausgewählte Item-Eigenschaften werden ausgelesen
    For Each hRSSItem In hRSS
      aItemURL.Add(hRSSItem.Link)
      covView.Add(Str(iKey), "", picFlag)
      'covView[Str(iKey)][1] = Format(hRSSItem.Pub.Date, "dddd, dd.mm.yyyy - hh:nn") & gb.NewLine & hRSSItem.Title & gb.NewLine & W(hRSSItem.Description, 70)
  '-- Alternative im Richtext-Format:
      covView.Item.RichText &= "<b><font size=+1 face=FreeMono color=Black>"
      covView.Item.RichText &= "<br>" & Format(hRSSItem.Pub.Date, "dddd, dd.mm.yyyy - hh:nn")
      covView.Item.RichText &= "</b></font><font size=+0>"
      covView.Item.RichText &= "<br>" & hRSSItem.Title & "<br/>"
      covView.Item.RichText &= "</font>"
      covView.Item.RichText &= W(hRSSItem.Description, 70)
      Inc iKey
    Next
    
     If covView.Count > 0 Then  ' Es existiert mindestens ein Element ...
     covView.MoveFirst()        ' Element markieren (ColumnView ohne Focus: Markierung grau)
     covView.Key = covView.Item.Key
  Endif