Hallo!
Als absolute Anfängerin war ich doch sehr froh das ich hier im Forum einige Code-Zeilen fand die ich einfach per Drag&Drop für mein kleines Projekt verwenden kann...Hoffe das ich kein Copyright verletzt habe
Auf alle Fälle möcht ich mich bedanken, alleine wär ich sicher nicht soweit gekommen wie ich jetzt bin!
Zum Thema:
Ziel dieses Skriptes sollte sein das das Prog alle paar secs auf einer seite den aktuellen Kurs holt, danach soll das ganze in eine zwischen .txt geschrieben werden um ihn nach einem Vergleich in eine .txt datei zu schicken welche nicht nur nach dem aktuellen datum benannt wird sondern zusätzlich noch die Uhrzeit der "Kurs-einholung" enthält.
Für euch "alte" Hasen ist so ein Script wahrscheinlich eine Sache von wenigen Minuten, bei mir dauert das leider schon mehrere Tage oO
Das Problem:
1.
Obwohl "er" den Kurs findet und auch in einer zwischen datei abspeichert, wird dann nicht mehr der aktuelle Kurs geladen sondern der der beim Prog start auf der Seite zu finden war.
2.
Aus einem mir nicht offensichtlichen Grund wird der Kurs nicht von der Zwischendatei in die schlussendliche Datei geladen Das verrückte daran ist, das während der "Entwicklungs-phase" dies noch geschehen ist...leider habe ich seit dort doch schon das ein oder andere abgeändert und sehe nun den Wald vor lauter Bäumen nicht mehr...
Hilfe!!!
der Code:
Spoiler anzeigen
#include <INet.au3>
#include <Array.au3>
#include <String.au3>
#include <Date.au3>
#include <file.au3>
$source = _INetGetSource("http://citiwarrants.onvista.de/snapshot.html?ID_ISSUER_GROUP=56444&ID_NOTATION=14097793"); die gesuchte Zahl ist die oben links im Chart
$found1 = _StringBetween($source, '<span class="s2gb">', "</span>") ;wenn die Zahl grün ist
$found2 = _StringBetween($source, '<span class="s2rb">', "</span>") ;wenn die Zahl rot ist
$file = FileOpen("C:\Dokumente und Einstellungen\Administrator\Desktop\cdax\Daten\"& _NowDate() &".txt", 1)
If $file = -1 Then
_filecreate("C:\Dokumente und Einstellungen\Administrator\Desktop\cdax\Daten\"& _NowDate() &".txt")
Exit
EndIf
$file1 = FileOpen("C:\Dokumente und Einstellungen\Administrator\Desktop\cdax\Daten\1.txt", 1)
If $file1 = -1 Then
_filecreate("C:\Dokumente und Einstellungen\Administrator\Desktop\cdax\Daten\1.txt")
Exit
EndIf
$file2 = FileOpen("C:\Dokumente und Einstellungen\Administrator\Desktop\cdax\Daten\2.txt", 1)
If $file2 = -1 Then
_filecreate("C:\Dokumente und Einstellungen\Administrator\Desktop\cdax\Daten\2.txt")
Exit
EndIf
Func schreiben1()
$iRetCode = _ArrayToClip( $found1, 0 )
FileWriteLine($file1, ClipGet() )
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit]Func schreiben2()
$iRetCode = _ArrayToClip( $found2, 0 )
FileWriteLine($file2, ClipGet() )
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$lesen1 = FileReadLine($file1)
[/autoit] [autoit][/autoit] [autoit]$lesen2 = FileReadLine($file2)
[/autoit] [autoit][/autoit] [autoit]Func max( $lesen1, $lesen2 )
If $lesen1 > $lesen2 Then
return $lesen1
Else
return $lesen2
EndIf
EndFunc
$Count = 1
[/autoit] [autoit][/autoit] [autoit]Do
[/autoit] [autoit][/autoit] [autoit]schreiben1()
[/autoit] [autoit][/autoit] [autoit]schreiben2()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$speichern1 = _ArrayToClip( $found1, 0 )
FileWriteLine($file1, ClipGet() )
$speichern2 = _ArrayToClip( $found2, 0 )
FileWriteLine($file2, ClipGet() )
FileWriteLine($file, max( $lesen1, $lesen2 ))
FileWriteLine($file, _nowtime() )
Sleep(10000)
$count = $count + 1
Until $count > 2
MsgBox(0, "CDAX Auslesen ist", "Fertig!!!!eineins11")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Exit
[/autoit]