Beiträge von benny159

Danke für deine Antwort. Das kommt wohl davon, wenn man, wie ich noch ein ziemlicher Neuling ist und deshalb alte Codeschnipsel einfach so übernimmt

Hallo zusammen,

ich möchte eine HTML-Quellcode einer Sportwettenseite einlesen um eine Übersicht der aktuellen Partien, sowie die aktuelle Wettquote zu bekommen.
Ich denke man kann dies gut in einem mehrdimensionalem Array machen. Aber derzeit komme ich bei dem einlesen der Mannschaften schon nicht weiter.

Mir werden nämlich keine Teams die ein "ü" im Namen haben ausgegeben - und das obwohl ich die Umlaute schon umwandel.
Aktuell habe ich die Seite der heutigen Spiele in der Türkei im Skript hinterlegt, da es dort ja mehrere Teams mit einem "ü" gibt.

Dies ist übrigens ein veränderter Code von "Friesel", der mir in meinem alten Beitrag schonmal geholfen hat.

Danke schonmal

[autoit]

#include <Array.au3>
#include <String.au3>

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

Global $sHTMLSourceSpieltag, $aAllePartien
$sHTMLSourceSpieltag = InetRead("https://www.xyz", 1)
$sHTMLSourceSpieltag = BinaryToString($sHTMLSourceSpieltag, 1)

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

_AnalyseIt()

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

Func _AnalyseIt()
Local $iPartie, $sHTMLSourcePartie, $aMannschaften, $aAufstellungBlock, $iTeam, $aSpieler, $aMannschaften, $bMannschaften
For $iPartie = 1 To 1
$sHTMLSourcePartie = InetRead('https://www.xyz')
$sHTMLSourcePartie = BinaryToString($sHTMLSourcePartie, 1) ;UMLAUTE!!!
$sHTMLSourcePartie = StringReplace($sHTMLSourcePartie, '&nbsp;', ' ') ;==> "geschützte" Leerzeichen entfernen
;$sHTMLSourcePartie = StringReplace($sHTMLSourcePartie, '&uuml;', 'ü')

$aMannschaften = StringRegExp($sHTMLSourcePartie, 'title="([\wÄäÖöÜüßÁÀáàÉÈéè\-.() ]*)">....<..><..><...><td class="draw1x2"', 3)
_ArrayDisplay($aMannschaften, "Heimmannschaften ")

$bMannschaften = StringRegExp($sHTMLSourcePartie, 'title="([\wÄäÖöÜüßÁÀáàÉÈéè\-.() ]*)">....<..><..><...><td class="hc"><p>', 3)
_ArrayDisplay($bMannschaften, "Auswärtsmannschaften ")

;Als nächstes ein mehrdimensionales Array erstellen um die Begegnungen übersichtlich mit den aktuellen Quoten darszustellen

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

Next
EndFunc
MsgBox(0, "", "Fertig")
Exit

[/autoit]

Krass !! So was geiles. Ich fummel Tagelang an meinem kleinem Code Zeile für Zeile rum und du schüttelst dir das mal so eben viel komfortabler aus dem Ärmel.
Nun werde ich mich mal dran versuchen jede einzelne Zeile wirklich auch selber zu verstehen.

Vielen Dank !

Hallo zusammen,

ich möchte gerne die wöchentlichen Kicker-Spielernoten der Bundesligamannschaften automatisiert in eine Exceldatei mit AutoIt einfügen. Ich habe mir das so vorgestellt:
1. Öffne den Seitenquelltext der jeweilgen Partie
2. Suche dann nach den einzelnen Spielernamen der jeweiligen Mannschaften.
3. Da es sein kann, dass ein Name mehrfach vorkommt, habe ich mir überlegt nach: Spieler + </a> (note) zu suchen. Im Quelltext stehen die Noten z.B. so: Tschauner</a> (3)
4. Wenn der Name vorkommt -> Kopiere die Note. Sonst -> suche den nächsten Namen im Quelltext

Nun komme ich beim Zusammenfügen der einzelnen Namen im Array und dem: </a> (note) nicht weiter.

Kann es sein, dass mein Zusammenfügen von §muster und dem Array garnicht geht ?
Es wäre Super wenn ich die Spieler +Note in eine Textdatei ausgegeben bekommen würde.

Ich hoffe es ist verständlich geschrieben.
Danke schonmal
mfg Ben

[autoit]

#Include <Array.au3>
#Include <file.au3>

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

Dim $spieler[10]
$file = "kader.txt"
$anzahl = _FileCountLines($file)
$line =1
$quelle = BinaryToString(InetRead("http://www.kicker.de/news/fussball/2bundesliga/spieltag/2-bundesliga/2013-14/3/1894589/spielanalyse_fc-st-pauli-18_arminia-bielefeld-10.html", 1), 4)

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

$muster = "\<\/a\>.\(.\)"

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

;Textdatei einlesen
for $i = 1 to $anzahl
$spieler=StringSplit(FileReadLine($file, $line), "6",2)
$line +=1
$muster = $muster + $spieler[0]

MsgBox(0, "", $muster)

;FileWriteline("ausgabe.txt",$spieler[0]) / Diese Zeile zeigt mir, dass sich die korrekten Werte im Array befinden
;Hier muss der befehl hin um nach jedem eintrag im array auf der seite zu suchen.

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

$regexp = StringRegExp($quelle,$muster ,3)

$rest = $anzahl - $i
ToolTip($rest & " lines left")

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

Next

[/autoit]

Hallo zusammen,

ich habe mir ein Skript erstellt, welches Eingaben in eine Suchmaske auf einer Sportseite mit Mausklicks und Tastenkombinationen simuliert die ich ohne Skript manuell ausführen müsste. Desweiteren kopiert dieses Skript dann die Mannschaften und das jeweilige Ergebnis in eine Exceldatei.
Das Problem hierbei ist nun, dass ich mein Skript nun künstlich "verlangsamen" muss und so die "sleep"-Funktion auf fast eine Sekunde einstellen muss damit das Skript sauber ausgeführt werden kann. Wenn ich nun eine ganze Saison abfrage dauert ein Durchlauf mehrere Minuten.

Meine Frage ist nun ob man diese Aktion in irgendeiner Weise beschleunigen kann.
Optimal wäre ein Zugriff auf die Datenbank, die mir die Ergbenisse liefert - aber den habe ich ja nunmal nicht.

Überlegt habe ich auch schon einfach alle Ergebnisse komplett auf einmal in die Exceldatei zu kopieren. Das Problem hierbei ist nun leider, dass alle Daten in einem einzigen Feld landen. So sind die Daten dann wohl unbrauchbar. Gibt es vielleicht ein Plugin für den Browser, dass mir die Tabellenstruktur mitsamt den Ergebnissen von der Internetseite in die Exceldatei kopiert ?

Ich glaube nicht, dass es hierfür überhaupt eine Lösung gibt, aber vielleicht hat ja jemand von euch eine gute Idee.

Danke schonmal für eventuelle Antworten.
Gruß, Benny