Beiträge von funkey

  • Eigenes Tab-Register (OwnTab-UDF)

    Danke MrB!

    Nachträglich Controls hinzuzufügen funktioniert leider noch nicht. Hab aber im Moment (ich schätze mal das ganze restliche Jahr) noch keine Zeit mich wieder ernsthaft mit der OwnTab-UDF zu beschäftigen. Da wäre noch einiges zu fixen und zu ergänzen. Aber ich verspreche, dass ich diese Funktion noch hinzufügen werde.

  • DragNDrop Frage

    Willkommen hier im Forum!
    Dein Projekt ist sicher nicht ganz einfach für einen Anfänger.
    Ohne Autoit-Gui wird es dir nicht gelingen, den Drop-Event mitzubekommen. Diese könntest du aber durchsichtig gestalten, oder sichtbar schalten, wenn der Wert in der Ini-Datei 1 ist. Prinzipiell sollte es aber machbar sein.

  • Todo Forumsupdate

    Ich würde die Autoit-Tags in der Shoutbox wieder deaktivieren. Ist zwar manchmal nützlich, wenn es nur einzeilig ist, aber alles andere ist nur lästig. Außerdem funktioniert die Positionierung mit zumindest IE7 nicht richtig.
    Hab Spoiler in der Shoutbox nicht ausprobiert, da gab's aber auch einen Bug.
    Pics in der Shoutbox stören nur wenn sie zu groß sind. Am einfachsten wäre wieder generell deaktivieren, oder wenn möglich in der Größe begrenzen (z.B. 100x100)

    Die Darstellung der Portal-Seite mit dem IE7 passt nicht. Die Shoutbox und alles andere darunter wird unter den Info-Boxen links dargestellt und nicht daneben.

  • Wie seid ihr auf autoit gestoßen?

    Mir ging es gleich wie Sprenger120. Hab durch Zufall eine WindowsXP Unattended DVD mit einigen Zusatzprogrammen bekommen und hab mich gleich gefragt welches Programm das fertig bringt, das alles automatisch installiert wird. Hab dann ziemlich schnell herausgefunden, dass das AutoIt war. Hatte damals Zuhause noch kein Internet und hab mir deshalb die Grundkenntnisse schon ca. ein Jahr bevor ich dieses Forum entdeckt hatte allein über die tolle Hilfedatei angeeignet. Hier habe ich dann ja noch sehr viel hinzugelernt. :D

    Mitlerweile benutze ich AutoIt für absolut alles, ganz egal ob ich nur 10 Dateien umbenennen will, oder in der Firma ein ziemlich komplexes Visualisierungssystem damit am laufen habe, oder auch ab und zu mal um ein kleines Spiel zu erschaffen.

    Gruß funkey

  • Filename kürzen

    Nun musste ich es wohl doch mal testen. Ich dachte, dass der Code von dir bereits stimmt, hat er aber leider nicht ganz.
    So sollte es nun gehen:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>

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

    Global $sOrdnerPfad = "Y:\Test2\" ; Pfad zu deinem Ordner mit den Filmen -> Endung muss \ sein
    Global $aFiles = _FileListToArray($sOrdnerPfad)

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

    For $i = 1 To $aFiles[0]
    $sNewFileName = StringTrimLeft($aFiles[$i], StringInStr($aFiles[$i], '-', 1, -1) + 1)
    FileMove($sOrdnerPfad & $aFiles[$i], _FileGetNextBackup($sOrdnerPfad & $sNewFileName), 1)
    Next

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

    Func _FileGetNextBackup($sFile)
    ;funkey 2010, April, 02
    Local $NextFile
    Local $sExt = _FileGetExt($sFile)
    For $i = 1 To 999
    $NextFile = StringFormat(StringTrimRight($sFile, StringLen($sExt)) & "(%003i)." & $sExt, $i)
    If Not FileExists($NextFile) Then ExitLoop
    Next
    Return $NextFile
    EndFunc ;==>_FileGetNextBackup

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

    Func _FileGetExt($sFileName)
    Local $sExt = StringTrimLeft($sFileName, StringInStr($sFileName, ".", 0, -1))
    If StringInStr($sExt, "\") Or StringInStr($sExt, "/") Then Return "" ;no extension
    Return $sExt
    EndFunc ;==>_FileGetExt

    [/autoit]

  • Filename kürzen

    So. Ungetestet.

    Spoiler anzeigen
    [autoit]

    #include <File.au3>

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

    $sOrdnerPfad = "Y:\Test2\" ; Pfad zu deinem Ordner mit den Filmen -> Endung muss \ sein

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

    Global $aFiles = _FileListToArray($sOrdnerPfad)

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

    For $i = 1 To UBound($aFiles)
    $sNewFileName = StringRegExpReplace($aFiles[$i], "^[\d\s]+- ?", "")
    FileMove($sOrdnerPfad & $aFiles[$i], $sOrdnerPfad & _FileGetNextBackup($sNewFileName), 1)
    Next

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

    Func _FileGetNextBackup($sFile)
    ;funkey 2010, April, 02
    Local $NextFile
    Local $sExt = _FileGetExt($sFile)
    For $i = 1 To 999
    $NextFile = StringFormat(StringTrimRight($sFile, StringLen($sExt)) & "(%003i)." & $sExt, $i)
    If Not FileExists($NextFile) Then ExitLoop
    Next
    Return $NextFile
    EndFunc ;==>_FileGetNextBackup

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

    Func _FileGetExt($sFileName)
    Local $sExt = StringTrimLeft($sFileName, StringInStr($sFileName, ".", 0, -1))
    If StringInStr($sExt, "\") Or StringInStr($sExt, "/") Then Return "" ;no extension
    Return $sExt
    EndFunc ;==>_FileGetExt

    [/autoit]

    Edit: Die Zeile sollte so sein, sorry!

    [autoit]

    FileMove($sOrdnerPfad & $aFiles[$i], _FileGetNextBackup($sOrdnerPfad & $sNewFileName), 1)

    [/autoit]

  • Filename kürzen

    Du könntest immer eine fortlaufende Nummer an den Dateinamen anhängen. Diese Funktionen nutze ich in meinem CSV-Editor für Backup-Zwecke.

    Spoiler anzeigen
    [autoit]

    $DateiName = @ScriptDir & "\Serie_1.mpg"

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

    ConsoleWrite("Originaltitel: " & $DateiName & @CR)
    ConsoleWrite("Backuptitel: " & _FileGetNextBackup($DateiName) & @CR)

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

    Func _FileGetNextBackup($sFile)
    ;funkey 2010, April, 02
    Local $NextFile
    Local $sExt = _FileGetExt($sFile)
    For $i = 1 To 999
    $NextFile = StringFormat(StringTrimRight($sFile, StringLen($sExt)) & "(%003i)." & $sExt, $i)
    If Not FileExists($NextFile) Then ExitLoop
    Next
    Return $NextFile
    EndFunc ;==>_FileGetNextBackup

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

    Func _FileGetExt($sFileName)
    Local $sExt = StringTrimLeft($sFileName, StringInStr($sFileName, ".", 0, -1))
    If StringInStr($sExt, "\") Or StringInStr($sExt, "/") Then Return "" ;no extension
    Return $sExt
    EndFunc ;==>_FileGetExt

    [/autoit]

  • Textdatei durchsuchen und falls was gefunden wird die ganze Zeile anzeigen

    Die ganzen Zeilen erhälst du z.B. mit meiner neuen Funktion _ArrayPatternMatch.
    SQL wäre aber sicher besser.

    Spoiler anzeigen
    [autoit]

    #Include <Array.au3>
    #Include <File.au3>

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

    Local $aTest
    _FileReadToArray("filename.txt", $aTest)
    Local $aRes = _ArrayPatternMatch($aTest, "*Flotte:*")
    _ArrayDisplay($aRes)

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

    Func _ArrayPatternMatch($aArray, $sPattern)
    ;funkey May 17, 2010
    If UBound($aArray, 0) <> 1 Then Return SetError(1, 0, "") ;no 1D-array
    Local $n = UBound($aArray)
    Local $aRes[$n], $j = 0
    $sPattern = "^\Q" & $sPattern & "\E$"
    $sPattern = StringReplace($sPattern, "?", "\E.\Q")
    $sPattern = StringReplace($sPattern, "*", "\E.*\Q")
    For $i = 0 To $n - 1
    If StringRegExp($aArray[$i], $sPattern, 0) Then
    $aRes[$j] = $aArray[$i]
    $j += 1
    EndIf
    Next
    If $j = 0 Then Return SetError(2, 0, "") ;no match
    ReDim $aRes[$j]
    Return $aRes
    EndFunc

    [/autoit]

  • _ArrayPatternMatch - Ein Array mittels Wildcard filtern

    Hallo!

    Hab mal wieder kurz Zeit gehabt und mir diese nützliche Funktion geschrieben mit der man ein Array mittels Wildcards filtern kann.
    Ich hoffe, das kann mal jemand brauchen!

    Spoiler anzeigen
    [autoit]

    #Include <Array.au3>

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

    Local $aTest
    Local $aArray[5] = ["abcde", "aabcd", "bcd", "aeiou", "asdf"]
    Local $aPattern[6] = ["*e", "aa*", "?cd", "*e*", "*d", "*d?"]

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

    _ArrayDisplay($aArray, "Original Array")

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

    For $i = 0 To UBound($aPattern) - 1
    $aTest = _ArrayPatternMatch($aArray, $aPattern[$i])
    _ArrayDisplay($aTest, "Filter: " & $aPattern[$i])
    Next

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

    Func _ArrayPatternMatch($aArray, $sPattern)
    ;funkey May 17, 2010
    If UBound($aArray, 0) <> 1 Then Return SetError(1, 0, "") ;no 1D-array
    Local $n = UBound($aArray)
    Local $aRes[$n], $j = 0
    $sPattern = "^\Q" & $sPattern & "\E$"
    $sPattern = StringReplace($sPattern, "?", "\E.\Q")
    $sPattern = StringReplace($sPattern, "*", "\E.*\Q")
    For $i = 0 To $n - 1
    If StringRegExp($aArray[$i], $sPattern, 0) Then
    $aRes[$j] = $aArray[$i]
    $j += 1
    EndIf
    Next
    If $j = 0 Then Return SetError(2, 0, "") ;no match
    ReDim $aRes[$j]
    Return $aRes
    EndFunc

    [/autoit]

  • Tabitem

    Ich hatte zwar gar nicht dich gemeint, aber wenn die die Problemstellung noch einmal durchliest, dann weißt du, was ich meine.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    ;------------------------------
    GUIcreate("Hilfe")
    GUIsetstate(@sw_show)
    GUICtrlCreateTab(20,40, 350, 350)
    GUIctrlcreatetabitem("Mathet")
    GUIctrlcreatelabel("Hier kommt ein Programm für Mathe rein",50, 100, 300, 300)
    GUIctrlcreatetabitem("Deutsch")
    GUIctrlcreatelabel("Hier kommt ein Programm für Deutsch rein",50, 100, 300, 300)
    GUIctrlcreatetabitem("") ;neue Zeile
    While 1
    $msg = GUIgetmsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $GUI_EVENT_MINIMIZE
    endswitch
    Wend

    [/autoit]

    Natürlich ist es besser, zuerst alle Guis zu zeichnen, hat aber damit nichts zu tun.

  • Tabitem

    Ich würde sagen, wer die Hilfe liest, kommt zu dem Ergebnis, dass noch eine Zeile fehlt!

    [autoit]

    GUICtrlCreateTabItem(""); Beendet die Tab Definition

    [/autoit]