Beiträge von BugFix

Du brauchst nur den letzten EAN? Das geht ganz fix mit RegEx:

#include <File.au3>
$start= TimerInit()
$file = @ScriptDir & '\test_write.txt'

$ret = StringRegExp(FileRead($file), 'EAN-Code: \d+', 3)
ConsoleWrite('letzter EAN-Code: ' & $ret[UBound($ret)-1] & @CRLF)

ConsoleWrite('Zeit: ' & TimerDiff($start) & @CRLF)

Edit:
Und wenn du nur den numerischen Wert möchtest, dann so:

$ret = StringRegExp(FileRead($file), '(?:EAN-Code: )(\d+)', 3)

Und das hier könnte noch etwas schneller sein (hab mal eine Testdatei mit 2,7 MB verwendet [100600 Zeilen], _FileCountLines($file) ist der Zeitfresser. Mit 1,5 GHz braucht es 2,5 sec. bei mir :

Du kannst direkt die letzte Zeile lesen:

#include< File.au3>
$file = 'Dein_Pfad_zur_Log'
$lines = _FileCountLines($file)
MsgBox(0, 'Inhalt letzte Zeile', FileReadLine($file, $lines))

Falls noch ein Zeilenumbruch zusätzlich enthalten ist, kann die letzte Zeile leer sein - dann halt: $lines-1
So kannst du dann in einer Schleife rückwärts die letzten 7 Zeilen deines Log-Blocks auslesen.

Kaum ist man mal ein WE weg - schon hat der GUN Geburtstag.
Also auch von mir nachträglich Alles Gute.

Wer sich mehr für Irrlicht interesiert: A. Percy pflegt im EN-Forum die Au3IrrLicht. http://www.autoitscript.com/forum/index.php?showtopic=70506&view=findpost&p=516602

Kann nicht bestätigt werden.
Das Skript von mir aus Post #4 läuft problemlos unter 3.3.0.0
OS: XP

Zitat von Jam00

Ich hab ein Problem, beide scripte funkzionieren bei mir nicht

He, du bist nun schon so lange dabei. Und dann solch eine magere Fehlerbeschreibung.

Zitat von Greenhorn

Für eine Bildschirmlupe ist AutoIt zu langsam, schätze ich ...

Da hast du dich aber gewaltig verschätzt.
Guckst du hier: https://autoit.de/index.php?page…19322#post19322

Zitat von Mr.Script

[Ps. Noch an BugFix: C:\Programme\AutoIt3.3\SciTe\API\User.Call.tips.api oder so ungefähr lautet der name einer SciTe Datei in der die Benutzer
zusätzliche Befehle und Konstanten eintippen können. Diese werden dann
wenn man ein Script am Screiben ist als einfüg hilfe angeboten.]

Was Calltipps sind, weiß ich.
Ich erstelle sie zu fast all meinen UDF meist gleich mit Skript zur automatischen Ergänzung der calltip.api.

Ich verstehe nur nicht in welchem Zusammenhang Calltipps mit deinem Problem stehen.

Zitat von Mr.Script

und diese dann nur in die API\User.Call.tip.api File von SciTe

Also mit dem Satz kann ich gar nix anfangen. Was willst du denn mit den Calltipps?

Und alles andere erledigt OrganizeIncludes für dich (Analyse des aktuellen Skripts, erforderliche Includes einbinden). Schau dir den Thread von Xenobiologist an, dort ist genau beschrieben, wie du es einrichten mußt.

Mal als Tipp:
Erstelle nicht für jede Versionsänderung deines Skripts einen neuen Thread. Das reißt auch alles aus dem Zusammenhang.
Editiere einfach deinen ersten Post und aktualisiere dort.
Damit die Änderung auch im Portal angezeigt wird, postest du dann in diesem Thread neu: Änderungen..... s. Post 1.

So, nun aber richtig.
Teste mal, ob es alle Gleichungen erfüllt.

ConsoleWrite(_Binom('-2x', '3y') & @CRLF)

Func _Binom($a, $b)
Local $faktorA = Number(StringLeft($a, StringLen($a)-1))
Local $faktorB = Number(StringLeft($b, StringLen($b)-1))
Local $signA = StringRight($a, 1)
Local $signB = StringRight($b, 1)
Local $prod = 2*$faktorA*$faktorB
If $prod > 0 Then $prod = '+' & $prod
Local $2 = Chr(178), $sign = ''
If Not StringInStr($b, '-') Then $sign = '+'
Return '(' & $a & $sign & $b & ')' & $2 & ' = ' & $faktorA^2 & $signA & $2 & ' ' & _
$prod & $signA & $signB & ' +' & $faktorB^2 & $signB & $2
EndFunc

Intervallschachtelung ist doch ein rekursives Aufrufen einer Funktion. Und das kannst du natürlich auch in AutoIt machen. Achte aber darauf, dass die max. Rekursionstiefe nicht überschritten wird.

Zitat von Stilgar

Müßen mußt du nicht.

Da hast du völlig recht.
Als ich am Schreiben meines Posts war, war deiner noch nicht gepostet. Somit hatte ich mich nicht auf deinen (völlig korrekten) Hinweis bezogen. Den Parameter Attach bei _IECreate hatte ich auch nicht bedacht.

Verstehe nicht ganz, was du jetzt möchtest. Soll eine grafische Auflösung der Funktion stattfinden, oder möchtest du ein Ergebnis haben?

Statt: _IECreate() mußt du _IEAttach() verwenden.

Zitat von BigRox

Wenn da mehr als ein Leerzeichen in Folge im Pfad steht

Aus mir unerfindlichen Gründen akzeptiert Windows leider solchen Schwachsinn.
In meinen Pfaden (außer den von Windoof selbst erstellten) wirst du niemals Leerzeichen finden - wozu gibts den Unterstrich?

Habe noch eine weitere Variante mit Ermittlung von Autohide und Ontop hinzugefügt.

Hi,
ich war zwar der Meinung, ich hätte diese Funktion schon mal erstellt - aber ich konnte es nicht mehr finden.
Also somit (evtl. zum zweiten mal) will ich euch nicht davon verschonen.
Mit der Funktion lassen sich Maße und Position der Taskleiste ermitteln.

EDIT 2021-01-21

Ich habe mir die Funktion nochmals vorgesucht und die damaligen Fehler in der 2.ten Version korrigiert. Die Werte für die Anordnung sind jetzt auch konform mit Windows (im Uhrzeigersinn: 0=links, 1=oben, 2=rechts, 3=unten). Alles andere erklärt sich selbst.

;-- TIME_STAMP   2021-01-21 13:19:07   v 0.1


Local $tTB = _GetTaskBarProps(True)

ConsoleWrite( _
'hWnd:     ' & $tTB.hWnd & @CRLF & _
'Autohide: ' & $tTB.autohide & @CRLF & _
'uEdge:    ' & $tTB.uEdge & @CRLF & _
'sEdge:    ' & $tTB.sEdge & @CRLF & _
'Rect:     ' & '[' & $tTB.left & ', ' & $tTB.top & ', ' & $tTB.right & ', ' & $tTB.bottom & ']' & @CRLF)

;===================================================================================================
; Function Name....: _GetTaskBarProps
; Description......: gibt Eigenschaften und Position der Taskbar zurück
; Parameter(s).....: [optional] $_bReturnStruct - Rückgabe als (True) Struktur, (False - Standard) Array
; Return Value(s)..: Array / Struktur mit den Taskbarwerten
;===================================================================================================
Func _GetTaskBarProps($_bReturnStruct=False)
    Local Const $ABM_GETSTATE = 0x4         ; specify the cbSize.
    Local Const $ABM_GETTASKBARPOS = 0x5    ; specify the cbSize.
    Local Const $ABM_GETAUTOHIDEBAR = 0x7   ; specify the cbSize and uEdge. Returns the handle to the autohide appbar

    ; ABM_GETSTATE
    Local Const $ABS_AUTOHIDE = 0x1
    Local Const $ABS_ALWAYSONTOP = 0x2  ; ab Win7 nicht mehr!! --> wenn NICHT $ABS_AUTOHIDE ist es $ABS_ALWAYSONTOP

    ; uEdge - ABM_GETAUTOHIDEBAR
    Local Const $ABE_LEFT = 0
    Local Const $ABE_TOP = 1
    Local Const $ABE_RIGHT = 2
    Local Const $ABE_BOTTOM = 3

    Local $hWndAppBar = DllCall("user32.dll", 'long', "FindWindowA", 'str', "Shell_traywnd", 'str', "")[0]
    Local $iState, $iEdge, $hWnd, $shell32 = DllOpen("shell32")
    Local $tRC = DllStructCreate("struct;int left;int top;int right;int bottom;endstruct")
    Local $tAPPBARDATA = DllStructCreate("dword cbSize;int hWnd;uint;uint uEdge;int left;int top;int right;int bottom;int")
    $tAPPBARDATA.cbSize = DllStructGetSize($tAPPBARDATA)
    $tAPPBARDATA.hWnd = $hWndAppBar

    ; get pos
    $ret = DllCall($shell32, 'int', 'SHAppBarMessage', 'int', $ABM_GETTASKBARPOS, 'ptr', DllStructGetPtr($tAPPBARDATA))
    For $i = 1 To 4
        DllStructSetData($tRC, $i, DllStructGetData($tAPPBARDATA, $i+4))
    Next

    ; get state
    $ret = DllCall($shell32, 'int', 'SHAppBarMessage', 'int', $ABM_GETSTATE, 'ptr', DllStructGetPtr($tAPPBARDATA))
    $iState = $ret[0]

    ; get Edge
    If $iState = $ABS_AUTOHIDE Then
        For $i = 0 To 3
            $tAPPBARDATA.uEdge = $i
            $ret = DllCall($shell32, 'int', 'SHAppBarMessage', 'int', $ABM_GETAUTOHIDEBAR, 'ptr', DllStructGetPtr($tAPPBARDATA))
            $hWnd = $ret[0]
            If $hWnd Then
                $iEdge = $i
                ExitLoop
            EndIf
        Next
        DllClose($shell32)
    Else
        If $tRC.top < 1 And $tRC.left < 1 Then
                If $tRC.bottom > $tRC.right Then $iEdge = 0
                If $tRC.right > $tRC.bottom Then $iEdge = 1
        ElseIf $tRC.top < 1 And $tRC.left > 0 Then
            $iEdge = 2
        Else
            $iEdge = 3
        EndIf
    EndIf

    ; return array or structure: [.hWnd, .autohide(True/False), .uEdge(0..3), .sEdge(left..bottom), .left, .top, .right, .bottom]
    Local $aEdge[] = ['LEFT','TOP','RIGHT','BOTTOM']
    Local $aRet[] = [$hWndAppBar, ($iState = $ABS_AUTOHIDE), $iEdge, $aEdge[$iEdge], $tRC.left, $tRC.top, $tRC.right, $tRC.bottom]
    Local $tRet = DllStructCreate('int hWnd;bool autohide;uint uEdge;char sEdge[' & StringLen($aEdge[$iEdge]) & '];int left;int top;int right;int bottom;')
    For $i = 0 To UBound($aRet) -1
        DllStructSetData($tRet, $i+1, $aRet[$i])
    Next

    Return ($_bReturnStruct ? $tRet : $aRet)
EndFunc  ;==>_GetTaskBarProps

Die alten Versionen belasse ich aber mal im Post.

GE IXI TIM:
Dein Code hat 'nen Fehler.
Wenn $x True ist, kommst du gar nicht erst in die While-Schleife. (While $x = False !!)