Du bist nicht angemeldet.

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

Dodo

Super Moderator

  • »Dodo« ist der Autor dieses Themas

Beiträge: 4 961

Dabei seit: 5. Oktober 2008

Wohnort: Berlin

Hilfreich-Bewertungen: 586

  • Private Nachricht senden

21

Dienstag, 1. September 2009, 07:41

Naja auch einfach eine Gruppe deklarieren

Visual Basic Quellcode

 
1
2
3

Dim RegEx01 As New Regex("\<div id=\""(?<nr>(.*))\""\>(?<string>(.*))\<\/div\>")
Dim Inhalt As String = RegEx01.Match(httpContent).Groups("string").ToString()
Dim Nr As String = RegEx01.Match(httpContent).Groups("nr").ToString()
KEINE VB-FRAGEN ÜBER PN STELLEN!

Wenn du einem Hungernden einen Fisch schenkst, wird er morgen wieder hungrig sein, bringst du ihm das Fischen bei, wird er nie wieder hungrig sein.
Alle Copy & Paste Geber und Forderer, nehmt euch dies zu Herzen!

devilofcrash

Registrierter Benutzer

  • »devilofcrash« ist männlich

Beiträge: 105

Dabei seit: 5. Juli 2009

  • Private Nachricht senden

22

Dienstag, 1. September 2009, 13:09

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim httpRequest As HttpWebRequest = HttpWebRequest.Create("http://domain.de/vb-test/ips.php")
        Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
        Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
        Dim httpContent As String = reader.ReadToEnd

        Dim RegEx01 As New Regex("\<div id=\""nr(?<nr>(.*))\""\>(?<string>(.*))\<\/div\>")
        Dim Inhalt As String = RegEx01.Match(httpContent).Groups("string").ToString()
        Dim nr As String = RegEx01.Match(httpContent).Groups("nr").ToString()

        Dim RegEx02 As New Regex("\<div id=\""host(?<nr>(.*))\""\>(?<string>(.*))\<\/div\>")
        Dim host As String = RegEx02.Match(httpContent).Groups("string").ToString()

        Dim RegEx03 As New Regex("\<div id=\""user(?<nr>(.*))\""\>(?<string>(.*))\<\/div\>")
        Dim user As String = RegEx03.Match(httpContent).Groups("string").ToString()

        Dim RegEx04 As New Regex("\<div id=\""connect(?<nr>(.*))\""\>(?<string>(.*))\<\/div\>")
        Dim connect As String = RegEx04.Match(httpContent).Groups("string").ToString()

        KryptonLabel1.Text = " " & nr
        KryptonLabel2.Text = " " & host
        KryptonLabel3.Text = " " & user
        KryptonLabel4.Text = " " & connect
    End Sub


also das sollte doch nun eig klappen, was ich damit bezwecken will ist einfach, ich möchte ein streamserver auslesen, und es auf dem Programm wiedergeben, sodass es dort mit dem timer alle sec abgerufen wird und aktualisiert wird.

ich habe 4 label´s drauf, aber möchte gern für jede neue zeile, dass ein neues label hinzugefügt würd :( aber so wie ich das im moment hab klappt das anscheind nicht weiß da jemand nen rat?

also die divid´s lauten wiefolgt immer
"nr1", "nr2", uNd so weiter, also mit nr vor de zahl

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »devilofcrash« (1. September 2009, 14:56)

devilofcrash

Registrierter Benutzer

  • »devilofcrash« ist männlich

Beiträge: 105

Dabei seit: 5. Juli 2009

  • Private Nachricht senden

23

Mittwoch, 2. September 2009, 19:14

/push

Dodo

Super Moderator

  • »Dodo« ist der Autor dieses Themas

Beiträge: 4 961

Dabei seit: 5. Oktober 2008

Wohnort: Berlin

Hilfreich-Bewertungen: 586

  • Private Nachricht senden

24

Donnerstag, 3. September 2009, 12:39

Alleine wegen dem Push sträube ich mich fast dir eine antwort zu geben!

Regular Expressions sind eine ziemlich komplizierte angelegenheit - finde ich - und ich habe auch sehr lange rumspielen müssen um diesen von mir vorgestellten Code so hinzubekommen.
Ich weiß jedoch dass man mit RegEx auch Collectionen zurück bekommen kann, heißt also wenn einen Pattern String hast der aus einer HTML Seite allse <a href="???">???</a> raussuchen soll und das auf mehrere Zutrifft gibt es eine Collection (Array). Wie man das aber genau macht müsste ich auch erstmal durch Try and Error rausfinden und ich bin der Meinung ich muss diese Arbeit dir nicht abnehmen. Anstatt zu Pushen kannst du dich ja einfach mal selber dran versuchen. Lese die RexEx Beispiele und so durch, so bin ich auch auf meinen Code gekommen.
KEINE VB-FRAGEN ÜBER PN STELLEN!

Wenn du einem Hungernden einen Fisch schenkst, wird er morgen wieder hungrig sein, bringst du ihm das Fischen bei, wird er nie wieder hungrig sein.
Alle Copy & Paste Geber und Forderer, nehmt euch dies zu Herzen!

cannap

Registrierter Benutzer

Beiträge: 34

Dabei seit: 10. November 2009

  • Private Nachricht senden

25

Dienstag, 10. November 2009, 21:14

Ich weiss letzte antwort vor 68 tagen aber danke

hab da auch noch was gefunden http://www.txt2re.com/

Dodo

Super Moderator

  • »Dodo« ist der Autor dieses Themas

Beiträge: 4 961

Dabei seit: 5. Oktober 2008

Wohnort: Berlin

Hilfreich-Bewertungen: 586

  • Private Nachricht senden

26

Donnerstag, 12. November 2009, 08:01

Hey, die Seite ist GOLDWERT. Danke, ich werde sie in mein ersten Post einbinden!
KEINE VB-FRAGEN ÜBER PN STELLEN!

Wenn du einem Hungernden einen Fisch schenkst, wird er morgen wieder hungrig sein, bringst du ihm das Fischen bei, wird er nie wieder hungrig sein.
Alle Copy & Paste Geber und Forderer, nehmt euch dies zu Herzen!

cannap

Registrierter Benutzer

Beiträge: 34

Dabei seit: 10. November 2009

  • Private Nachricht senden

27

Samstag, 14. November 2009, 16:54

Wenn ich nun mehrer seiten auslesen möchte muss ich dann jedes mal

HttpWebRequest.Create("http://seite1.de")
HttpWebRequest.Create("http://seite2.de") usw..? oder gibts nen anderen weg? evtl. mit Array oder so? hab mich schonmal ein wenig mit array beschäftigt aber weiss nicht genau wie ich da vorgehen muss

Dodo

Super Moderator

  • »Dodo« ist der Autor dieses Themas

Beiträge: 4 961

Dabei seit: 5. Oktober 2008

Wohnort: Berlin

Hilfreich-Bewertungen: 586

  • Private Nachricht senden

28

Donnerstag, 19. November 2009, 07:52

Ich habe hier noch etwas gutes gefunden um eine HTML Seite zu Parsen und direkt Elemente auslesen zu können

http://htmlagilitypack.codeplex.com/

sehr einfach zu handeln und man hat viele Möglichkeiten.
KEINE VB-FRAGEN ÜBER PN STELLEN!

Wenn du einem Hungernden einen Fisch schenkst, wird er morgen wieder hungrig sein, bringst du ihm das Fischen bei, wird er nie wieder hungrig sein.
Alle Copy & Paste Geber und Forderer, nehmt euch dies zu Herzen!

DragonSam

Registrierter Benutzer

  • »DragonSam« ist männlich

Beiträge: 149

Dabei seit: 28. Mai 2009

  • Private Nachricht senden

29

Donnerstag, 19. November 2009, 21:50

Ich habe auch mak eine Frage: Wie kann man auf diese Weise mehrere Zeilen abrufen?

Cannon

Server Elite Geschäftsführer

  • »Cannon« ist männlich

Beiträge: 98

Dabei seit: 15. September 2009

Wohnort: Sinsheim

  • Private Nachricht senden

30

Freitag, 20. November 2009, 09:27

etwas schwiriger für mich

huhu ich hab ne etwas schwirigere nuss zu knacken und zwa hab ich eine Quellcode stelle die mehere daten auszulesen hat hir erst mal der ausschnit:

Quellcode

 
1

<td><font class=default><b>Stream is up at xxx kbps with <B>xxx of xxx listeners (xxx unique)</b></b></td>

nun möchte ich die xxx alle einzelnd auslesen so das ich sie alle in einem anderen label anzeigen kann wie muss ich hier vor gehen danke im Vorraus
Der Kaufmann: 1%

DragonSam

Registrierter Benutzer

  • »DragonSam« ist männlich

Beiträge: 149

Dabei seit: 28. Mai 2009

  • Private Nachricht senden

31

Freitag, 20. November 2009, 19:58

Du schreibst einfach für den ersten String (?<string>(.*)), für den zweiten
(?<string2>(.*)), für den dritten (?<string3>(.*)), usw.

Cannon

Server Elite Geschäftsführer

  • »Cannon« ist männlich

Beiträge: 98

Dabei seit: 15. September 2009

Wohnort: Sinsheim

  • Private Nachricht senden

32

Freitag, 20. November 2009, 20:47

bekomme folgende meldung Der Server hat eine Protokollverletzung ausgeführt.. Section=ResponseStatusLine bei Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
Der Kaufmann: 1%

cannap

Registrierter Benutzer

Beiträge: 34

Dabei seit: 10. November 2009

  • Private Nachricht senden

33

Freitag, 20. November 2009, 21:21

Hi
Also ich habe nun <div>Diesen Text ausgelesen</div> aber das Problem ist Regex Stoppt immer bei <a href="#" links oder so

also im Quelltext steht zB.

Quellcode

 
1

<div>Schaut euch mal das an <a href="#">Hierklicke</a> is geil odeer?


Und in meiner Textbox steht dann nur "Schaut euch mal das an"

Und wenn ich die HTML tags ersetze kann ich ja nix mehr auslesen?

Visual Basic Quellcode

 
1

  Dim auslesen As New Regex("<div class=""article_text"" style=""margin:0;"">(?<meintext>[^""]+)<")


mfg

Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »cannap« (22. November 2009, 18:29)

Cannon

Server Elite Geschäftsführer

  • »Cannon« ist männlich

Beiträge: 98

Dabei seit: 15. September 2009

Wohnort: Sinsheim

  • Private Nachricht senden

34

Montag, 23. November 2009, 11:33

Zitat


ok breucht nochmal eure Hilfe und zwa hab ich im Quelcode diese zeilen

Quellcode

 
1
2
3
4

<li><span class="txt11" id="song1">Fischmarkt Mafia</span></li>
<li><span class="txt11" id="song2">Celebrate the Summer</span></li>
<li><span class="txt11" id="song3">On &#x26; On (Club Mix)</span></li>
<li><span class="txt11" id="song4">The One And Only (Topmodelz Remix)</span></li>

jede zeile hab ich zu

Visual Basic Quellcode

 
1
2
3
4

Dim ipRegExsong1 As New Regex("\<li\>\<span class=""txt11"" id=""song1""\>?<string>(.*))\<\/span\>\<\/li\>")
Dim ipRegExsong2 As New Regex("\<li\>\<span class=""txt11"" id=""song2""\>?<string>(.*))\<\/span\>\<\/li\>")
Dim ipRegExsong3 As New Regex("\<li\>\<span class=""txt11"" id=""song3""\>?<string>(.*))\<\/span\>\<\/li\>")
Dim ipRegExsong4 As New Regex("\<li\>\<span class=""txt11"" id=""song4""\>?<string>(.*))\<\/span\>\<\/li\>")

gemacht aber ich gekomm die Meldung "\<li\>\<span class="txt11" id="song1"\>?<string>(.*))\<\/span\>\<\/li\>" wird analysiert - Zu viele )-Zeichen. was muss ich ändern?

oki Fehler Gefunden ( Vergessen Lessen muss Gelernt sein
Der Kaufmann: 1%

Dacer

Registrierter Benutzer

Beiträge: 8

Dabei seit: 26. November 2009

  • Private Nachricht senden

35

Donnerstag, 26. November 2009, 21:01

Zitat von »DragonSam«

Ich habe auch mal eine Frage: Wie kann man auf diese Weise mehrere Zeilen abrufen?
Hallo Dragonsam,
durch \n kannst du eine Zeile nach unten springen. Sieht dann also so aus:

Visual Basic Quellcode

 
1

 Dim irgendwas_RegEx As New Regex("lalelu (?<string>(.*\n.*)) lalala")


Hab dazu auch gleich mal ne Frage:
Ich lese mehrere Info Daten aus Filmdatenbanken aus. Bei OFDB.de können beim Eintragen der FIlminfos jedoch Zeilenumbrüche mit gespeichert werden. D.h. für mich, dass meine Abfrage einmal nur funktioniert wenn z.B. 2 Zeilenumbrüche mitabfrage (*.\n.*\n), einmal nur, wenn ich 5 Abfrage oder einmal ohne Zeilenumbrüche abfrage. Ich würde aber gerne mit einer Abfrage variabel abfragen können, dass es eben entsprechend viele Zeilenumbrüche abfragt, bis mein definiertes Ende kommt.

Beispiel:

Visual Basic Quellcode

 
1

 Dim plot_RegEx As New Regex("\<\/b\>\<\/b\>\<br\>\<br\>(?<string>(.*\n.*\n.*\n.*\n.*))<\/font\>\<\/p\>")

oder

Visual Basic Quellcode

 
1

 Dim plot_RegEx As New Regex("\<\/b\>\<\/b\>\<br\>\<br\>(?<string>(.*))<\/font\>\<\/p\>")


Hmm hoffe die Frage war verständlich gestellt.
Und achja, ist mein erster Beitrage, bin noch totaler VB.net Anfänger. Also erst mal ein huhuu an alle :P

Gruß Dacer

DragonSam

Registrierter Benutzer

  • »DragonSam« ist männlich

Beiträge: 149

Dabei seit: 28. Mai 2009

  • Private Nachricht senden

36

Donnerstag, 26. November 2009, 21:04

Zitat von »Dacer«

Hallo Dragonsam,
durch \n kannst du eine Zeile nach unten springen. Sieht dann also so aus:

Visual Basic Quellcode

 
1

 Dim irgendwas_RegEx As New Regex("lalelu (?(.*\n.*)) lalala")

Hallo Dacer
Vielen Dank für deine Antwort, doch mein Bruder hat es inzwischen selbst herausgefunden.

MfG Sam

zn-gong

Wilhelmstift

  • »zn-gong« ist männlich

Beiträge: 254

Dabei seit: 14. November 2009

Wohnort: Hamburg

Hilfreich-Bewertungen: 1

  • Private Nachricht senden

37

Freitag, 27. November 2009, 14:12

Frage

künte man das i die XP Sidbar einbinden ein irgend einer stelle. So webdinst Mäßig.
Währe doch intresant :thumbup: :thumbup: :thumbup: :thumbup: :thumbup: :thumbup: :thumbup: :thumbup: :thumbup: :thumbup: :thumbup:
Homepage:[url]http://update.zentrix.co.cc[/url]
ASP.NET Tutorial für Anfänger : http://update.zentrix.co.cc/tutorials/aspnet/

DragonSam

Registrierter Benutzer

  • »DragonSam« ist männlich

Beiträge: 149

Dabei seit: 28. Mai 2009

  • Private Nachricht senden

38

Sonntag, 29. November 2009, 13:41

Weis jemand etwas zur Frage von Dacer? An dem Problem stehe ich nämlich auch gerade.

Mangafreak1995

Anwendungsentwickler

  • »Mangafreak1995« ist männlich

Beiträge: 1 670

Dabei seit: 16. August 2009

Wohnort: /home/usr/

Hilfreich-Bewertungen: 175

  • Private Nachricht senden

39

Sonntag, 29. November 2009, 15:15

ich will mit dem RegEx mein HTML-doc nach einem string durchsuchen lassen der mehrmals vorhanden ist
ich habe vieles ausprobiert aber das lässt sich irgendwie nicht in ein Array umwandeln dass was RegEx findet

und wenn ich das zu einem normalen String konvertiere dann ist dieser leer.

kann mir jmd dabei helfen ?

EDIT:
ich nutze zZ

Visual Basic Quellcode

 
1
2

Dim Array() As String = Ex.Match(Content).Groups("string").ToString.Split("""")
            Dim Ex1 As String = Array(0)


wenn ich jetzt ein href auslese wird bis zum letzten " ausgelesen
ich möchte jetzt zum Beispiel jedes href auslesen

wie mach ich das ?
Gruß Mangafreak

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Mangafreak1995« (29. November 2009, 16:50)

Dacer

Registrierter Benutzer

Beiträge: 8

Dabei seit: 26. November 2009

  • Private Nachricht senden

40

Sonntag, 29. November 2009, 17:38

Zitat von »Dacer«

Hab dazu auch gleich mal ne Frage:
Ich lese mehrere Info Daten aus Filmdatenbanken aus. Bei OFDB.de können beim Eintragen der FIlminfos jedoch Zeilenumbrüche mit gespeichert werden. D.h. für mich, dass meine Abfrage einmal nur funktioniert wenn z.B. 2 Zeilenumbrüche mitabfrage (*.\n.*\n), einmal nur, wenn ich 5 Abfrage oder einmal ohne Zeilenumbrüche abfrage. Ich würde aber gerne mit einer Abfrage variabel abfragen können, dass es eben entsprechend viele Zeilenumbrüche abfragt, bis mein definiertes Ende kommt.

.*
Gruß Dacer
Ok bin jetzt soweit gekommen, dass ich mal auf die Funktion RegexOptions.Singleline gestoßen bin (Zeilenumbrüche werden ignoriert). Mit der kann ich recht gut arbeiten.

Ähnliche Themen

Social Bookmarks