Beiträge von Oscar

  • aufnamefähigkeit der editbox

    Das Limit scheint standardmäßig auf max. 30.000 Zeichen gesetzt zu sein. Stell es einfach höher:

    Spoiler anzeigen
    [autoit]


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

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

    Opt('MustDeclareVars', 1)

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

    Example()

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

    Func Example()
    Local $file, $btn, $msg

    GUICreate("", 420, 820)
    $file = GUICtrlCreateEdit("", 10, 5, 400, 800)
    GUICtrlSetLimit(-1, 1000000) ; hier einstellen
    GUISetState()

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

    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
    $msg = GUIGetMsg()
    WEnd

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

    MsgBox(4096, "drag drop file", GUICtrlRead($file))
    EndFunc ;==>Example

    [/autoit]

  • _MultiFileCopy

    Hallo Alina!

    Danke für's testen.
    Nach einigem rumprobieren habe ich nun noch festgestellt, dass die Probleme bei großen Dateien (z.B. CD-Images) auftreten. Wenn ich nur kleine Dateien (alle so 10 MB) kopiere, dann tritt der Fehler nicht auf.
    Aber wie bereits gesagt: Nur beim kopieren im Netz! Von lokaler Platte auf eine lokale Platte funktioniert es tadellos.


    Das mit dem Abbrechen ist hingegen gerade bei kleinen Dateien ein Problem, weil dann wohl die Abfrage zu schnell stattfindet und man somit nicht den "richtigen" Zeitpunkt erwischt. Bei größeren Dateien (wo die Progressbar für die einzelne Datei länger läuft) funktioniert das Abbrechen (bei mir) allerdings einwandfrei. Ist das bei Dir anders?

  • Textdatei erste Zeile entfernen

    Dabei würde das Script doch gar nicht abbrechen, weil StringSplit doch trotzdem ein Array zurückgibt.
    Einen Abbruch gibt es doch nur bei einer Leerzeile, aber dann könnte man das so schreiben:

    Spoiler anzeigen
    [autoit]


    #include <array.au3>
    #include <date.au3>
    #include <String.au3>
    #include <File.au3>
    #include <Array.au3>
    Dim $hash

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

    $file_2 = "c:\PG_konv.txt"

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

    $go3 = FileOpen($file_2, 0)

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

    If $go3 = -1 Then
    MsgBox(0, "", "Fehler bei der Datei")
    EndIf

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

    While 1
    $line_2 = FileReadLine($go3)
    If @error Then ExitLoop
    $hash = StringSplit($line_2, '^')
    If UBound($hash) > 2 Then
    $user = $hash[1]
    $bytes = $hash[2]
    ConsoleWrite($user & @CRLF)
    ConsoleWrite($bytes & @CRLF)
    EndIf
    WEnd

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

    FileClose($go3)

    [/autoit]

  • _MultiFileCopy

    BugFix : Kann ich nicht nachvollziehen. Bei mir funktioniert die Anzeige beim kopieren mit dem Explorer ganz normal (vom Netzwerklaufwerk auf's Lokale Laufwerk und umgekehrt). Habe ich gerade mal getestet, weil ich ja sonst immer den TotalCommander dafür benutze. :)

    Ich hab auch schon versuchsweise, die Zeilen zum Abbrechen aus meinem Script entfernt, aber das Problem bleibt. ?(

  • gui hilfe

    Wenn Du Deine GUI erstellt hast, dann einfach in der MessageLoop-Schleife ein Case für den "Mehr"-Button einfügen:

    [autoit]


    Switch GUIGetMsg()
    Case $mehr
    GUICtrlCreateInput('', [left], [top], [width], [height])
    [...]
    EndSwitch

    [/autoit]

    Die Werte bei GUICtrlCreateInput entsprechend anpassen. Besonders den Wert für [top] jedesmal erhöhen, damit das neue Inputfeld unter den anderen erscheint.

  • _MultiFileCopy

    Netzwerkfreigabe! Habe ich gerade mal getestet. Das stimmt!
    Dabei gibt es ein Problem: Das Script kopiert zwar im Hintergrund weiter, aber das Fenster wird nach kurzer Zeit nicht mehr refresht (siehe Screenshot). ?(
    Wobei das nur beim kopieren über's Netz passiert (egal ob Laufwerksbuchstabe oder Pfad und egal ob Quelle oder Ziel).

    Screenshot:
    AutoItImage.GIF

    Vielleicht kann sich das einer unserer DLL-Profis mal ansehen?

  • _MultiFileCopy

    Ich kann das nicht nachvollziehen. Ich kann das Fenster verschieben, während das Programm Dateien kopiert.

    Beschreibe doch mal genauer, was Du kopierst und was Du dann machst oder machen willst, was nicht funktioniert.

  • _MultiFileCopy

    Wenn Du in der Zeile:

    [autoit]

    $aMFC[0] = GUICreate('FileCopy', 480, 220, -1, -1, $WS_POPUPWINDOW)

    [/autoit]

    hinten das ", $WS_POPUPWINDOW" löschst, dann kannst Du das Fenster auch verschieben/minimieren.

  • DVD Archiv

    Ich habe das Script um eine Sortierfunktion erweitert und noch einen kleinen Bug (beim laden der Datenbank) beseitigt:

    Spoiler anzeigen
    [autoit]


    #include<GuiListView.au3>
    #include<Array.au3>
    #include<GUIConstantsEx.au3>
    #include<ListViewConstants.au3>

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

    ;Form1
    $Form1 = GUICreate("DVD Archiv", 1034, 716, 195, 112)

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

    ;Auswahl
    $ListView1 = GUICtrlCreateListView("Film | Staffel | Genre | Darsteller | Beschreibung", 0, 54, 1033, 641, $LVS_SHOWSELALWAYS)
    Global $iLVState = GUICtrlGetState($ListView1), $iOldLVState = $iLVState

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

    Global $aDVD[1][5] ;das Array, in dem das Archiv gespeichert wird
    Global $iDVDCounter = 0 ;Zähler, für die Anzahl der DVDs
    Global $sFilename = @ScriptDir & '\DVD-Archiv.txt' ;Dateiname der 'Datenbank'

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

    If FileExists($sFilename) Then _LoadDVDs()

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

    _GUICtrlListView_SetItemCount($ListView1, $iDVDCounter + 1) ;Platz reservieren im Listview
    _GUICtrlListView_AddArray($ListView1, $aDVD) ;das Array im Listview anzeigen
    $Button3 = GUICtrlCreateButton("Markierte Einträge löschen", 25, 25, 180, 20)

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

    ;Menü
    $MenuItem1 = GUICtrlCreateMenu("Datei")
    $MenuItem3 = GUICtrlCreateMenuItem("Neuer eintrag", $MenuItem1)
    $MenuItem4 = GUICtrlCreateMenuItem("Suche", $MenuItem1)
    $MenuItem2 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
    $MenuItem5 = GUICtrlCreateMenu("Hilfe")
    $MenuItem6 = GUICtrlCreateMenuItem("Hilfe", $MenuItem5)

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

    ;Form2
    $Form2 = GUICreate("Neuer Eintrag", 611, 544, 194, 118)

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

    $Label1 = GUICtrlCreateLabel("Film", 8, 32, 22, 17)
    $Label2 = GUICtrlCreateLabel("Staffel", 8, 64, 34, 20)
    $Label3 = GUICtrlCreateLabel("Genre", 8, 96, 33, 20)
    $Label4 = GUICtrlCreateLabel("Darsteller", 8, 128, 48, 20)
    $Label5 = GUICtrlCreateLabel("Beschreibung", 8, 160, 69, 20)

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

    Global $aInput[5]
    $aInput[0] = GUICtrlCreateInput("", 96, 24, 449, 21)
    $aInput[1] = GUICtrlCreateInput("", 96, 56, 449, 21)
    $aInput[2] = GUICtrlCreateInput("", 96, 88, 449, 21)
    $aInput[3] = GUICtrlCreateInput("", 96, 120, 449, 21)
    $aInput[4] = GUICtrlCreateEdit("", 96, 160, 449, 321)

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

    $Button1 = GUICtrlCreateButton("Speichern", 136, 504, 113, 20)
    $Button2 = GUICtrlCreateButton("Beenden", 8, 504, 113, 20)

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

    ;Form3
    $Form3 = GUICreate("Suche", 479, 185, 193, 125)

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

    $Label1 = GUICtrlCreateLabel("Suche", 8, 56, 35, 20)

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

    GUICtrlCreateInput("", 72, 56, 305, 21)

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

    GUISetState(@SW_SHOW, $Form1)

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

    While 1
    $Msg = GUIGetMsg(1)
    Switch $Msg[0]
    Case $GUI_EVENT_CLOSE ; Fenster schließen
    Switch $Msg[1]
    Case $Form1
    Exit
    Case $Form2
    GUISetState(@SW_HIDE, $Form2)
    Case $Form3
    GUISetState(@SW_HIDE, $Form3)
    EndSwitch
    Case $MenuItem3 ; Menü Neuer Eintrag
    GUISetState(@SW_SHOW, $Form2)
    Case $MenuItem4 ; Menü Suche
    GUISetState(@SW_SHOW, $Form3)
    Case $Button3
    $aItems = _GUICtrlListView_GetSelectedIndices(GUICtrlGetHandle($ListView1), True)
    For $i = 1 To $aItems[0]
    _ArrayDelete($aDVD, $aItems[$i])
    Next
    _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1)) ;Listview löschen
    _GUICtrlListView_SetItemCount($ListView1, $iDVDCounter + 1) ;Platz reservieren im Listview
    _GUICtrlListView_AddArray($ListView1, $aDVD) ;das Array im Listview anzeigen
    $iDVDCounter -= $aItems[0]
    Case $MenuItem2
    Exit
    Case $Button2 ; Fenster "Neuer Eintrag" schließen
    GUISetState(@SW_HIDE, $Form2)
    Case $Button1 ; Speichern
    For $i = 0 To 4 ; Neue Einträge auslesen und ins Array übernehmen
    $aDVD[$iDVDCounter][$i] = GUICtrlRead($aInput[$i])
    GUICtrlSetData($aInput[$i], '')
    Next
    _SaveDVDs() ;Datenbank speichern
    _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1)) ;Listview löschen
    _GUICtrlListView_SetItemCount($ListView1, $iDVDCounter + 1) ;Platz reservieren im Listview
    _GUICtrlListView_AddArray($ListView1, $aDVD) ;das Array im Listview anzeigen
    $iDVDCounter += 1 ;Zähler um 1 erhöhen
    ReDim $aDVD[$iDVDCounter + 1][5]
    EndSwitch
    $iLVState = GUICtrlGetState($ListView1) ; Abfrage welche Spalte den Focus besitzt
    If $iLVState <> $iOldLVState Then ; Wenn der Anwender auf einen anderen Spaltenkopf geklickt hat
    $iOldLVState = $iLVState
    _ArraySort($aDVD, 0, 0, $iDVDCounter-1, $iLVState) ; Array entsprechend sortieren
    _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1)) ;Listview löschen
    _GUICtrlListView_SetItemCount($ListView1, $iDVDCounter + 1) ;Platz reservieren im Listview
    _GUICtrlListView_AddArray($ListView1, $aDVD) ;das Array im Listview anzeigen
    EndIf
    WEnd

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

    Func _SaveDVDs()
    Local $sTemp
    Local $hFile = FileOpen($sFilename, 2+8)
    If $hFile <> -1 Then
    FileWriteLine($hFile, $iDVDCounter)
    For $i = 0 To $iDVDCounter
    $sTemp = ''
    For $j = 0 To 4
    $sTemp &= $aDVD[$i][$j] & '|'
    Next
    FileWriteLine($hFile, StringTrimRight($sTemp, 1))
    Next
    FileClose($hFile)
    EndIf
    EndFunc

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

    Func _LoadDVDs()
    Local $aTemp
    Local $hFile = FileOpen($sFilename, 0)
    If $hFile <> -1 Then
    $iDVDCounter = FileReadLine($hFile)
    ReDim $aDVD[$iDVDCounter + 1][5]
    For $i = 0 To $iDVDCounter
    $aTemp = StringSplit(FileReadLine($hFile), '|')
    For $j = 0 To 4
    $aDVD[$i][$j] = $aTemp[$j + 1]
    Next
    Next
    FileClose($hFile)
    $iDVDCounter += 1
    ReDim $aDVD[$iDVDCounter + 1][5]
    EndIf
    EndFunc

    [/autoit]

    Jetzt werden die Einträge, bei einem Klick auf den Spaltenkopf, entsprechend sortiert.

  • Date-Input 2

    Ich habe Bugfix's Idee mal zum Anlass genommen, eine eigene Datums-Eingabe zu programmieren.
    Hier kann man sowohl mit der Maus in die Felder klicken, als auch mit der Tabtaste zwischen den Feldern hin- und herspringen.
    Das Datum wird während der Eingabe auf Richtigkeit geprüft und nur wenn es korrekt ist, kann man auf [Ok] klicken.

    Spoiler anzeigen
    [autoit]


    #include<WinAPI.au3>
    #include<ButtonConstants.au3>
    #include<EditConstants.au3>
    #include<GUIConstantsEx.au3>
    #include<WindowsConstants.au3>
    #include<Date.au3>

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

    Global $sTitle = 'Datum eingeben'
    GUICreate($sTitle, 320, 120)
    Global $aDate[5], $iBgColor = 0xAAFFAA, $iPosX = 50, $iPosY = 50, $hStyle = BitOr($ES_CENTER, $ES_NUMBER)
    Global $bCheck = 3, $sDate, $aOutDate[3], $hOld, $hFocus

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

    $aDate[4] = GUICtrlCreateButton('&Heute', $iPosX, $iPosY, 45, 24)

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

    GUICtrlCreateLabel('', $iPosX+50, $iPosY, 97, 24, Default, $WS_EX_CLIENTEDGE)
    GUICtrlSetState(-1, $GUI_DISABLE)

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

    $aDate[0] = GUICtrlCreateInput('', $iPosX+52, $iPosY+2, 20, 20, $hStyle, $WS_EX_TRANSPARENT)
    GUICtrlSetFont(-1, 12, 400, 0, 'Arial')
    GUICtrlSetLimit(-1, 2)
    GUICtrlSetBkColor(-1, $iBgColor)

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

    GUICtrlCreateLabel('.', $iPosX+72, $iPosY+2, 4, 20)
    GUICtrlSetFont(-1, 12, 400, 0, 'Arial')
    GUICtrlSetBkColor(-1, $iBgColor)

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

    $aDate[1] = GUICtrlCreateInput('', $iPosX+76, $iPosY+2, 20, 20, $hStyle, $WS_EX_TRANSPARENT)
    GUICtrlSetFont(-1, 12, 400, 0, 'Arial')
    GUICtrlSetLimit(-1, 2)
    GUICtrlSetBkColor(-1, $iBgColor)

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

    GUICtrlCreateLabel('.', $iPosX+96, $iPosY+2, 4, 20)
    GUICtrlSetFont(-1, 12, 400, 0, 'Arial')
    GUICtrlSetBkColor(-1, $iBgColor)

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

    $aDate[2] = GUICtrlCreateInput('', $iPosX+100, $iPosY+2, 45, 20, $hStyle, $WS_EX_TRANSPARENT)
    GUICtrlSetFont(-1, 12, 400, 0, 'Arial')
    GUICtrlSetLimit(-1, 4)
    GUICtrlSetBkColor(-1, $iBgColor)

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

    $aDate[3] = GUICtrlCreateButton('Ok', $iPosX+155, $iPosY, 40, 24, $BS_DEFPUSHBUTTON)
    GUICtrlSetState(-1, $GUI_DISABLE)

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

    GUICtrlSetState($aDate[0], $GUI_FOCUS)

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

    GUISetState()
    GUIRegisterMsg($WM_COMMAND, 'MY_WM_COMMAND')
    $hOld = $aDate[0]
    Do
    $msg = GUIGetMsg()
    Switch $msg
    Case $aDate[3]
    $aOutDate[0] = StringRight('0' & GUICtrlRead($aDate[0]), 2)
    $aOutDate[1] = StringRight('0' & GUICtrlRead($aDate[1]), 2)
    If StringLen(GUICtrlRead($aDate[2])) < 4 Then
    $aOutDate[2] = StringRight('000' & GUICtrlRead($aDate[2]), 4)
    If StringMid($aOutDate[2], 1, 1) = '0' Then $aOutDate[2] = StringReplace($aOutDate[2], 1, '2')
    Else
    $aOutDate[2] = GUICtrlRead($aDate[2])
    EndIf
    $sDate = $aOutDate[0] & '.' & $aOutDate[1] & '.' & $aOutDate[2]
    $sFDate = $aOutDate[2] & $aOutDate[1] & $aOutDate[0]
    MsgBox(0,0, $sDate & @CRLF & @CRLF & $sFDate)
    ExitLoop
    Case $aDate[4]
    GUICtrlSetData($aDate[0], @MDAY)
    GUICtrlSetData($aDate[1], @MON)
    GUICtrlSetData($aDate[2], @YEAR)
    GUICtrlSetState($aDate[3], $GUI_FOCUS)
    $hOld = $aDate[2]
    EndSwitch
    If StringLen(GUICtrlRead($aDate[0])) = 2 And $hOld = $aDate[0] Then
    ControlFocus($sTitle, '', $aDate[1])
    GUICtrlSetData($aDate[1], '')
    $hOld = $aDate[1]
    EndIf
    If StringLen(GUICtrlRead($aDate[1])) = 2 And $hOld = $aDate[1] Then
    ControlFocus($sTitle, '', $aDate[2])
    GUICtrlSetData($aDate[2], '')
    $hOld = $aDate[2]
    EndIf
    $hFocus = Number(_WinAPI_GetDlgCtrlID(ControlGetHandle($sTitle, '', ControlGetFocus($sTitle, ''))))
    If $hFocus = $aDate[0] And $hOld <> $aDate[0] Then
    $hOld = $aDate[0]
    GUICtrlSetData($aDate[0], '')
    EndIf
    If $hFocus = $aDate[1] And $hOld <> $aDate[1] Then
    $hOld = $aDate[1]
    GUICtrlSetData($aDate[1], '')
    EndIf
    Until $msg = $GUI_EVENT_CLOSE

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

    Func MY_WM_COMMAND($hWnd, $msg, $wParam, $lParam)
    If GUICtrlRead($aDate[2]) < 1 Then
    $bCheck = BitOr($bCheck, 4)
    Else
    $bCheck = BitAND($bCheck, 3)
    EndIf
    If GUICtrlRead($aDate[1]) > 12 Or GUICtrlRead($aDate[1]) < 1 Then
    $bCheck = BitOr($bCheck, 2)
    Else
    $bCheck = BitAND($bCheck, 5)
    EndIf
    If StringInStr('04060911', StringRight('00' & GUICtrlRead($aDate[1]), 2)) And GUICtrlRead($aDate[0]) > 30 Then
    $bCheck = BitOR($bCheck, 1)
    ElseIf GUICtrlRead($aDate[0]) > 31 Or GUICtrlRead($aDate[0]) < 1 Then
    $bCheck = BitOR($bCheck, 1)
    ElseIf StringRight('00' & GUICtrlRead($aDate[1]), 2) = '02' And GUICtrlRead($aDate[0]) > (28 + _DateIsLeapYear(GUICtrlRead($aDate[2]))) Then
    $bCheck = BitOR($bCheck, 1)
    Else
    $bCheck = BitAND($bCheck, 6)
    EndIf
    If $bCheck Then
    GUICtrlSetState($aDate[3], $GUI_DISABLE)
    Else
    GUICtrlSetState($aDate[3], $GUI_ENABLE)
    EndIf
    EndFunc ;==>MY_WM_COMMAND

    [/autoit]

    Edit: Ich habe das Script nochmal angepasst, sodass man nun ein Datum "durchgehend" (ohne die TAB-Taste drücken zu müssen) eingeben kann.

  • DVD Archiv

    Diese "Fehlfunktion" von _ArrayDisplay gab es tatsächlich mal. Wurde aber mittlerweile behoben. In der aktuellen AutoIt-Version werden auch größere Arrays richtig angezeigt.

    Und keine Sorge, ich will SQL nicht schlecht machen. Mein Beispiel sollte nur zeigen, dass es auch ohne geht, wenn man mit SQL noch nicht so die Erfahrung hat.