Hallo Forum,
ich brauche mal wieder euren Rat.
Ich möchte mit meinem Programm Dateien von einer Internetseite runterladen. (Es geht hierbei um Custom-Maps für das Spiel Warcraft 3)
Den Download für eine einzelne Datei hab ich auch schon hinbekommen.
Jetzt möchte ich aber mehrere Dateien herunterladen.
Ich kriege mit einer ersten ForEach - Schleife die unterschiedlichen Downloadlinks und schreibe diese in eine Listbox.
Mit einer zweiten ForEach - Schleife kriege ich die Dateinamen und schreibe die ebenfalls in eine Listbox.
Mein Problem ist jetzt wie ich die Strings der URL und des Dateinamen an die Downloadprozedur übergeben kann.
Mit dieser Prozedur ermittel ich die Daten:
Spoiler anzeigen
ich brauche mal wieder euren Rat.
Ich möchte mit meinem Programm Dateien von einer Internetseite runterladen. (Es geht hierbei um Custom-Maps für das Spiel Warcraft 3)
Den Download für eine einzelne Datei hab ich auch schon hinbekommen.
Jetzt möchte ich aber mehrere Dateien herunterladen.
Ich kriege mit einer ersten ForEach - Schleife die unterschiedlichen Downloadlinks und schreibe diese in eine Listbox.
Mit einer zweiten ForEach - Schleife kriege ich die Dateinamen und schreibe die ebenfalls in eine Listbox.
Mein Problem ist jetzt wie ich die Strings der URL und des Dateinamen an die Downloadprozedur übergeben kann.
Mit dieser Prozedur ermittel ich die Daten:
VB.NET-Quellcode
- Sub FindHrefs(ByVal inputString As String) 'Es wird eine Internetseite mit einer Liste von herunterladbaren Dateien übergeben
- Try
- Dim sURLPrefix As String = "http://www.epicwar.com"
- 'Downloadlink ermitteln
- For Each match1 As Match In Regex.Matches(inputString, ""href=""(?<url>/maps/download/.*?)"")
- lstLinkList.Items.Add(match1.Groups("url").Value)
- Next
- 'Dateinamen ermitteln
- For Each match2 As Match In Regex.Matches(inputString, ""(>[a-zA-Z0-9\[\].\)\(\s_-]*?\.w3[mx]?)"")
- Dim c1 = match2.Groups(1)
- ListBox1.Items.Add(c1.ToString().Remove(0, 1))
- Next
- 'Downloadprozedur rufen
- 'dldNewMaps(sURLPrefix & @Downloadlink, My.Settings.PathNewUnknownMap & "@Name")
- Label1.Text = "Gefunden: " & lstLinkList.Items.Count.ToString
- Label2.Text = "Gefunden: " & ListBox1.Items.Count.ToString
- Catch ex As Exception
- MsgBox(ex.ToString)
- End Try
- End Sub