html auswerten ?

[yoda]

Moin,

ich lese eine Webseite mit Adressen von mp3s (Podcast) und speichere sie ab.

Wie kann ich nu die MP3 Files und die Texte dazu extrahieren so das ich sie in ein Columnview schreiben kann ?

es geht um diese Seite : http://www.alximedia.de/radio/

Flotte Grüße

[tux_]

Dafuer eignet sich die Komponente gb.xml.html[1] bestens (s. auch gb.xml[2]). Alle Links in einem HTML-Dokument zu finden, deren URL auf "mp3" endet, ist essentiell ein Dreizeiler. Wenn du sie herunterladen moechtest, kommen mit gb.net.curl noch ein paar Zeilen hinzu: gambas code

Dim u As String = "http://www.alximedia.de/radio/"
Dim c As New HttpClient, s As String
Dim x As New HtmlDocument, h As XmlElement, f, g As String

c.Async = False
c.URL = u
c.Get()
s = Read #c, Lof(c)

x.FromString(s)
For Each h In x.GetElementsByTagName("a", gb.IgnoreCase)
  f = h.GetAttribute("href", gb.IgnoreCase)
  If f Not Ends ".mp3" Then Continue
  f = u &/ f
  c.URL = f
  g = "/tmp" &/ File.Name(f)
  Debug "Downloading";; f;; "->";; g
  c.Get(Null, g)
Next

Der Code ist schrecklich, aber ich bin auch in Eile. Das Projekt liegt nochmal im Anhang.

download-all-mp3s-0.0.1.tar.gz

(11.5 KiB) 456-mal heruntergeladen

[1] http://gambaswiki.org/wiki/comp/gb.xml.html/
[2] http://gambaswiki.org/wiki/comp/gb.xml/