Beiträge von Kleiner

  • Listview Sortierung (geht/geht nicht)

    Hi!


    Ich habe dein beispiel getestet "Funktioniert"

    Spoiler anzeigen
    [autoit]

    #include <GuiListView.au3>

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

    Const $programm = 'Test'

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

    Local $aLi

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

    GUICreate($programm, 500, 250)
    $GuiBut_beenden = GUICtrlCreateButton('Beenden', 5, 5)
    ;$GuiList = GUICtrlCreateListView('Datei|Zuletzt Bearbeitet|Größe', 80, 20, 400, 200, 0x0001, BitOR(0x00000001, 0x00000020, 0x00010000))
    $ListView1 = GUICtrlCreateListView("Spalte1|Spalte2|Spalte3", 24, 72, 798, 626)

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

    GUISetState(@SW_SHOW)
    _GUICtrlListView_SetColumnWidth($ListView1, 0, 400)
    _GUICtrlListView_SetColumnWidth($ListView1, 1, 75)
    _GUICtrlListView_SetColumnWidth($ListView1, 2, 75)

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

    ;GUICtrlCreateListViewItem('A|qwer|zuio', $ListView1)
    ;GUICtrlCreateListViewItem('B|asdf|hjkl', $ListView1)
    ;GUICtrlCreateListViewItem('C|yxcv|vbnm', $ListView1)
    ;_GUICtrlListView_SimpleSort($ListView1, $B_DESCENDING, 3)
    #endregion ### END Koda GUI section ###
    Global $hWndListView = GUICtrlGetHandle($ListView1)
    _GUICtrlListView_RegisterSortCallBack($hWndListView)

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

    For $i = 32 To 54
    $aLi = Chr(Random(32, $i, 1)) & '|' & Chr(Random(32, $i, 1)) & '|' & Chr(Random(98, $i, 1))
    GUICtrlCreateListViewItem($aLi, $ListView1)
    Next

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

    GUISetState()
    Global $hWndListView = GUICtrlGetHandle($ListView1)
    _GUICtrlListView_RegisterSortCallBack($hWndListView)
    Do
    $aktion = GUIGetMsg()
    Switch $aktion
    Case $ListView1
    _GUICtrlListView_SortItems($hWndListView, GUICtrlGetState($ListView1))
    Case $GuiBut_beenden
    ContinueCase
    Case -3
    _GUICtrlListView_UnRegisterSortCallBack($hWndListView)
    Exit
    EndSwitch
    Until 0

    [/autoit]


    Lg Kleiner

  • MausZeiger auf einem Fenster

    Hi!


    So wie er selber schon festgestellt hat die mehrfach anweisung funktioniert nicht

    kommt immer True

    [autoit]


    ConsoleWrite(($size[0] < $mp[0] < $size[2]) and ($size[1] < $mp[1] < $size[3]) & @crlf)

    [/autoit]


    kommt immer False

    [autoit]


    ConsoleWrite(($size[0] < $mp[0] > $size[2]) and ($size[1] < $mp[1] >$size[3]) & @crlf)

    [/autoit]

    Lg Kleienr

  • _FileListToRekursiv Update: 08.07.2011

    Hi !


    Ich kann mir nicht vorstellen warum die suche bei dir nicht Funktioniert.

    Beispiel:

    [autoit]

    #include 'Array.au3'

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

    Local $SuchFile[2] = ['.dat', 'xyz123.dat']

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

    For $i = 0 To 1
    $SuchFileSave = _FileListToRekursiv('D:\', $SuchFile[$i], 3)
    If IsArray($SuchFileSave) Then
    For $e = 1 To $SuchFileSave[0]
    ConsoleWrite('+> Suche nach: ' & $SuchFile[$i] & @TAB & 'Gefunden: ' & $SuchFileSave[$e] & @CR)
    Next
    Else
    ConsoleWrite('!> Kein Fund - Suche nach: ' & $SuchFile[$i] & @CR)
    EndIf
    ;_ArrayDisplay($SuchFileSave)
    Next

    [/autoit]

    Bei mir werden alle Datein auf allen Patitionen gefunden?


    Lg Kleiner

  • _FileListToRekursiv Update: 08.07.2011

    Hi TheDude !


    Versuch es mal so:

    [autoit]

    $FileListe = _FileListToRekursiv("D:\", "xyz123.dat", 3, 0, 0, False)

    [/autoit]

    Ich habe die such beschrieben

    [autoit]

    ;===================================================================================================================================#
    ;Function Name....: _FileListToRekursiv($Path, $Wildc = '*', $iFlag = 0, $iTB = 0, $iIntex = 0, $More = False)
    ;Description......: Auflistung von Dateien u. o. Ordner
    ;$Path............: Pfad
    ;$Wildc...........: ---- > '*' (Standart) Suchbegrif u. o. Wildcards bei Wildcards mit o. suchbegriff $iFlag auf '3' setzen es ist auch
    ; möglich mehrere suchbegriffe zu suchen z.B (*wma,*mp3,*txt) o. (wma,mp3,txt) getrennt mit ',' < -----
    ;$iFlag...........: '0' (Standart) Datein u. Ordner '1' nur Datein '2' nur Ordner --- > '3' um mit suchbegriffen zu suchen wie (*.txt) < ----
    ;$iTB.............: '0' (Standart) für alle Unter-Verzeichnisse
    ;$iIndex..........: '0' (Standard), es fungiert jedes in den Trennzeichen enthaltene Zeichen als Trennmarkierung
    ; '1' es wird der gesamte Trennzeichenstring als Trennmarkierung genutzt
    ; '2' deaktiviert die Rückgabe der Anzahl im ersten Element. Dadurch wird das Array 0-basierend.
    ;$More............: 'False' (Standart) Ein duchlauf dann wird $RAS gelöscht : 'True' Ein Speicher für wiederholten aufruf.
    ; !Wichtig! Bool ist zu verwenden
    ;Return Value(s)..: Array mit den gefundenen Dateien u. o Ordner u. o. Array[0] endhält die anzahl (Fund)
    ;Author(s)........: Kleiner (http://www.autoit.de) # 11.02.2011 00:00 #
    ;====================================================================================================================================#

    [/autoit]

    Lg Kleiner

  • OsterSonntag Berechnen

    Hallo autoBert!

    Ich kenn sie habe mit BugFix Func mein Dienstplan Proc geschrieben

    Zitat

    Aus diesem anlas hab ich mir gedanken gemacht wie hir im Forum vorgestellten Funktionen schlanker zu gestalten.

    es ist wa ein versuch die Berechnung so kurz wie möglich zu halten. ;)

    Lg Kleiner

  • OsterSonntag Berechnen

    Hi Leute.

    Bald ist es wieder so weit Ostern, ganz Deutschland geht auf Eier suche. :rofl:
    Aus diesem anlas hab ich mir gedanken gemacht wie hir im Forum vorgestellten Funktionen schlanker zu gestalten.


    Ostersonntag Berechnen:

    Spoiler anzeigen
    [autoit]

    #include <Date.au3>
    ;===================================================================================================================================#
    ;Function Name....: Ostern($nYear = 0)
    ;
    ;Description......: Berechnung von Ostersonntag, sehr schlanke und kompakter Code
    ;$nYear...........: Jahr angabe
    ;
    ;Return Value(s)..: Ostersonntag Format(YYYY/MM/DD)
    ;
    ;Author(s)........: Kleiner (http://www.autoit.de)
    ;====================================================================================================================================#

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

    Func Ostern($nYear = 0)
    If Not $nYear Then $nYear = @YEAR
    Local $d = Mod(((255 - 11 * (Mod($nYear, 19))) - 21), 30) + 21
    Local $Delta = $d + IIF($d > 48, 1, 0) + 6 - _
    Mod(($nYear + Int($nYear / 4) + $d + IIf($d > 48, 1, 0) + 1), 7)
    Return _DateAdd('d', $Delta, $nYear & '/' & 3 & '/' & 1)
    EndFunc ;==>Ostern

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

    Func IIF($V_Expr, $F_True = True, $F_False = False)
    If $V_Expr Then Return $F_True
    Return $F_False
    EndFunc ;==>IIF

    [/autoit]

    Edit:/ Leider stimmt sie nicht für alle Jahre.
    Ich habe sie getestet für die Jahre 1900 bis 2100 und zwar mit der "Original" Gauß´schen Osterformel. Sie stimmt nicht für die Jahre 1924 1954 1981 1992 2076 und für die Jahre ab 2100.
    Die Gauß´sche Formel ist so komplex, dass man sie kaum als Formel oder Function definieren kann.
    Aber dann sind wir immerhin für die nächsten 65 Jahre noch gut. :rolleyes:

    Lg Kleiner

  • problem: array an dll richtig übergeben

    Guten Morgen!

    Du Arbeitest mit ein Bit-Array = Struktur dann solltest du auch erst die Struktur auslesen in ein Array Speichern o. die Struktur gleich weiter verarbeiten.

    hilfe:

    Spoiler anzeigen
    [autoit]

    DllStructGetData($arrChar, 1)
    DllStructGetData($arrChar, 2)
    ;oder
    For $i = 1 To 255
    ConsoleWrite(DllStructGetData($arrChar, 1, $i) & @CRLF)
    Next

    [/autoit]

    lg Kleiner