[VB 2008] Etwas aus dem HTML Quelltext auslesen mit HTTPWebRequest & RegEx

Kangaroo

VB Panda

Beiträge: 2 767

Dabei seit: 13. Juni 2010

Hilfreich-Bewertungen: 256

81

Freitag, 3. September 2010, 21:14

Zitat von »Lawliet«

blöderweise gelangt er direkt zum zweiten ich will nur den am Anfang es gibt 2 der selben nur mit verschiedenen Inhalt.
was kann man da machen?

hmm, vielleicht liegt es daran dass es Freitag ist und/oder ich total erschossen bin, aber ich habe Deinen Beitrag selbst nach wiederholtem Lesen einfach nicht verstanden ...

Zum Seitenanfang

Lawliet

Unknow

Beiträge: 461

Dabei seit: 25. April 2010

Wohnort: Frankfurt

Hilfreich-Bewertungen: 29

82

Freitag, 3. September 2010, 21:20

Sry dann versuche ich es anders zu erklären.

Ich habe einen Quellcode welcher 2 mal
<a href="Inhalt">
enthält, einmal
<a href="Inhalt1"> und das zweite <a href="Inhalt2">

Zu blöd das er jetzt immer direkt auf Inhalt 2 springt, Inhalt 2 ist total unnütz ich benötige Inhalt 1.
2 mal das selbe und mit dem Code von oben kommt er da nicht zurecht, wie kann ich das schaffen?

LG.L

Überarbeitung meines ersten Projektes (Bilder)
Screenshot_1 , Screenshot_2, Screenshot_3

Zum Seitenanfang

Kangaroo

VB Panda

Beiträge: 2 767

Dabei seit: 13. Juni 2010

Hilfreich-Bewertungen: 256

83

Freitag, 3. September 2010, 21:23

Dann liegt das vermutlich wie immer an Deinem Such-Pattern, welcher war das nochmal ?

Zum Seitenanfang

Lawliet

Unknow

Beiträge: 461

Dabei seit: 25. April 2010

Wohnort: Frankfurt

Hilfreich-Bewertungen: 29

84

Freitag, 3. September 2010, 21:27

	Visual Basic Quellcode
1	Dim ipRegEx As New Regex("\<a href=\""(?<string>([a-z.]*))""\>")

Wie bereits gesagt, Inhalt2 wird ausgelesen aber der erste also Inhalt1 nicht.

LG.L

Überarbeitung meines ersten Projektes (Bilder)
Screenshot_1 , Screenshot_2, Screenshot_3

Zum Seitenanfang

jvbsl

Noob

Beiträge: 7 206

Dabei seit: 7. April 2010

Hilfreich-Bewertungen: 397

85

Freitag, 3. September 2010, 21:40

also ich würde hier anstelle von "[a-z.]*" -> ".*?" außerdem musst du auch eine MatchCollection auslesen, wie liest du denn die Inhalte aus?

Ich wollte auch mal ne total überflüssige Signatur:
---Leer---

Zum Seitenanfang

Lawliet

Unknow

Beiträge: 461

Dabei seit: 25. April 2010

Wohnort: Frankfurt

Hilfreich-Bewertungen: 29

86

Freitag, 3. September 2010, 21:49

So wie es in der Anleitung steht bzw in dem Tutorial.

Visual Basic Quellcode

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim httpRequest As HttpWebRequest = HttpWebRequest.Create("http://192.168.178.25")
        Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
        Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
        Dim httpContent As String = reader.ReadToEnd

        txtSourcecode.Text = httpContent

        Dim ipRegEx As New Regex("\<a href=\""(?<string>([a-z.]*))""\>")
        Dim myIP As String = ipRegEx.Match(httpContent).Groups("string").ToString()

        lblIP.Text = "Deine IP: " & myIP

    End Sub

Ich weiß nicht ob mir das was nützt aber die Datei die ich aus dem Quellcode auslesen will ist eine .iso Image Datei.
mit dem was du mir geschrieben hast hat er leider gar nichts anfangen können. wie meinst du das genau?

LG.L

//EDIT
sry das mit dem *.iso war vorübergehend ich hatte dir einen Testversuch gegeben.

Überarbeitung meines ersten Projektes (Bilder)
Screenshot_1 , Screenshot_2, Screenshot_3

Zum Seitenanfang

jvbsl

Noob

Beiträge: 7 206

Dabei seit: 7. April 2010

Hilfreich-Bewertungen: 397

87

Freitag, 3. September 2010, 21:54

statt Match einfach Matches verwenden, somit bekommst du eine MatchCollection:

	Visual Basic Quellcode
1 2 3	For Each m As Match In ipRegEx.Matches(httpContent) MsgBox(m.Groups("string").Value.ToString()) Next

(nur als Beispiel)

Ich wollte auch mal ne total überflüssige Signatur:
---Leer---

Zum Seitenanfang

Lawliet

Unknow

Beiträge: 461

Dabei seit: 25. April 2010

Wohnort: Frankfurt

Hilfreich-Bewertungen: 29

88

Freitag, 3. September 2010, 21:57

Es ändert nur leider nichts, er nimmt weiter hin nur Inhalt 2,
ach ja Inhalt 1 lässt er komplett aus.

Überarbeitung meines ersten Projektes (Bilder)
Screenshot_1 , Screenshot_2, Screenshot_3

Zum Seitenanfang

jvbsl

Noob

Beiträge: 7 206

Dabei seit: 7. April 2010

Hilfreich-Bewertungen: 397

89

Freitag, 3. September 2010, 21:58

hast du auch mal auf meinen Pattern mit ".*?" geändert?

Ich wollte auch mal ne total überflüssige Signatur:
---Leer---

Zum Seitenanfang

Lawliet

Unknow

Beiträge: 461

Dabei seit: 25. April 2010

Wohnort: Frankfurt

Hilfreich-Bewertungen: 29

90

Freitag, 3. September 2010, 22:05

Leider kommt da nicht mal Inhalt2 zu angezeigt.
gar nichts von beiden was bedeutet das überhaupt? .*?

LG.L

Überarbeitung meines ersten Projektes (Bilder)
Screenshot_1 , Screenshot_2, Screenshot_3

Zum Seitenanfang

jvbsl

Noob

Beiträge: 7 206

Dabei seit: 7. April 2010

Hilfreich-Bewertungen: 397

91

Freitag, 3. September 2010, 22:10

. heißt(keine gewähr) jedes Zeichen
* heißt(auch keine gewähr

) merhmals vorkommend
? heißt(wieder keine gwähr) das Match so kurz wie möglich halten

naja RegEx bin ich nicht soo der Held

schreib pls. mal den kompletten Code des RegExs hier hin...

Ich wollte auch mal ne total überflüssige Signatur:
---Leer---

Zum Seitenanfang

Lawliet

Unknow

Beiträge: 461

Dabei seit: 25. April 2010

Wohnort: Frankfurt

Hilfreich-Bewertungen: 29

92

Freitag, 3. September 2010, 22:17

Visual Basic Quellcode

Imports System.Net
Imports System.IO
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 httpRequest As HttpWebRequest = HttpWebRequest.Create("http://192.168.178.25")
        Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
        Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
        Dim httpContent As String = reader.ReadToEnd

        txtSourcecode.Text = httpContent

        Dim ipRegEx As New Regex("\<a href=\""(?<string>([.*?]*))""\>")
        Dim myIP As String = ipRegEx.Match(httpContent).Groups("string").ToString()

        lblIP.Text = "Deine IP: " & myIP

        For Each m As Match In ipRegEx.Matches(httpContent)
            MsgBox(m.Groups("string").Value.ToString())
        Next
    End Sub
End Class

Das ist bis jetzt auch alles, hier mal der HTML Quellcode:

Quellcode

<html><head><title>Generatepage</title></head><body style="background-color: #CCCCCC; font-family: Verdana;"><center><table style="width: 100%; background-color: #EEEEEE; border-width: 1px; border-style: dotted; text-align: center;"><tr>
  <td><font size="+2">Test123</font><br />
    <font size="-2">Testpage123</font></td></tr></table><br />
    <a href="123.iso">Download fertiges Image 123.iso</a><br />
    <a href="close">Schließe befehlsleiste</a>
</center></body></html>

Und die Zeile von 123.iso ändert sich vom System aus immer und immer wieder.
zumindest wenn ich das möchte...

Überarbeitung meines ersten Projektes (Bilder)
Screenshot_1 , Screenshot_2, Screenshot_3

Zum Seitenanfang

jvbsl

Noob

Beiträge: 7 206

Dabei seit: 7. April 2010

Hilfreich-Bewertungen: 397

93

Freitag, 3. September 2010, 22:21

	Quellcode
1	"\<a href=\""(?<string>(.*?))""\>"

genau angucken, die eckigen Klammern hätte ich geschrieben, wenn ich es so gemeint hätte

Trotzdem schön, dass du eigeninitiative zeigst

Ich wollte auch mal ne total überflüssige Signatur:
---Leer---

Zum Seitenanfang

Lawliet

Unknow

Beiträge: 461

Dabei seit: 25. April 2010

Wohnort: Frankfurt

Hilfreich-Bewertungen: 29

94

Freitag, 3. September 2010, 22:25

Thx! wie intelligent von mir

Ich schaue mir das oft zu hastig an, an meinen Augen wird es schon nicht liegen.

Danke schön klappt!
LG.L

Überarbeitung meines ersten Projektes (Bilder)
Screenshot_1 , Screenshot_2, Screenshot_3

Zum Seitenanfang

DerCrack

Registrierter Benutzer

Beiträge: 44

Dabei seit: 2. November 2010

95

Montag, 15. November 2010, 19:46

Hallo, hab auch ne Frage zu den RegExen. Ich möchte aus folgender Zeile

<span class="street street-address">Gustav-Winkler-Str. 48</span>

das "Gustav-Winkler-Str. 48" herausbekommen. Aber ich bekomme immer ">Gustav-Winkler-Str. 48</span>" raus.

Der Suchstring ist wie folgt:

Visual Basic Quellcode

 Dim adresse As New System.Text.RegularExpressions.Regex("<span class=""street street-address"">[^>]*</span>")
        Dim matches As MatchCollection = adresse.Matches(sourcecode)

        For Each itemcode As Match In matches
            tbZKneuStrasseHsnr.Text = (itemcode.Value.Split("""").GetValue(2))
        Next

Bin total ratlos. Vielleicht weiss ja jemand die Lösung?

Besten Dank im Voraus!

Zum Seitenanfang

stevy

Registrierter Benutzer

Beiträge: 7

Dabei seit: 24. Juli 2010

96

Donnerstag, 6. Januar 2011, 01:30

hi jungs habe mich die ganze zeit damit beschäftigt aber weiß mein fehler nicht... hier mal der code vlt könnt ihr mir helfen

und ich will diesen aus diesen code die die grün makierte zeile auslesen

Zitat

<img src="/img/aa_img.php?gnm=F46A334676CA4378E2E69F74AF4CC7B91B49F45738D6D590B99AB659CD08DAE321A2CBA9E761216DC39C79BBB63C756A" width="123" border="0" height="50">

Visual Basic Quellcode

    	Dim httpRequest As HttpWebRequest = HttpWebRequest.Create("")
    	Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
    	Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
    	Dim httpContent As String = reader.ReadToEnd

    	TextBox3.Text = httpContent

    	Dim ipRegEx As New Regex("\<img src=\""(?<string>([a-zA-Z0-9./_?=]*))\"" width=\""123\"" border=\""0\"" height=\""50\""\>")
    	TextBox1.Text = ipRegEx.Match(httpContent).Groups("url").ToString()