Beiträge von Alina

  • alle Möglichkeiten der Zeichenreihenfolge eines Strings

    Zitat von AspirinJunkie

    AutoIt-Quellcode

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    $s_String = "abcd"
    $a_String = StringSplit($s_String, "", 2)
    $a_Permutations = _ArrayPermute($a_String)
    _ArrayDisplay($a_Permutations)

    [/autoit]

    Das geht aber nur, wenn sich kein Buchstabe /Zahlt wiederholt.
    streiche: $s_String = "abcd"
    setze : $s_String = "abcb"

    Dabei kommen doppelte Kombinationen vor. Sollte man das nicht beachten, der der Frage, der vorkommenden Kombinatioen?

  • 1,245 GB AutoIt-Scripte

    Ich habe gerade 1,245 GB AutoIt-Scripte / die Hilfen zu jeder Version und die jeweilige Version, seit ich hier aktiv bin auf einer M-Disc gespiechert. Soll 100 Jahre halten. In einhundert Jahren lacht die Welt über unser heutiges EDV-Leben & Co.

  • Drag and Drop Symbol, um Position herauszufinden

    Und ich möchte hier mal darauf hinweisen, das wenn etwas passiert
    es ja nicht nur arbeitsrechtliche Folgen mit sich tragen kann. Wenn
    durch eine Automatisierung die Sicherheit gefährdet werden kann oder
    gefährdet ist und dann ein Arbeitsunfall passiert, dann gnade Gott dem,
    der die Automatisierung genehmigt hat. Gibst Du ohne Genehmigung
    oder weil Du meinst das Du dazu berechtigt bist, eine solche Auto-
    matiesierung zu schreiben und zur Verfügung zu stellen, an andere
    weiter und es passiert etwas, wird die Unfallversicherung / Berufs-
    genossenschaft auf DICH zukommen und das sicherlich nicht gerade zum
    Kaffee trinken. Und Unwissenheit schütz vor Strafe nicht, würde auch
    Deine Situation nicht verbessern, weil Du alleine schon hier im Forum
    über die Risiken nun ja informiert bist. Ab besten immer von möglichst
    hocher Stelle eine schriftliche Genehmigung holen.
    .
    Sollte jetzt nicht kluggerede gewesen sein. Sondern sehe es als einen
    hilfreichen Warnhinweis an. Wo Leben im Spiel ist und die Sicherheit
    gefährdet ist, dürfen Sicherheitseinrichtungen nicht umgangen werden!

  • Schaffung eines "openfile"

    Sure, here are spoken englsich and Google helps everyone, but you'll have more success on the English side. And please post the script entirely. I see it myself then later.

    Lach mich gerade über die Googleübersetzung weg. Mußte die erst einmal suchen, aber zum verstehen sollte die Übersetzung reichen.

  • hilite.me API-Problem

    Bei mir schreib er in die Console:

    [autoit][/autoit]
    Spoiler anzeigen
    [autoit]


    <!-- HTML generated using hilite.me --><div style="background: #f8f8f8; overflow:auto;width:auto;"><table><tr><td><pre style="margin: 0; line-height: 125%">1</pre></td><td><pre style="margin: 0; line-height: 125%"><span style="color: #00A000">ConsoleWrite</span>(<span style="color: #BB4444">&quot;Hallo Welt!&quot;</span>
    </pre></td></tr></table></div>

    [/autoit]
    [autoit][/autoit]

  • Schaffung eines "openfile"

    Du verstehst uns auf deutsch? Dann bitte auch versuchen in deutsch zu posten. Nicht alle können hier englisch und es ist ein deutsches Forum. Ich spreche hier auch deutsch und kein dänisch. Das gebietet schon die Höflichkeit, oder irre ich mich da? Ansonsten empfehle ich Dir die englische Seite, aber nicht das Du denkst, ich möchte Dich hier vertreiben, aber da kann Dir dann besser geholfen werden, als wenn wir hier für dich Deinen Text für alle dann übersetzen.
    .
    Ist nicht böse gemeint, nur ich meine, das man in einer Gemeinschaft versucht gemeinsam eine Sprache zu sprechen und hier ist es nicht nur "AutoIt". Okay?

    Englisches Seite: http://www.autoitscript.com

  • Ich suche eine Methode um den Mausklick zu erkennen!

    Spoiler anzeigen
    [autoit]


    ;by Andy

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

    $numberofbuttons = 24 ;number from 1 to 30
    Dim $buttoncontrolID[$numberofbuttons + 1]

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

    GUICreate("test")
    For $i = 1 To $numberofbuttons ;we make an array of buttons
    $buttoncontrolID[$i] = GUICtrlCreateButton(" Button " & $i, 10 + ((($i > 10) + ($i > 20)) * 100), 30 + ($i - (($i > (($i > 20) + 1) * 10) * (($i > 20) + 1) * 10)) * 30,85,30)
    Next
    $somethingbutton=guictrlcreatebutton("do something ",310,30,80,30 )

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

    ;here you could give the buttons an other text or color
    guictrlsetdata($buttoncontrolID[1] ,"Push!")
    GUICtrlSetColor($buttoncontrolID[1],0xFF00FF)
    guictrlsetdata($buttoncontrolID[13],"Push ME!")
    GUICtrlSetColor($buttoncontrolID[13],0x000FFF)
    guictrlsetdata($buttoncontrolID[17],"Push ME TOO!")
    GUICtrlSetColor($buttoncontrolID[17],0xFF0000)

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    ;ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $msg = ' & $msg & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    Switch $msg
    Case -3 ;exit is pressed
    Exit
    case $somethingbutton
    Msgbox (0,"","Button ""do something"" is pressed")

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

    Case $buttoncontrolID[1] To $buttoncontrolID[$numberofbuttons] ;one of the "array"-Buttons is pressed
    call ("_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg))) ;names oft the functions are _arraybutton_1() _arraybutton_2().....
    If @error = 0xDEAD And @extended = 0xBEEF Then MsgBox(4096, "ERROR", "Function "&"_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg))&" does not exist!")
    EndSwitch
    WEnd

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

    ;*******************functions********************************
    func _arraybutton_1()

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

    msgbox(0,"_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg)),"arraybutton pressed: "&GUICtrlRead($msg))
    endfunc
    ;
    ; here are the funcs of the buttons
    ;
    ;
    func _arraybutton_13()
    msgbox(0,"_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg)),"arraybutton pressed: "&GUICtrlRead($msg))
    endfunc

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

    func _arraybutton_17()
    msgbox(0,"_arraybutton_"&($numberofbuttons-($buttoncontrolID[$numberofbuttons]-$msg)),"arraybutton pressed: "&GUICtrlRead($msg))
    endfunc

    [/autoit]