Hallo liebe Com.
Ich bin derzeit an einem Projekt, bei dem ich den aktuellen Track von zb. hardbase.fm/ auslesen möchte.
Dabei werde ich den Quellcode über System.Net.HttpWebRequest abfragen.
Ausschnitt des Quellcodes
Um jetzt den aktuellen Track auszulesen (im beispiel: Swedish House Mafia - One) habe ich folgendes Programm erstellt.
Bild
Spoiler anzeigen
Aktueller Programmcode
Spoiler anzeigen
Wenn ich nun den derzeitigen Titel auslesen möchte erhalte ich die titel: Swedish House Mafia - One</a
Ich möchte aber den Track ohne </a auslesen.
Weiß jemand wie ich das hinbekomme?
- Manchmal kann ich nichts auslesen weiß jemand wie ich das behebe bzw. woran das liegt ?
Grüße Regular_vb_user
PS: Bin ein Blutiger Anfänger im Thema RegEx
Ich bin derzeit an einem Projekt, bei dem ich den aktuellen Track von zb. hardbase.fm/ auslesen möchte.
Dabei werde ich den Quellcode über System.Net.HttpWebRequest abfragen.
Ausschnitt des Quellcodes
Um jetzt den aktuellen Track auszulesen (im beispiel: Swedish House Mafia - One) habe ich folgendes Programm erstellt.
Bild
<img src="http://s14.directupload.net/images/130119/cx83arp6.jpg" alt="cx83arp6.jpg" title="cx83arp6.jpg" style="font-size: 0.8em;" />
Aktueller Programmcode
VB.NET-Quellcode
- Imports System.Text.RegularExpressions
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.hardbase.fm/")
- Dim response As System.Net.HttpWebResponse = request.GetResponse
- Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
- Dim rssourcecode As String = sr.ReadToEnd
- 'Beispiel des Codes <a href="/release/3124" style="color: #FFFFFF">Swedish House Mafia - One</a>
- Dim r As New System.Text.RegularExpressions.Regex("<a href=""/release/(.*)"" style=(.*)""color: #FFFFFF"">(.*)(.*)</a>")
- Dim matches As MatchCollection = r.Matches(rssourcecode)
- For Each itemcode As Match In matches
- ListBox1.Items.Add(itemcode.Value.Split(">(.*)""(.*)</a>").GetValue(1))
- Next
- End Sub
- Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- TextBox1.Text = ListBox1.SelectedItem
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class
Wenn ich nun den derzeitigen Titel auslesen möchte erhalte ich die titel: Swedish House Mafia - One</a
Ich möchte aber den Track ohne </a auslesen.
Weiß jemand wie ich das hinbekomme?
- Manchmal kann ich nichts auslesen weiß jemand wie ich das behebe bzw. woran das liegt ?
Grüße Regular_vb_user
PS: Bin ein Blutiger Anfänger im Thema RegEx