Echtzeit Log

[Moneypulation]

Hallo,

ich hab jetzt lange gegooglet, konnte aber nichts zu einem Echtzeit Log finden. Ich würde nämlich gerne einen Log anzeigen lassen während mein Programm läuft und wenn bestimmte Funktionen ausgeführt werden, will ich so etwas wie _FileWriteLog() ausführen. Ich hab jetzt gesehen wie man das in eine .txt Datei speichert aber ich will dass es in Echtzeit, also während das Programm läuft angezeigt wird. Weiß jemand eine Lösung?

lg money

[butter123]

consolewrite?

[Moneypulation]

Originally Posted by butter123

consolewrite?

Aber das speichert den text doch nur in die Konsole von AutoIt. Wenn ich es ausführe passiert ja nichts

[KDeluxe]

So ganz stimmt das nicht, aber notwendig ist es auch nicht. Du kannst beispielsweise ein RichEdit in deiner GUI verwenden, in welches du immer weitere Log-Zeilen hinzufügst. Parallel dazu kannst du die Zeilen auch mittels FileWriteLine() in eine Datei abspeichern.

[butter123]

ich versteh dein problem nicht. mit filewrite kannstes speichern, mit consolewrite oder guielementen anzeigen.

[Moneypulation]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>

 Local $myedit, $msg

    GUICreate("Meine GUI mit einem Edit-Feld") ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird

    $myedit = GUICtrlCreateEdit("Erste Zeile" & @CRLF, 176, 32, 121, 97, $ES_AUTOVSCROLL + $WS_VSCROLL)

    GUISetState()
	  Send("{END}")

    ; Wird hinzugefügt, 3. Parameter nicht vergessen!
    GUICtrlSetData($myedit, "Zweite Zeile",1)
	GUICtrlSetData($myedit, "Zweite Zeile2", 1)
	GUICtrlSetData($myedit, "Zweite Zeile3", 1)

    ; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
    While 1
        $msg = GUIGetMsg()

        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
    GUIDelete()

Danke für eure Hilfe. Wisst ihr wie ich jetzt noch einen Zeilenumbruch mach?
Ich denke, ich werde einfach diese GUI anzeigen lassen und dann bei bestimmten Funktionen GUICtrlSetData($myedit, "Funktion xy ausgeführt",1) schreiben

Originally Posted by KDeluxe

So ganz stimmt das nicht, aber notwendig ist es auch nicht. Du kannst beispielsweise ein RichEdit in deiner GUI verwenden, in welches du immer weitere Log-Zeilen hinzufügst. Parallel dazu kannst du die Zeilen auch mittels FileWriteLine() in eine Datei abspeichern.

Was genau ist denn ein RichEdit? Google sagt es ist eine UDF aber ich weiß jetzt nicht genau welche Datei das ist

[YatoDev]

Originally Posted by moneypulation

Danke für eure Hilfe. Wisst ihr wie ich jetzt noch einen Zeilenumbruch mach?
Ich denke, ich werde einfach diese GUI anzeigen lassen und dann bei bestimmten Funktionen GUICtrlSetData($myedit, "Funktion xy ausgeführt",1) schreiben



Was genau ist denn ein RichEdit? Google sagt es ist eine UDF aber ich weiß jetzt nicht genau welche Datei das ist

@CRLF -> Carriage return + Linefeed
rich edit ist ein text feld in koda und kann ohne udf genutzt werden

GuiCtrlSetData($Edit,GuiCtrlRead($Edit) & "nächste zeile" & @CRLF)

[Moneypulation]

Originally Posted by »FlutterShy™

@CRLF -> Carriage return + Linefeed
rich edit ist ein text feld in koda und kann ohne udf genutzt werden

GuiCtrlSetData($Edit,GuiCtrlRead($Edit) & "nächste zeile" & @CRLF)

Vielen Dank auch an dich

[lolkop]

Originally Posted by »FlutterShy™

@CRLF -> Carriage return + Linefeed
rich edit ist ein text feld in koda und kann ohne udf genutzt werden

GuiCtrlSetData($Edit,GuiCtrlRead($Edit) & "nächste zeile" & @CRLF)

diese methode eines logs hat einige große nachteile.
der erste nachteil ist, das es kein autoscroling gibt...
bsp:

GUICreate("GUI", 300, 300, Default, Default, 0x10C80000)
GUICtrlCreateEdit("", 5, 5, 290, 290, 0x200844)
For $i=0 To 100
	GUICtrlSetData(-1, GUICtrlRead(-1)&@CRLF&$i&" -> abcdefghijklmnopqrstuvwxyz")
Next
While GUIGetMsg()<>-3
WEnd

eine potentielle lösung hierfür wäre die letzte zeile immer oben einzufügen.

ein viel schlimmerer nachteil aber ist, das bei jeder aktualisierung, stets der gesamte log eingelsen werden muss (was irgendwann im laufe der zeit mit sicherheit für probleme sorgen wird). somit wird mit steigender loggröße nicht nur das aktualisieren länger dauern, sondern irgendwann muss das ganze auch zwangsweise zum totalabsturz führen (spätestens, wenn der log mehr speicher benötigt, als zur verfügung steht)

bsp:

Dim $string
For $i=0 To 10000
	$string &= 'a'
Next
GUICreate("GUI", 300, 300, Default, Default, 0x10C80000)
GUICtrlCreateEdit("", 5, 5, 290, 290, 0x200844)
For $i=0 To 100
	GUICtrlSetData(-1, GUICtrlRead(-1)&@CRLF&$i&" -> "&$string)
Next
While GUIGetMsg()<>-3
WEnd

die einzige lösung für dieses problem wäre in der tat ein wirkliches rich edit, statt des normalen edits zu nutzen.

[Moneypulation]

Originally Posted by lolkop

diese methode eines logs hat einige große nachteile.
der erste nachteil ist, das es kein autoscroling gibt...
bsp:

GUICreate("GUI", 300, 300, Default, Default, 0x10C80000)
GUICtrlCreateEdit("", 5, 5, 290, 290, 0x200844)
For $i=0 To 100
	GUICtrlSetData(-1, GUICtrlRead(-1)&@CRLF&$i&" -> abcdefghijklmnopqrstuvwxyz")
Next
While GUIGetMsg()<>-3
WEnd

eine potentielle lösung hierfür wäre die letzte zeile immer oben einzufügen.

ein viel schlimmerer nachteil aber ist, das bei jeder aktualisierung, stets der gesamte log eingelsen werden muss (was irgendwann im laufe der zeit mit sicherheit für probleme sorgen wird). somit wird mit steigender loggröße nicht nur das aktualisieren länger dauern, sondern irgendwann muss das ganze auch zwangsweise zum totalabsturz führen (spätestens, wenn der log mehr speicher benötigt, als zur verfügung steht)

bsp:

Dim $string
For $i=0 To 10000
	$string &= 'a'
Next
GUICreate("GUI", 300, 300, Default, Default, 0x10C80000)
GUICtrlCreateEdit("", 5, 5, 290, 290, 0x200844)
For $i=0 To 100
	GUICtrlSetData(-1, GUICtrlRead(-1)&@CRLF&$i&" -> "&$string)
Next
While GUIGetMsg()<>-3
WEnd

die einzige lösung für dieses problem wäre in der tat ein wirkliches rich edit, statt des normalen edits zu nutzen.

Das mit dem Scrolling ist mir auch aufgefallen aber ich hab schnell eine Lösung gefunden. Nach jedem Eintrag hab ich _GUICtrlEdit_Scroll ( $Log, $SB_SCROLLCARET ) geschrieben.

Aber mit dem Speicher hast du Recht. Daran hab ich noch garnicht gedacht. Und mein Bot soll für mehrere Stunden einbahnfrei funktionieren.

Danke dir

Edit: Ich werde wohl den Log jede 10-20 Minuten durch einen Timer beenden und wieder neu ausführen. Das hat zum glück keine Auswirkung auf den Bot

[butter123]

wenns sehr auf performance ankommt, schreib dir vllt einen externen log. (nur ne idee, nicht getestet)
sende mit ConsoleWrite an den StdOut stream und benutz eine neue exe um den stream mit StdOutRead auszulesen. Die als CUI anstatt als GUI kompilieren und alles eingelesene wieder mit ConsoleWrite ausgeben. Ich denke dass das Cmd Fenster auf zeilenweises anzeigen von text optimiert ist^^

[alpines]

Originally Posted by butter123

wenns sehr auf performance ankommt, schreib dir vllt einen externen log. (nur ne idee, nicht getestet)
sende mit ConsoleWrite an den StdOut stream und benutz eine neue exe um den stream mit StdOutRead auszulesen. Die als CUI anstatt als GUI kompilieren und alles eingelesene wieder mit ConsoleWrite ausgeben. Ich denke dass das Cmd Fenster auf zeilenweises anzeigen von text optimiert ist^^

Man kann es aber auch derbe auf die Spitze treiben...
FileWrite wird wohl reichen.

[YatoDev]

Originally Posted by moneypulation

Edit: Ich werde wohl den Log jede 10-20 Minuten durch einen Timer beenden und wieder neu ausführen. Das hat zum glück keine Auswirkung auf den Bot

$string darein den text für den log speichern und nur noch GuiCtrlSetData ausführen. z.b. nach 100 einträgen kannst du $string löschen

[Moneypulation]

Originally Posted by »FlutterShy™

$string darein den text für den log speichern und nur noch GuiCtrlSetData ausführen. z.b. nach 100 einträgen kannst du $string löschen

Stimmt, so gehts auch

[butter123]

Originally Posted by alpines

Man kann es aber auch derbe auf die Spitze treiben...
FileWrite wird wohl reichen.

naja 5 minuten arbeit für nen guten log^^

Log:

 Spoiler

PHP Code:

#AutoIt3Wrapper_Change2CUI=y
#include <Constants.au3>
$idProcess = Run("StdOutTest.exe", @ScriptDir, Default, $STDERR_CHILD + $STDOUT_CHILD)
If not $idProcess then Exit

While Sleep(10)
    $sRead = StdOutRead($idProcess)
    If $sRead Then
        If $sRead = "log stop" then Exit
        If $sRead = "log pause" Then
            While Sleep(10)
                If StdoutRead($idProcess) = "log continue" then ExitLoop
            WEnd
        EndIf
        ConsoleWrite($sRead)
    EndIf
WEnd 


Test Funktion:

 Spoiler

PHP Code:

While Sleep(200)
    ConsoleWrite(Random(0,100,1))
WEnd