regex abfrage

schnibli · 30. Januar 2014, 14:39

Hallo zusammen

Ich filtere folgendermaßen etwas aus einem Quelltext

VB.NET-Quellcode

code.Text = WebBrowser2.DocumentText
Dim s As String = code.Text
Dim r As New System.Text.RegularExpressions.Regex("Bytes: (\d+|\d)")
Dim m As System.Text.RegularExpressions.MatchCollection = r.Matches(s)
Dim lbl = {jan_mb1, feb_mb1, mar_mb1, apr_mb1, mai_mb1, jun_mb1, jul_mb1, aug_mb1, sep_mb1, okt_mb1, nov_mb1, dez_mb1}
For i = 0 To lbl.Length - 1
lbl(i).Text = m(2 * i).ToString.Replace("Bytes: ", "") & " MB"
Next

Der gesuchte Text ist:

Bytes: 1.13 GB

Jedoch kriege ich nur "1" als ergebniss raus und nicht 1.13 GB

RushDen · 30. Januar 2014, 14:43

probiers mal so:

VB.NET-Quellcode

[0-9]+?.[0-9]+?\sGB|[0-9]+?\sGB

schnibli · 30. Januar 2014, 15:14

Die Richtige Zahl wird jetzt zwar ausgegeben danke.

Jedoch erhalte ich die zahl mehrmals

Spoiler anzeigen

Ich bräuchte eine der beiden Blauen zahlen

VB.NET-Quellcode

code.Text = WebBrowser1.DocumentText
Dim s As String = code.Text
Dim r As New System.Text.RegularExpressions.Regex("[0-9]+?.[0-9]+?\sGB|[0-9]+?\sGB")
Dim m As System.Text.RegularExpressions.MatchCollection = r.Matches(s)
Dim lbl = {jan_mb, feb_mb, mar_mb, apr_mb, mai_mb, jun_mb, jul_mb, aug_mb, sep_mb, okt_mb, nov_mb, dez_mb}
For i = 0 To lbl.Length - 1
lbl(i).Text = m(2 * i).ToString.Replace("Bytes: ", "")
Next

Dazu muss ich noch sagen es kann auch mb da stehen :s

RushDen · 30. Januar 2014, 15:17

VB.NET-Quellcode

(?<=title\=\'Bytes: )([0-9]+?.[0-9]+?\s(GB|MB)|[0-9]+?\s(GB|MB))(?=\')

schnibli · 30. Januar 2014, 15:36

Da noch andere werte angezeigt wurde, dachte ich mir ich könnte diese hinausfiltern

VB.NET-Quellcode

code.Text = WebBrowser1.DocumentText
Dim text As String
Dim httpRequest As HttpWebRequest = HttpWebRequest.Create("https://www.youtube.com/watch?v=zXA0qJ-DWok")
Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
Dim httpContent As String = reader.ReadToEnd
text = httpContent
Dim httpcontent1 As String = "123434534534534" & _
"src1=" & code.text & "" & _
"alt1=""Show releasad3453453453545433456"
Dim Startposition1 As Integer = InStr(httpcontent1, "<td> </td>")
If Startposition1 > 0 Then
'wir schneiden die ersten 4 zeichen weg, die wir nicht brauchen:
Startposition1 += 1
httpcontent1 = httpcontent1.Substring(Startposition1)
'Hier jetzt das ende des string suchen, und die sache ist fertig.
Dim Laenge1 As Integer = InStr(httpcontent1, "<td> </td></tr>")
If Laenge1 > 0 Then
'wir fügen ".jpg" wieder hinzu:
Laenge1 -= 1
'Anzeigen von dem link:
code.Text = (httpcontent1.Substring(0, Laenge1))
Else
End If
Else
End If
Dim s As String = code.Text
Dim r As New System.Text.RegularExpressions.Regex("(?<=title\=\'Bytes: )([0-9]+?.[0-9]+?\s(GB|MB)|[0-9]+?\s(GB|MB))(?=\')")
Dim m As System.Text.RegularExpressions.MatchCollection = r.Matches(s)
Dim lbl = {jan_mb, feb_mb, mar_mb, apr_mb, mai_mb, jun_mb, jul_mb, aug_mb, sep_mb, okt_mb, nov_mb, dez_mb}
For i = 0 To lbl.Length - 1
lbl(i).Text = m(2 * i).ToString
Next

jedoch bringt er mir jetzt bei lbl(i) folgenden fehler:
Ein Ausnahmefehler des Typs "System.ArgumentOutOfRangeException" ist in System.dll aufgetreten.

Zusätzliche Informationen: Das angegebene Argument liegt außerhalb des gültigen Wertebereichs.

RodFromGermany · 31. Januar 2014, 07:52

@schnibli:: Ich würde die Controls etwas anders benennen, das erleichtert das Finden.

VB.NET-Quellcode

Dim lbl = {mb_jan, mb_feb, mb_mar, ...

schnibli · 31. Januar 2014, 11:48

wiso sollen die nicht gut bezeichnet sein?

ich denke das Problem liegt hier.
title='Bytes: 0' /></td>
Hier soll er mir "0" ausgeben

RodFromGermany · 31. Januar 2014, 11:59

schnibli schrieb:

wiso sollen die nicht gut bezeichnet sein?

RodFromGermany schrieb:

Ich würde

Ich würde, nicht aber Du sollst.

RushDen · 31. Januar 2014, 16:15

Dann erweiter den Lookbehind/Lookahead das du nur die Zahl wiederkriegst.

schnibli · 2. Februar 2014, 10:09

Dann habe ich das problem, dass ich nicht weis ab wann gb da steht.

RodFromGermany · 2. Februar 2014, 11:18

Was ist

schnibli schrieb:

"try catch as "

Das kenn ich nicht.

schnibli · 10. Februar 2014, 15:00

Ich bin leider immer noch nicht auf die Lösung gekommen -.-

("(?<=title\=\'Bytes: )([0-9]+?.[0-9]+?\s(GB|MB)|[0-9]+?\s(GB|MB))(?=\')") 1 Liest er mir aus und beim nächsten steht MB und da bringt er den Fehler.

schnibli · 21. Februar 2014, 10:25

Hat hier jemand noch eine lösung :s

Derfuhr · 21. Februar 2014, 10:41

Vieleich mal so versuchen:

VB.NET-Quellcode

("(?<=title\=\'Bytes: )([0-9]+?.[0-9]+?\s[A-Z]B|[0-9]+?\s[A-Z]B)(?=\')")

Edit: Nochmal angepasst

schnibli · 21. Februar 2014, 10:46

Dann kommt ebenfalls ein Fehler -.-

"Ein Ausnahmefehler des Typs "System.ArgumentOutOfRangeException" ist in System.dll aufgetreten.

Zusätzliche Informationen: Das angegebene Argument liegt außerhalb des gültigen Wertebereichs."

Spoiler anzeigen

So geht es 12 verschiedene Angaben

Derfuhr · 21. Februar 2014, 10:51

Ich hatte meinen letzen Post nochmal editiert, hatte [A-Z] vorher mit kleinen Buchstaben geschrieben.

Hab das mit deinem neuen Quelltext getestet, hab 2 Matches, 1.18 GB und 813.42 MB

VB.NET-Quellcode

Dim s As String = IO.File.ReadAllText("D:\data.txt")
Dim r As New System.Text.RegularExpressions.Regex("(?<=title\=\'Bytes: )([0-9]+?.[0-9]+?\s[A-Z]B|[0-9]+?\s[A-Z]B)(?=\')")
Dim m As System.Text.RegularExpressions.MatchCollection = r.Matches(s)
For i = 0 To m.Count - 1
MessageBox.Show(m(i).ToString)
Next

schnibli · 21. Februar 2014, 11:02

Code:

VB.NET-Quellcode

Dim s As String = IO.File.ReadAllText("D:\test.txt")
Dim r As New System.Text.RegularExpressions.Regex("(?<=title\=\'Bytes: )([0-9]+?.[0-9]+?\s[A-Z]B|[0-9]+?\s[A-Z]B)(?=\')")
Dim m As System.Text.RegularExpressions.MatchCollection = r.Matches(s)
For i = 0 To m.Count - 1
MessageBox.Show(m(i).ToString)
Next

Fehler:
Bild im Anhang

quellcode:

Spoiler anzeigen

Ich weis nicht was falsch sein könnte

Derfuhr · 21. Februar 2014, 11:04

Wertes du das etwa in einem Timer aus? Das würde die unzähligen MessageBoxen erklären.

schnibli · 21. Februar 2014, 11:12

Achherje das war das Problem, ich hatte einen Timer den ich zu spät beendete ... Nun Funktioniert es mit den Msgboxen
Jeoch noch nicht mit meinen Labels:

VB.NET-Quellcode

Dim s As String = IO.File.ReadAllText("D:\test.txt")
' Dim s As String = code.Text
Dim r As New System.Text.RegularExpressions.Regex("(?<=title\=\'Bytes: )([0-9]+?.[0-9]+?\s[A-Z]B|[0-9]+?\s[A-Z]B)(?=\')")
Dim m As System.Text.RegularExpressions.MatchCollection = r.Matches(s)
Dim lbl = {jan_mb, feb_mb}
For i = 0 To lbl.Length - 1
lbl(i).Text = m(2 * i).ToString.ToArray
Next

Zitat:

Hab den Fehler gefunden:

VB.NET-Quellcode

lbl(i).Text = m(i).ToString

Derfuhr · 21. Februar 2014, 11:15

schnibli schrieb:

m(2 * i)

Ja kein Wunder! 2 Labels 2 Matches aber "To lbl.Length - 1" und "( i * 2)"??? Und was soll das mit dem ".ToArray"

regex abfrage

regex abfrage

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

schnibli schrieb:

RodFromGermany schrieb:

schnibli schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

schnibli schrieb:

Tags

Ähnliche Themen

6 Benutzer haben hier geschrieben