Beiträge von Oscar

  • String Vergleich anhand von Ähnlichkeiten

    Man könnte Dateinamen und Such-Array "auf den gleichen Nenner" bringen und dann per StringInStr suchen lassen:

    Spoiler anzeigen
    [autoit]


    Global $aNames[5] = ['Peter Soundso', 'Gabi von Gestern', 'Michael Mustermann', 'Michael Mittermeier', 'Muster Gestern']

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

    Global $aFilenames[6] = ['mek249ß0320ß-d3.3s22Gabi-von.gestern.i92390dmdmer.doc', 'blaGabi.doc', '4711Gestern.txt', 'michaelmustermann92ß392ß3ß2sallsa.txt', '333wasarmichael-mittermeier.rtf', '0815Peter.exe']

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

    For $i = 0 To UBound($aFilenames) - 1
    For $j = 0 To UBound($aNames) - 1
    If StringInStr(StringRegExpReplace($aFilenames[$i], '[\.,\+-\s]', ''), StringRegExpReplace($aNames[$j], '[\.,\+-\s]', '')) Then
    ConsoleWrite('Treffer: ' & $aFilenames[$i] & @CR)
    ExitLoop
    EndIf
    Next
    Next

    [/autoit]


    Das passt zumindest für die genannten Beispiele. Wenn da noch andere Zeichen zwischen den Namen stehen können, müsste man das RegExp-Pattern entsprechend anpassen.

  • Programm mit AdminRechten automatisch starten

    Hmm...Ich habe dort jetzt mal einen DWORD-Schlüssel "Period" erstellt (gab es nicht) und den Wert 65531 eingetragen. Danach einen Neustart durchgeführt.
    Im Einstellungsdialog habe ich dann die Uhrzeit aktualisieren lassen und dann kam das:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Kann es sein, dass das unter Windows7 (64 Bit) nicht funktioniert?

  • Musikplayer - Paar Problemchen

    Die _Sound-Funktionen haben Probleme, wenn es sich nicht um "echte" MP3s handelt. Das heißt, es muss beim erstellen wirklich MPEG1 Layer III (wird als MP3 bezeichnet) verwendet worden sein.
    Wird beispielsweise MPEG1 Layer I verwendet (diese werden oft auch mit der Endung MP3 angelegt), so werden die Zeiten nicht korrekt berechnet.

    Wenn Du das umgehen willst, benutze die BASS-UDF.

  • Programm mit AdminRechten automatisch starten

    Bei RunAs müsste ich das Admin-Passwort abfragen und irgendwo speichern. Ungünstig! :huh:
    Ich möchte es dem Benutzer ja möglichst erleichtern, damit er das Programm nicht selbst in die Aufgabenplanung packen muss (ist doch relativ kompliziert).

    Und beim Taskplaner finde ich auch keine Möglichkeit, um das Programm als Admin zu starten. Hmmm...

    Verdammt, das muss doch irgendwie gehen...

  • Programm mit AdminRechten automatisch starten

    Ich möchte, dass sich mein Programm in den Windows-Autostart packen kann.
    Dazu rufe ich ein Hilfsprogramm auf:

    Spoiler anzeigen
    [autoit]


    #RequireAdmin
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=gfx\clock.ico
    #AutoIt3Wrapper_outfile=SetAutoStart.exe
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_UseX64=n
    #AutoIt3Wrapper_Change2CUI=y
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    If Not @Compiled Then Exit 0
    If $CmdLine[0] <> 1 Then Exit 0
    Switch $CmdLine[1]
    Case 1
    RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', 'Digitaluhr', 'REG_SZ', Chr(34) & @ScriptDir & '\Digitaluhr3.exe' & Chr(34))
    Case 0
    RegDelete('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', 'Digitaluhr')
    EndSwitch

    [/autoit]


    Dort werden dann AdminRechte angefordert, damit der RegKey erstellt werden kann. Soweit funktioniert das Ganze auch. Allerdings benötigt mein Programm selbst AdminRechte, um die Uhrzeit (bei Bedarf) stellen zu können.
    Ich möchte aber kein #RequireAdmin ins Skript aufnehmen, weil ich dann jedes Mal beim Systemstart dieses bestätigen müsste.

    Also habe ich im Netz gesucht und bin auf die Aufgabenplanung gestossen. Dort kann man ein Programm automatisch mit AdminRechten starten lassen. Ausprobiert -> funktioniert. :)
    Aber...ich möchte das mit AutoIt automatisieren, sodass man als Benutzer nur einen Menüpunkt auswählen muss.
    Meine Frage ist nun:
    Wie kriege ich mein Programm in die Aufgabenplanung und wie kann ich das wieder entfernen?

  • Textblöcke aus TXT-Datei Auslesen und an Cursorposition ausgeben

    Dann so:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>

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

    $sFilename = @ScriptDir & '\test.txt'
    $sFile = FileRead($sFilename) ; Datei einlesen
    $array = StringRegExp($sFile, '(?s)\[\d+\](.+?)\[\/\d+\]', 3) ; Array erstellen
    ;~ _ArrayDisplay($array)
    $index = 0
    HotKeySet('{F8}', '_SendText')
    HotKeySet('{ESC}', '_End')

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

    While Sleep(100)
    WEnd

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

    Func _SendText()
    Send($array[$index])
    $index += 1
    If $index = UBound($array) Then $index = 0
    EndFunc

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

    Func _End()
    Exit
    EndFunc

    [/autoit]

  • Textblöcke aus TXT-Datei Auslesen und an Cursorposition ausgeben

    Willst Du denn den Text komplett ausgeben?
    Ich vermute mal (Kristallkugel befragt :D ) nur zeilenweise:

    Spoiler anzeigen
    [autoit]


    $sFilename = @ScriptDir & '\dateiname.txt'
    $sFile = FileRead($sFilename) ; Datei einlesen
    $array = StringSplit($sFile, @CRLF, 3) ; am Zeilenende splitten = Array erstellen
    $index = 0
    HotKeySet('{F8}', '_SendText')
    HotKeySet('{ESC}', '_End')

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

    While Sleep(100)
    WEnd

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

    Func _SendText()
    Send($array[$index])
    $index += 1
    If $index = UBound($array) Then $index = 0
    EndFunc

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

    Func _End()
    Exit
    EndFunc

    [/autoit]

  • Checkbox aktivieren wenn Textdatei existiert

    Wohl eher so:

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Global $ini
    $ini = @DesktopDir & "\Test.ini"

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

    GUICreate("GUI", 139, 60, 192, 124)
    $hCheck = GUICtrlCreateCheckbox("Checkbox1", 24, 24, 97, 17)
    GUISetState(@SW_SHOW)

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

    AdlibRegister('_Check')

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    AdlibUnRegister('_Check')
    Exit
    EndSwitch
    WEnd

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

    Func _Check()
    If FileExists($ini) Then
    GUICtrlSetState($hCheck, $GUI_ENABLE)
    Else
    GUICtrlSetState($hCheck, $GUI_DISABLE)
    EndIf
    EndFunc ;==>_Check

    [/autoit]

  • Wiedergabelieste erstellen

    So ein Projekt kann man ohne Arrays doch gar nicht vernünftig aufziehen. Du musst alle Dateinamen aus dem Verzeichnis einlesen (Array), dann die ID3-Tags zu jedem Titel auslesen (Array) und mit diesen Angaben eine Textdatei erstellen.
    BTW: Ich verwende bei meinem Starplayer das m3u-Playlistformat. Das ist in der einfachsten Form nur eine Auflistung der MP3-Dateinamen (ein Titel pro Zeile). Dieses Format wird von den meisten Playern unterstützt.