Beiträge von RR04

  • StringSplit-Ausgabe zusammenfügen

    Hi,

    ich habe einen (sonst unbekannten) Pfad ausgelesen ";1" und diesen mit StringSplit ";2" aufgeteilt. Alles soweit erfolgreich.

    Wie kann ich diese Aufteilung zusammenfügen um das Ergebnis ";3" zu erhalten ? ?(

    [autoit]


    ; 1
    Dim $var = "C:\Dokumente und Einstellungen\MaxMuster\Anwendungsdaten\Mozilla\Firefox\Profiles\test.default"
    ; 2
    $var = StringSplit($var, "\")
    For $i = 1 To $var[0] - 1
    MsgBox(0, 'Ergebnis Splitten', 'Wert Nr.:' & $i & ' = ' & $var[$i])
    Next

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

    ; v
    ; v

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

    ; 3 gesucht ist ??
    Dim $var1 = "C:\Dokumente und Einstellungen\MaxMuster\Anwendungsdaten\Mozilla\Firefox\Profiles"
    ; ENDE

    [/autoit]


    Danke !

  • Sicher ist Sicher...

    Hi Crazy-A,

    manchmal sind es User Wünsche für die man erst den richtigen Rahmen schaffen muss (MadMax), neue Erkenntnisse die ich machen konnte oder man folgt einem Konzept. ;)

    PS: Die Animation in OES beim kopieren (Fliegende Blätter), funktioniert die ? :)

  • Probleme/Fragen zu Radiobuttons

    Hi,

    die Abfrage sollte so aussehen:

    Spoiler anzeigen
    [autoit]


    If BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED And BitAND(GUICtrlRead($radio12), $GUI_CHECKED) = $GUI_CHECKED Then
    MsgBox(0, 'Super ', ' Es funktioniert ! ')
    EndIf

    [/autoit]

    Weiter zu Radios sollte einer voreingestellt sein, sie auch Hilfe:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>
    #NoTrayIcon

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

    $Form2 = GUICreate("Anmelden", 547, 546, 193, 125)
    $Group1 = GUICtrlCreateGroup("Server", 10, 10, 150, 221)
    $radio1 = GUICtrlCreateRadio("1. Mosha", 20, 30, 121, 21)
    GUICtrlSetState(-1, $GUI_CHECKED) ;) ein Radio sollte voreingestellt sein ! SIEHE HILFE GUICtrlCreateRadio
    $radio2 = GUICtrlCreateRadio("2. Karthago", 20, 50, 121, 21)
    $radio3 = GUICtrlCreateRadio("3. Astreya", 20, 70, 121, 21)
    $radio4 = GUICtrlCreateRadio("4. Hyperion", 20, 90, 121, 21)
    $radio5 = GUICtrlCreateRadio("5. Antharos", 20, 110, 121, 21)
    $radio6 = GUICtrlCreateRadio("6. Cascardon", 20, 130, 121, 21)
    $radio7 = GUICtrlCreateRadio("7. Lesanya", 20, 150, 121, 21)
    $radio8 = GUICtrlCreateRadio("8. Torkas", 20, 170, 121, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("Channel", 170, 10, 150, 221)
    $radio9 = GUICtrlCreateRadio("CH 1", 180, 30, 121, 21)
    GUICtrlSetState(-1, $GUI_CHECKED) ;) ein Radio sollte voreingestellt sein ! SIEHE HILFE GUICtrlCreateRadio
    $radio10 = GUICtrlCreateRadio("CH 2", 180, 50, 121, 21)
    $radio11 = GUICtrlCreateRadio("CH 3", 180, 70, 121, 21)
    $radio12 = GUICtrlCreateRadio("CH 4", 180, 90, 121, 21)
    $radio13 = GUICtrlCreateRadio("CH 5", 180, 110, 121, 21)
    $radio14 = GUICtrlCreateRadio("CH 6", 180, 130, 121, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1);) nicht vergessen !

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

    GUISetState(@SW_SHOW)

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

    While 1
    ControlClick("Anmelden", "unsicht", "Button5")
    $nMsg = GUIGetMsg()
    Switch $nMsg

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

    Case $GUI_EVENT_CLOSE
    Exit
    Case $radio2
    GUICtrlSetState($radio14, $GUI_DISABLE)

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

    EndSwitch
    WEnd

    [/autoit]


    Schau Dir ruhig noch einmal die Hilfe zu "GUICtrlCreateRadio" genauer an. :rolleyes:
    Viel Erfolg ! ;)

  • Probleme/Fragen zu Radiobuttons

    Herzlich Willkommen,

    vielleicht so ? Bin mir aber nicht sicher, ob nicht Checkboxen generell besser passen würden ?

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>
    #NoTrayIcon

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

    $Form2 = GUICreate("Anmelden", 547, 546, 193, 125)
    $Group1 = GUICtrlCreateGroup("Server", 10, 10, 150, 221)
    $radio1 = GUICtrlCreateRadio("1. Mosha", 20, 30, 121, 21)
    $radio2 = GUICtrlCreateRadio("2. Karthago", 20, 50, 121, 21)
    $radio3 = GUICtrlCreateRadio("3. Astreya", 20, 70, 121, 21)
    $radio4 = GUICtrlCreateRadio("4. Hyperion", 20, 90, 121, 21)
    $radio5 = GUICtrlCreateRadio("5. Antharos", 20, 110, 121, 21)
    $radio6 = GUICtrlCreateRadio("6. Cascardon", 20, 130, 121, 21)
    $radio7 = GUICtrlCreateRadio("7. Lesanya", 20, 150, 121, 21)
    $radio8 = GUICtrlCreateRadio("8. Torkas", 20, 170, 121, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("Channel", 170, 10, 150, 221)
    $radio9 = GUICtrlCreateRadio("CH 1", 180, 30, 121, 21)
    $radio10 = GUICtrlCreateRadio("CH 2", 180, 50, 121, 21)
    $radio11 = GUICtrlCreateRadio("CH 3", 180, 70, 121, 21)
    $radio12 = GUICtrlCreateRadio("CH 4", 180, 90, 121, 21)
    $radio13 = GUICtrlCreateRadio("CH 5", 180, 110, 121, 21)
    $radio14 = GUICtrlCreateRadio("CH 6", 180, 130, 121, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1);) vergessen !

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

    GUISetState(@SW_SHOW)

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

    While 1
    ControlClick("Anmelden", "unsicht", "Button5")
    $nMsg = GUIGetMsg()
    Switch $nMsg

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

    Case $GUI_EVENT_CLOSE
    Exit
    Case $radio2
    GUICtrlSetState($radio14, $GUI_DISABLE)

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

    EndSwitch
    WEnd

    [/autoit]


    Viel Erfolg ! 8)

  • "Infotext" erstellen

    Hi @All,

    zur Ergänzung, denn manche mögen es RUND:

    [autoit]


    $control = GUICtrlCreateCheckbox("Blub", 10, 10, 100, 20)
    GUICtrlSetTip(-1, "Dies ist eine runde Information", "Erkältung", 1, 1)

    [/autoit]


    ;)

  • IniReadSection, Array und For

    Hi, leider komme ich bei meiner Konstruktion nicht alleine weiter. ?(

    Ich möchte eine Language-Datei mit IniReadSection einlesen und mittels Array und For-Schleife ausgeben.
    Die Datei wird richtig gelesen, wie mein Gegenversuch mit MsgBox ergab.

    Spoiler anzeigen
    [autoit]


    Func _ini_read_lang()
    ;read_options
    $actual_lang_name = IniRead($ini, "language", "current", "Deutsch.lng")
    $actual_lang = $lang_dir & "\" & $actual_lang_name
    ;ini_read_lang

    Global $languages = IniReadSection($actual_lang, "default_values")
    If @error Then MsgBox(4096, "", "Error occurred, probably no lng file.")

    Dim $Label[13] = ['', $fileMenu, $startItem, $exitItem, $OptMenu, $langItem, $helpItem, $aboutItem, $gbSources, $lbLocation, $gbFormat, $bnStart, $bnCancel]

    For $i = 1 To $languages[0][0] ;< funktioniert !!

    ;For $i = 1 To 12 ;< funktioniert nicht ??

    MsgBox(4096, "", "Key: " & $languages[$i][0] & @CRLF & "Value: " & $languages[$i][1]) ;< funktioniert !!

    ;GUICtrlSetData($Label[$i], $languages[$i][1]) ;< funktioniert nicht ??
    Next

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

    EndFunc ;==>_ini_read_lang

    [/autoit]


    Language.ini

    Spoiler anzeigen


    [default_values]
    $fileMenu_txt=Datei
    $startItem_txt=Sichern
    $exitItem_txt=Beenden
    $OptMenu_txt=Optionen
    $langItem_txt=Sprache
    $helpItem_txt=Info
    $aboutItem_txt=Über...
    $gbSources_txt=Quelle:
    $lbLocation_txt=Speicherort:
    $gbFormat_txt=Format:
    $bnStart_txt=Sichern
    $bnCancel_txt=Beenden


    Danke für mögliche Hilfe

  • AutoIt Versionen nicht mehr jeweils auf einem Stick

    Hallo,

    die AutoIT-Versionen gibt es, glaube ich, als gepackte Dateien. :)

    Ich selbst versehe meine Scripte mit der jeweiligen Version (guter Stil). ;)
    Ein Rechtsklick>Eigenschaften>Version auf die Exe-Datei und schon erkennt man die benutzte Ausgabe.

    [autoit]


    #AutoIt3Wrapper_Res_Field=AutoIt Version|3.2.12.1

    [/autoit]


    Zur Speicherung behalte ich Script und Exe-Datei in einem Zip-Ordner gepackt, so wie ich meine Programme auch Anderen zur Verfügung stelle. Vielleicht hast Du ja schon mal eines meiner Werke kennen gelernt ? ;)

  • Tab's und TabItem's

    Hi,

    in der Hilfe fand ich:

    Zitat


    Um ein neues Steuerelement auf einem bereits bestehenden Tab zu erstellen, ist GUISwitch($hWin,$tabitem) zu benutzen und es auszuwählen und auch um das neue Steuerelement zu erstellen.
    Es sollte nicht vergessen werden, das die Erstellung des neuen Tabs mit GUICtrlCreateTabItem("") wieder beendet wird.

    Vielleicht hilft es ? :)

  • Outlook & OExpress Saver...

    @All grüß Euch !
    Ab einem Jahr AutoIT steigen wohl die Anforderungen ? :D
    @(A)Lina

    Fremder Installer. Was spricht dagegen ?
    DK oder DA - Du hast Recht, das habe ich von Dansk abgeleitet und ist nur eine interne Bezeichnung. Künftig also DK !
    Zeile in der Liesmich.txt! Du hast eine gute Arbeit abgeliefert und die ist nicht von mir. Auch im About und Info! :thumbup:
    Animation/Hinweisfenster - Holla die Bolla 250MB, bei mir ging es immer ganz fix. Ich nutze keine solchen Sachen. Da müssen wir was machen.

    Oscar

    Ich habe noch einmal Durchgesehen, bei mir tritt dieser Fehler nicht auf. Auch (A)Lina hat nichts berichtet.

    Ich vermute, Dein PC ist zu schnell und IniWrite (in dieser Func _gui_config()) hat nicht ausreichend Zeit!
    Meine bitte an Dich, die folgende Funktion zu ersetzen:

    [autoit]


    Func _closeLang()
    _gui_config()
    Sleep(1000) ;### Pause for IniWrite ###
    _ini_read_lang()
    GUISetState(@SW_HIDE, $langGUI) ;i $langGUI verstecken
    EndFunc

    [/autoit]

    Die 1000 von Sleep ist jetzt nur willkürlich von mir, da ich keine Erfahrungen für diese Werte habe.

  • Ein Jahr AutoIT.de, RR04 sagt Danke !

    Danke an das Forum für das Engagement sowie die hochwertige Hilfe.
    Nicht aus der IT-Branche stammend, hat man mich hier gewähren lassen. So habe ich meinen Weg begonnen und konnte einiges über die Verhältnisse, Zusammenhänge und Wechselwirkungen beim programmieren lernen.

    Aber mehr noch ! - Auf meinem Weg begegnete ich tolle Menschen in einem tollen Forum !