iframes zählen

dj_peem · 27. April 2014, 18:28

hallo, ich versuche verzweifelt ein programm zu schreiben der mir iframes auf einer webseite zählt ... das sollte im label angezeigt werden

habt ihr vielleicht nen code schnipsel zur hand ?

Wincrash · 27. April 2014, 18:41

vlt. mit Regex

Dim count% = 0
Dim r as new Regex("<iframe>")
for each m as match in r.matches("dein html code") : count+= 1 : next
Debug.Print("IFrames:" & CStr(count)) ' Oder : Label1.Text = "IFrames:" & CStr(count)

Um die Webseite in Text zu konvertieren:

Ist nicht getestet

BlackNetworkBit · 27. April 2014, 18:50

versuche mal das :

Public Function GETHTML(ByVal URL As String) As String
Dim source As String
Try
Dim request As Net.HttpWebRequest = CType(Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
request.Method = Net.WebRequestMethods.Http.Get
Dim response As Net.HttpWebResponse = CType(request.GetResponse, Net.HttpWebResponse)
Dim leser As New IO.StreamReader(response.GetResponseStream())
source = leser.ReadToEnd
Catch ex As Exception
Return ""
End Try
Return source
End Function
Public Function GetAllIframes(ByVal url As String) As Integer
Return GETHTML(url).Split({"</iframe>"}, StringSplitOptions.RemoveEmptyEntries).Length
End Function

Wincrash · 27. April 2014, 18:53

@BlackNetworkBit : in deiner vorletzten Zeile:

dj_peem · 27. April 2014, 19:03

es soll nicht mein quellcode rein sondern das sind zufällige seiten die ich auslesen müsste

BlackNetworkBit · 1. Mai 2014, 12:57

@Wincrash
hmm vergessen

@dj_peem
du kannst z.b das ganze so aufrufen :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Label1.Text = "Die Webseite " & TextBox1.Text & " hat " & GetAllIframes(TextBox1.Text).ToString & " IFrames"
End Sub

Trade · 1. Mai 2014, 12:59

@BlackNetworkBit String.Format wäre schöner.