HTML Code auslesen und bestimmten Teil anzeigen lassen

Joschy41

Hallo zusammen.
Um es mal genau zu beschreiben:

Ich spiele auf einen Samp Server. Dort gibt es solche Liefermissionen (klick hier). Auf dieser Seite werden allerdings Missionen von Level 1 bis Level 10 angezeigt. Da ich Level 8 bin brauch ich aber nur die und möchte mir die gerne in einer kleinen Übersicht anzeigen lassen. Also muss ich den Quellcode auslesen und "Filtern". Ich habe aber nicht so richtig die Ahnung wie das Funktioniert.

Von mir aus kann es auch in Text ausgegeben werden, z.B. so:

Level 8 - Erfahrung 123 - Verdienst 123$ - Zombotech -> LS Train Station

Wäre schön wenn ihr mir weiter helfen könntet

**alpines**

Das kannst du entweder per

[autoit]

_StringBetween() ;nicht empfehlenswert

[/autoit]

lösen oder viel kreativer und besser durch ein Pattern in

[autoit]

StringRegExp(,,3)

[/autoit]

i2c

Immer wieder zu empfehlen - https://autoit.de/index.php?page…egex#post317297

Schneide zuerst die tbody Elemente heraus und arbeite dich dann Stück für Stück zu en einzelnen Unterelementen vor. Wenn's absolut nichts wird, sind wir ja auch noch da.

Aber einen ernstgemeinten Versuch würden wir schon gerne sehen

**alpines**

Sicherlich die schlechtesten Patterns aller Zeiten aber es erfüllt seinen Zweck:

Spoiler anzeigen

[autoit]

#include <Inet.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

$s = _INetGetSource("http://www.nes-reallife.de/information/trucking")
$a = StringRegExp($s, "<th colspan=""6"" width=""33%"" style=""border-color: #eaeaea;"">(.+?) $(.+?)$", 3)
$b = StringRegExp($s, "<td>Mindestlevel:</td>\n(?:.+?)<td>(\d+)</td>", 3)
$c = StringRegExp($s, "<td>Erfahrung:</td>\n(?:.+?)<td>(\d+)</td>", 3)
$d = StringRegExp($s, "<td>Einkaufspreis:</td>\n(?:.+?)<td>(.+?)</td>", 3)
$e = StringRegExp($s, "<td>Verkaufspreis:</td>\n(?:.+?)<td>(.+?)</td>", 3)
$f = StringRegExp($s, "<td>Laderaum:</td>\n(?:.+)<td>(.+?)</td>", 3)

[/autoit] [autoit][/autoit] [autoit]

_ArrayDisplay($a, "Mission") ;[0]Titel [1]kleiner Titel [2]Titel [3]kleiner Titel...
_ArrayDisplay($b, "Mindestlevel")
_ArrayDisplay($c, "Erfahrung")
_ArrayDisplay($d, "Einkaufspreis")
_ArrayDisplay($e, "Verkaufspreis")
_ArrayDisplay($f, "Laderaum")

[/autoit]

Und um das ganze per Text auszugeben verwendet man einfach das und schaut was bei SciTE unten ausgespuckt wird:

Spoiler anzeigen

[autoit]

#include <Inet.au3>

[/autoit] [autoit][/autoit] [autoit]

$s = _INetGetSource("http://www.nes-reallife.de/information/trucking")
$a = StringRegExp($s, "<th colspan=""6"" width=""33%"" style=""border-color: #eaeaea;"">(.+?) $(.+?)$", 3)
$b = StringRegExp($s, "<td>Mindestlevel:</td>\n(?:.+?)<td>(\d+)</td>", 3)
$c = StringRegExp($s, "<td>Erfahrung:</td>\n(?:.+?)<td>(\d+)</td>", 3)
$d = StringRegExp($s, "<td>Einkaufspreis:</td>\n(?:.+?)<td>(.+?)</td>", 3)
$e = StringRegExp($s, "<td>Verkaufspreis:</td>\n(?:.+?)<td>(.+?)</td>", 3)
$f = StringRegExp($s, "<td>Laderaum:</td>\n(?:.+)<td>(.+?)</td>", 3)

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To UBound($a) / 2 - 1
ConsoleWrite($a[$i] & " (" & $a[$i+1] & ") - " & $b[$i] & " - " & $c[$i] & " - " & $d[$i] & " - " & $e[$i] & " - " & $f[$i] & @CRLF)
Next

[/autoit]

Joschy41

Zitat von alpines

Sicherlich die schlechtesten Patterns aller Zeiten aber es erfüllt seinen Zweck:

Spoiler anzeigen

[autoit]
#include
#include
[/autoit] [autoit][/autoit] [autoit]
$s = _INetGetSource("http://www.nes-reallife.de/information/trucking")
$a = StringRegExp($s, "(.+?) $(.+?)$", 3)
$b = StringRegExp($s, "Mindestlevel:\n(?:.+?)(\d+)", 3)
$c = StringRegExp($s, "Erfahrung:\n(?:.+?)(\d+)", 3)
$d = StringRegExp($s, "Einkaufspreis:\n(?:.+?)(.+?)", 3)
$e = StringRegExp($s, "Verkaufspreis:\n(?:.+?)(.+?)", 3)
$f = StringRegExp($s, "Laderaum:\n(?:.+)(.+?)", 3)
[/autoit] [autoit][/autoit] [autoit]
_ArrayDisplay($a, "Mission") ;[0]Titel [1]kleiner Titel [2]Titel [3]kleiner Titel...
_ArrayDisplay($b, "Mindestlevel")
_ArrayDisplay($c, "Erfahrung")
_ArrayDisplay($d, "Einkaufspreis")
_ArrayDisplay($e, "Verkaufspreis")
_ArrayDisplay($f, "Laderaum")
[/autoit]

Und um das ganze per Text auszugeben verwendet man einfach das und schaut was bei SciTE unten ausgespuckt wird:

Spoiler anzeigen

[autoit]
#include
[/autoit] [autoit][/autoit] [autoit]
$s = _INetGetSource("http://www.nes-reallife.de/information/trucking")
$a = StringRegExp($s, "(.+?) $(.+?)$", 3)
$b = StringRegExp($s, "Mindestlevel:\n(?:.+?)(\d+)", 3)
$c = StringRegExp($s, "Erfahrung:\n(?:.+?)(\d+)", 3)
$d = StringRegExp($s, "Einkaufspreis:\n(?:.+?)(.+?)", 3)
$e = StringRegExp($s, "Verkaufspreis:\n(?:.+?)(.+?)", 3)
$f = StringRegExp($s, "Laderaum:\n(?:.+)(.+?)", 3)
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To UBound($a) / 2 - 1
ConsoleWrite($a[$i] & " (" & $a[$i+1] & ") - " & $b[$i] & " - " & $c[$i] & " - " & $d[$i] & " - " & $e[$i] & " - " & $f[$i] & @CRLF)
Next
[/autoit]

Alles anzeigen

Ich finds schonmal Geil, dass du das so gut und schnell hinbekommen hast. Schön wäre es, wenn man beim öffnen von _ArrayDisplay sagen kann welches level man ist und dann Alle Level z.b. Level 8 angezeigt bekommt. Also alles auf einen blick dann

**alpines**

Nur Lvl 8 oder bis Lvl 8?

Joschy41

Dann nur Level 8

Dass man dann quasi Alle Daten hintereinander von level 8 sieht.

**alpines**

Auch einfach

[autoit]

#include <Inet.au3>

[/autoit][autoit][/autoit][autoit]

$iCurrLvl = 8
$s = _INetGetSource("http://www.nes-reallife.de/information/trucking")
$a = StringRegExp($s, "<th colspan=""6"" width=""33%"" style=""border-color: #eaeaea;"">(.+?) $(.+?)$", 3)
$b = StringRegExp($s, "<td>Mindestlevel:</td>\n(?:.+?)<td>(\d+)</td>", 3)
$c = StringRegExp($s, "<td>Erfahrung:</td>\n(?:.+?)<td>(\d+)</td>", 3)
$d = StringRegExp($s, "<td>Einkaufspreis:</td>\n(?:.+?)<td>(.+?)</td>", 3)
$e = StringRegExp($s, "<td>Verkaufspreis:</td>\n(?:.+?)<td>(.+?)</td>", 3)
$f = StringRegExp($s, "<td>Laderaum:</td>\n(?:.+)<td>(.+?)</td>", 3)

[/autoit][autoit][/autoit][autoit]

For $i = 0 To UBound($a) / 2 - 1
If $b[$i] = $iCurrLvl Then ConsoleWrite($a[$i] & " (" & $a[$i+1] & ") - " & $b[$i] & " - " & $c[$i] & " - " & $d[$i] & " - " & $e[$i] & " - " & $f[$i] & @CRLF)
Next

[/autoit]

Joschy41

Zitat von alpines

Auch einfach
[autoit]
#include
[/autoit] [autoit][/autoit] [autoit]
$iCurrLvl = 8
$s = _INetGetSource("http://www.nes-reallife.de/information/trucking")
$a = StringRegExp($s, "(.+?) $(.+?)$", 3)
$b = StringRegExp($s, "Mindestlevel:\n(?:.+?)(\d+)", 3)
$c = StringRegExp($s, "Erfahrung:\n(?:.+?)(\d+)", 3)
$d = StringRegExp($s, "Einkaufspreis:\n(?:.+?)(.+?)", 3)
$e = StringRegExp($s, "Verkaufspreis:\n(?:.+?)(.+?)", 3)
$f = StringRegExp($s, "Laderaum:\n(?:.+)(.+?)", 3)
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To UBound($a) / 2 - 1
If $b[$i] = $iCurrLvl Then ConsoleWrite($a[$i] & " (" & $a[$i+1] & ") - " & $b[$i] & " - " & $c[$i] & " - " & $d[$i] & " - " & $e[$i] & " - " & $f[$i] & @CRLF)
Next
[/autoit]
Alles anzeigen

Habe das Gefühl, dass ich nichts auf die Reihe bekomme
Wie kann ich das z.b. in einer MsgBox ausgeben lassen?

**alpines**

Das war nicht ganz richtig. Er gibt Level 4 Missionen aus. Muss da war verändern.

// Die Titel sind nicht ganz richtig eingeordnet, daran liegts.

Joschy41

Zitat von alpines

Das war nicht ganz richtig. Er gibt Level 4 Missionen aus. Muss da war verändern.

// Die Titel sind nicht ganz richtig eingeordnet, daran liegts.

Wo hast du jetzt den richtigen Code?

**alpines**

Spoiler anzeigen

[autoit]

#include <Inet.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $iCurrLvl = 8, $iCounter
$s = _INetGetSource("http://www.nes-reallife.de/information/trucking")
$a = StringRegExp($s, "<th colspan=""6"" width=""33%"" style=""border-color: #eaeaea;"">(.+?) $(.+?)$", 3)
$b = StringRegExp($s, "<td>Mindestlevel:</td>\n(?:.+?)<td>(\d+)</td>", 3)
$c = StringRegExp($s, "<td>Erfahrung:</td>\n(?:.+?)<td>(\d+)</td>", 3)
$d = StringRegExp($s, "<td>Einkaufspreis:</td>\n(?:.+?)<td>(.+?)</td>", 3)
$e = StringRegExp($s, "<td>Verkaufspreis:</td>\n(?:.+?)<td>(.+?)</td>", 3)
$f = StringRegExp($s, "<td>Laderaum:</td>\n(?:.+)<td>(.+?)</td>", 3)

[/autoit] [autoit][/autoit] [autoit]

Local $a_[1], $b_[1], $c_[1], $d_[1], $e_[1], $f_[1]

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To UBound($a) / 2 - 1
If $b[$i] = $iCurrLvl Then
Redim $a_[UBound($a_) + 1]
Redim $b_[UBound($b_) + 1]
Redim $c_[UBound($c_) + 1]
Redim $d_[UBound($d_) + 1]
Redim $e_[UBound($e_) + 1]
Redim $f_[UBound($f_) + 1]
$a_[$iCounter] = $a[$i*2] & " - " & $a[$i*2+1]
$b_[$iCounter] = $b[$i]
$c_[$iCounter] = $c[$i]
$d_[$iCounter] = $d[$i]
$e_[$iCounter] = $e[$i]
$f_[$iCounter] = $f[$i]

[/autoit] [autoit][/autoit] [autoit]

$iCounter += 1
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

Redim $a_[UBound($a_) - 1]
Redim $b_[UBound($b_) - 1]
Redim $c_[UBound($c_) - 1]
Redim $d_[UBound($d_) - 1]
Redim $e_[UBound($e_) - 1]
Redim $f_[UBound($f_) - 1]

[/autoit] [autoit][/autoit] [autoit]

_ArrayDisplay($a_, "Mission")
_ArrayDisplay($b_, "Mindestlevel")
_ArrayDisplay($c_, "Erfahrung")
_ArrayDisplay($d_, "Einkaufspreis")
_ArrayDisplay($e_, "Verkaufspreis")
_ArrayDisplay($f_, "Laderaum")

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To UBound($a_) - 1
MsgBox(64, "Mission!", $a_[$i] & " - " & $b_[$i] & " - " & $c_[$i] & " - " & $d_[$i] & " - " & $e_[$i] & " - " & $f_[$i])
Next

[/autoit]

Da ist er. So schlecht programmiert wie nie zuvor!

Joschy41

Zitat von alpines

Spoiler anzeigen

[autoit]
#include
#include
[/autoit] [autoit][/autoit] [autoit]
Local $iCurrLvl = 8, $iCounter
$s = _INetGetSource("http://www.nes-reallife.de/information/trucking")
$a = StringRegExp($s, "(.+?) $(.+?)$", 3)
$b = StringRegExp($s, "Mindestlevel:\n(?:.+?)(\d+)", 3)
$c = StringRegExp($s, "Erfahrung:\n(?:.+?)(\d+)", 3)
$d = StringRegExp($s, "Einkaufspreis:\n(?:.+?)(.+?)", 3)
$e = StringRegExp($s, "Verkaufspreis:\n(?:.+?)(.+?)", 3)
$f = StringRegExp($s, "Laderaum:\n(?:.+)(.+?)", 3)
[/autoit] [autoit][/autoit] [autoit]
Local $a_[1], $b_[1], $c_[1], $d_[1], $e_[1], $f_[1]
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To UBound($a) / 2 - 1
If $b[$i] = $iCurrLvl Then
Redim $a_[UBound($a_) + 1]
Redim $b_[UBound($b_) + 1]
Redim $c_[UBound($c_) + 1]
Redim $d_[UBound($d_) + 1]
Redim $e_[UBound($e_) + 1]
Redim $f_[UBound($f_) + 1]
$a_[$iCounter] = $a[$i*2] & " - " & $a[$i*2+1]
$b_[$iCounter] = $b[$i]
$c_[$iCounter] = $c[$i]
$d_[$iCounter] = $d[$i]
$e_[$iCounter] = $e[$i]
$f_[$iCounter] = $f[$i]
[/autoit] [autoit][/autoit] [autoit]
$iCounter += 1
EndIf
Next
[/autoit] [autoit][/autoit] [autoit]
Redim $a_[UBound($a_) - 1]
Redim $b_[UBound($b_) - 1]
Redim $c_[UBound($c_) - 1]
Redim $d_[UBound($d_) - 1]
Redim $e_[UBound($e_) - 1]
Redim $f_[UBound($f_) - 1]
[/autoit] [autoit][/autoit] [autoit]
_ArrayDisplay($a_, "Mission")
_ArrayDisplay($b_, "Mindestlevel")
_ArrayDisplay($c_, "Erfahrung")
_ArrayDisplay($d_, "Einkaufspreis")
_ArrayDisplay($e_, "Verkaufspreis")
_ArrayDisplay($f_, "Laderaum")
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To UBound($a_) - 1
MsgBox(64, "Mission!", $a_[$i] & " - " & $b_[$i] & " - " & $c_[$i] & " - " & $d_[$i] & " - " & $e_[$i] & " - " & $f_[$i])
Next
[/autoit]

Da ist er. So schlecht programmiert wie nie zuvor!

Alles anzeigen

Vielen Dank! Du bist der Beste
1a Programmiert

**alpines**

Dann noch schnell den Präfix im 1. Post auf [ gelöst ] setzen und alle sind zufrieden.

Joschy41

Mache ich Noch mal 1000 Dank!
Ich hätte es in 1000 Jahren nicht hin bekommen