Hallo liebe Community,

Ich habe mal eine Frage,

Wie kann ich folgende HTML Daten suchen und in eine Listview einfügen?



Ich möchte aber die mit der MP4 haben.
Da es aber viele href gibt kommt immer das mit dem MPG Format und die will ich aber nicht.
Ich dachte mir das ich das mit einem Index lösen kann aber ich habe den Code nicht mehr von dem Projekt.
Da mein Server einen Kabelbrand hatte sind alle Daten gelöscht worden und jetzt muss ich das alles wieder schreiben.

Danke für eure Antworten

Hi,

ich denke Du müsstest die <a href="Link"> mit .innerText auslesen und nach Download: MP4 suchen!

Um Images, Links oder Src auszulesen kann man dies nehmen:

Morrison schrieb:

Hi,

ich denke Du müsstest die <a href="Link"> mit .innerText auslesen und nach Download: MP4 suchen!

Um Images, Links oder Src auszulesen kann man dies nehmen:

Spoiler anzeigen

VB.NET-Quellcode

1. Public Shared Function GetLinksAbsolute(ByVal Page As String, ByVal BaseUrl As String) As List(Of String)
2. Dim reglinks As String = "<a\b[^>]*>(.*?)</a>"
3. Dim links As MatchCollection = Regex.Matches(Page, reglinks, RegexOptions.IgnoreCase Or RegexOptions.Multiline)
4. Dim LinkList As New List(Of String)
5. Dim rgx As String = "href\s*=\s*[""'].*?[""']"
6. Dim rm As Match
7. Dim hr As String
8. Dim lhr As String
9. For Each mt As Match In links
10. rm = Regex.Match(mt.Value, rgx, RegexOptions.IgnoreCase Or RegexOptions.Multiline)
11. hr = Regex.Replace(rm.Value, "href\s*=\s*[""']", "", RegexOptions.IgnoreCase Or RegexOptions.Multiline)
12. hr = Regex.Replace(hr, "[""']", "")
13. lhr = hr.ToLower
14. If Not lhr.StartsWith("http://") Then
15. If Not lhr.StartsWith("javascript:") Then
16. hr = BaseUrl & hr
17. End If
18. End If
19. LinkList.Add(hr)
20. Next
21. Return LinkList
22. End Function
24. Public Shared Function GetImageSrcAbsolute(ByVal Page As String, ByVal BaseUrl As String) As List(Of String)
25. Dim regImages As String = "<img\b[^>]*>"
26. Dim links As MatchCollection = Regex.Matches(Page, regImages, RegexOptions.IgnoreCase Or RegexOptions.Multiline)
27. Dim SrcList As New List(Of String)
28. Dim hr As String
29. Dim lhr As String
30. For Each mt As Match In links
31. hr = GetSrcParam(mt.Value)
32. lhr = hr.ToLower
33. If Not lhr.StartsWith("http://") Then
34. If Not lhr.StartsWith("javascript:") Then
35. hr = BaseUrl & hr
36. End If
37. End If
38. SrcList.Add(hr)
39. Next
40. Return SrcList
41. End Function
43. Private Shared Function GetSrcParam(ByVal Tag As String) As String
44. Dim rgx As String = "src\s*=\s*[""'].*?[""']"
45. Dim rm As Match
46. Dim hr As String
47. rm = Regex.Match(Tag, rgx, RegexOptions.IgnoreCase Or RegexOptions.Multiline)
48. hr = Regex.Replace(rm.Value, "src\s*=\s*[""']", "", RegexOptions.IgnoreCase Or RegexOptions.Multiline)
49. Return Regex.Replace(hr, "[""']", "")
50. End Function

Ich dachte eher an Regex aber da gibt es mit zuviele Links.
Was ich mal versucht habe ist es mit einem Index zu versuchen aber das läuft iwie nicht so richtig

Hi!

Probier mal folgendes:

Du brauchst eine TextBox und ein Button fürs .Navigate..In die TextBox kommt die URL..mit http://www usw.

Dann brauchst Du natürlich einen WebBrowser1 und eine Listbox. Ich hab zusätzlich nen TabControl womit ich von Quelltext und INet-Seite wechseln kann und eine ComboBox die mir alle Elemente auflistet...aber egal..

Das wichtigste wäre dann das hier:



Und dieses für den Link ( GetSrcParam