Beiträge von i2c

  • Datei auslesen, wenn String vorhanden ist koplette Zeile in TXT speichern

    "ohne GUI"
    [autoit]

    #include <File.au3>
    #include <array.au3>
    Global $aLines
    Global $aFiles[2] = [@ScriptDir & "\test.txt", @ScriptDir & "\test.ini"]

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

    $sSearch = "Hallo"
    $output = @ScriptDir & "\output.txt"

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

    For $i = 0 To UBound($aFiles) - 1
    _FileReadToArray($aFiles[$i], $aLines)
    _ArrayDisplay($aLines)
    If IsArray($aLines) Then
    For $j = 1 To $aLines[0] Step 1
    If StringLeft($aLines[$j], StringLen($sSearch)) = $sSearch Then
    FileWriteLine($output, $aLines[$j])
    EndIf
    Next
    EndIf
    Next

    [/autoit]

  • In Taskleiste verstecken!

    &quot;Alt+m&quot;
    [autoit]

    #include <GUIConstants.au3>
    HotKeySet("!m", "_minimize") ;Alt+m zum minimieren
    $gui = GUICreate('', 100, 100)
    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd

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

    Func _minimize()
    GUISetState(@SW_MINIMIZE, $gui)
    EndFunc ;==>_minimize

    [/autoit]

    edit: Oder in den Tray minimieren?

    [autoit]

    Func _minimize()
    GUISetState(@SW_hide, $gui)
    TraySetState(1)
    EndFunc ;==>_minimize

    [/autoit]

  • Server startet nicht ohne Bildschirm

    Zitat von Dietmar

    Veto an die Dateien geht nur ran wenn er muss, bei webmin geht mitunter der Spieltrieb mit Ihm durch. Und mit winscp kann er von Windows aus unixkonform editieren,


    Eben da liegt im aktuellen Fall das Problem. Er will von vornherein nicht an die Konfigs/Konsole. Mit Webmin kann er auch nicht mehr Schaden anrichten als mit irgendwelchen GUI Tools via VNC, wie es jetzt der Fall ist.

    Will man jemanden von Windows wegbringen und an einen vernünftigen Linux Server ohne Gnome/KDE whatever gewöhnen, muss man Kompromisse eingehen. Mit der stumpfen Aussage "Die Konsole muss dir reichen" kann man fast niemanden überzeugen. Die Verwendung eines Interfaces schliesst ja auch nicht aus, das man das behind verstehen lernt.

    Zitat von Dietmar

    Quatsch, ich arbeite seit mehreren Jahren im Support und aus Erfahrung, wird die Antwort sein, das er nix gemacht hat.


    Ich habe nicht gesagt das die Antwort definitiv und in jedem Fall kommen wird. Lediglich die Warscheinlichkeit einer vernünftigen Antwort wird erhöht.

    Zitat von Dietmar

    Und die Einstellungen wird er sich nicht merken, aber ein Backup einer proftp.conf ist sicher hilfreicher wenn er in der rumgespielt hat als


    Auch wenn man Webmin benutzt kann man wichtige Datei sichern. Das eine schliesst das andere nicht aus.

  • Server startet nicht ohne Bildschirm

    Tut mir leid aber das kann und will ich nicht nachvollziehen. Einem Neuling in Sachen Linux Server ein Webinterface für die Konfiguration zur Verfügung zu stellen ist nicht gefährlicher als ihn auf Konsoleneditoren wie Nano bzw. per remote edit in irgendwelchen configs rumfuhrwerken zu lassen.

    Webmin lässt sich rein intuitiv bedienen und ich behaupte damit kommt auch jeder WIndows Benutzer klar. Für viele macht es einen grossen Unterschied ob sie sich durch ein Menü klicken können in dem die Einstellungen erklärt werden oder ob sie in einer, meist englisch oder schlecht kommentierten, Konfigurationsdatei ständig auf irgendwelche manpages verwiesen werden auf denen ihnen dann die Option erklärt wird.

    Webmin tut nichts anderes als die Einstellungen auf die selbe Art und Weise zu setzen, wie man es auch manuell machen würde. Es werden keine neuen Dateine angelegt oder bestehende verschoben wie es z.B. andere Systeme tun (z.B. cPanel). Macht man einen Fehler, sind die Auswirkungen und die Workarounds dieselben wie bei einer reinen Konsolenbedienung.

    Wenn ich einen Linux Newbie Frage, was er denn vor dem Auftreten des Fehlers gemacht hat, dann wird er sich eher an "Ich war im Webmin und hab im ProFTpd Menü dies und das gemacht" erinnern als "Ich hab in /etc/proftpd/sql.conf die Option SQLAuthTypes Crypt Plaintext entkommentiert.".

  • Dia Show Bilder laden

    Nur um eine Alternative zu Inelukis Vorschlag zu zeigen.
    Mir stellt sich nur grad die Frage, warum ich die unsinnige While-Schleife hinten drangehängt habe.

    edit: Resizing, ja .... herje, ich geb''s auf für heute. :rolleyes:

  • Dia Show Bilder laden

    [autoit]

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

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

    $Form1 = GUICreate("Form1", 521, 345, 639, 271, $WS_POPUP)
    GUISetState(@SW_SHOW)

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

    For $i = 1 To 10
    $Pic1 = GUICtrlCreatePic(@ScriptDir & "\Bild" & $i & ".jpg", 0, 0, 521, 345)
    GUICtrlSetResizing($Pic1, $GUI_DOCKAUTO + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
    Sleep(1000) ; die Pause zwischen den Bildern!
    GUICtrlDelete($Pic1)
    Next
    Exit

    [/autoit]

  • Abfrage problem Löschen oder Backup

    Eine Messagebox find ich hier fehl am Platze. Die Frage "Lösche oder Backup" lässt sich schlecht mit OK oder Abbrechen beantworten. Versuch's mal mehr in diese Richtung.

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    If FileExists("c:\sw\proe") Then
    $Form1 = GUICreate("", 222, 76, 192, 148)
    $Label1 = GUICtrlCreateLabel("Soll gelöscht oder backup erstellt werden", 16, 16, 198, 17)
    $Button1 = GUICtrlCreateButton("Löschen", 88, 40, 59, 25)
    $Button2 = GUICtrlCreateButton("Backup", 152, 40, 59, 25)
    GUISetState(@SW_SHOW)

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    DirRemove("c:\sw\proe")
    GUIDelete($Form1)
    ExitLoop
    Case $Button2
    DirCreate("c:\sw\backup")
    DirMove("c:\sw\proe", "c:\sw\backup", 1)
    GUIDelete($Form1)
    ExitLoop
    EndSelect
    WEnd
    EndIf

    [/autoit]


    Optionale Parameter, wie z.B. in das Flag im DirMove() werden nicht in eckige Klammern gesetzt. ;)

  • Dateiinhalte vergleichen

    &quot;in etwa so - ungetestet&quot;
    [autoit]

    #include <array.au3>
    #include <File.au3>

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

    $File3 = "test3.txt"
    $aFile1 = _ReadToArray("test.txt")
    $aFile2 = _ReadToArray("test2.txt")

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

    For $i = 1 To UBound($aFile1) - 1
    $index = _ArraySearch($aFile2, $aFile1[$i][0], 0, 0, 1, 0, 1)
    If Not @error Then
    If $aFile1[$i][1] <> $aFile2[$index][1] Then
    FileWriteLine($File3, $aFile1[$i][0] & " " & $aFile1[$i][1])
    EndIf
    ElseIf @error = 6 Then
    FileWriteLine($File3, $aFile1[$i][0] & " " & $aFile1[$i][1])
    EndIf
    Next

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

    Func _ReadToArray($File)
    Local $a2d[1][2], $aFile
    _FileReadToArray($File, $aFile)
    For $i = 1 To $aFile[0]
    _Array2DAdd($a2d, StringReplace($aFile[$i], " ", "|", 1))
    Next
    Return $a2d
    EndFunc ;==>_ReadToArray

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

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;
    ; Function _Array2DAdd(ByRef $avArray, $sValue='')
    ;
    ; Description Redim Array Size and add an Array element at last position
    ; Works with any occurences in 2nd Dimension
    ; Works also with 1D-Array
    ;
    ; Parameter $avArray Given Array
    ; optional $sValue Value of new Element, parts must be seperate with '|'
    ;
    ; Return Succes -1
    ; Failure 0 and set @error
    ; @error = 1 given array is not array
    ; @error = 2 given parts of Element too less/much
    ;
    ; Author BugFix ([email='bugfix@autoit.de'][/email])
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    Func _Array2DAdd(ByRef $avArray, $sValue = '')
    If (Not IsArray($avArray)) Then
    SetError(1)
    Return 0
    EndIf
    Local $UBound2nd = UBound($avArray, 2)
    If @error = 2 Then
    ReDim $avArray[UBound($avArray) + 1]
    $avArray[UBound($avArray) - 1] = $sValue
    Else
    Local $arValue
    ReDim $avArray[UBound($avArray) + 1][$UBound2nd]
    If $sValue = '' Then
    For $i = 0 To $UBound2nd - 2
    $sValue &= '|'
    Next
    EndIf
    $arValue = StringSplit($sValue, '|')
    If $arValue[0] <> $UBound2nd Then
    SetError(2)
    Return 0
    EndIf
    For $i = 0 To $UBound2nd - 1
    $avArray[UBound($avArray) - 1][$i] = $arValue[$i + 1]
    Next
    EndIf
    Return -1
    EndFunc ;==>_Array2DAdd

    [/autoit]

    edit: Ich les grad, du schreibst da zwar

    Zitat

    1. Pfad + Wert aus Datei 1 lesen

    Scheint aber eher andersrum in deiner Datei zu stehen. In dem Fall müssten die Werte für die Dimensionen im _ArraySearch() verändert werden.

    Spoiler anzeigen
    [autoit]


    For $i = 1 To UBound($aFile1) - 1
    $index = _ArraySearch($aFile2, $aFile1[$i][1], 0, 0, 1, 0, 1)
    If Not @error Then
    If $aFile1[$i][0] <> $aFile2[$index][0] Then
    FileWriteLine($File3, $aFile1[$i][0] & " " & $aFile1[$i][1])
    EndIf
    ElseIf @error = 6 Then
    FileWriteLine($File3, $aFile1[$i][0] & " " & $aFile1[$i][1])
    EndIf
    Next

    [/autoit]

  • Jedesmal +1

    [autoit]

    #include <array.au3>
    #include <File.au3>

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

    $aFiles = _FileListToArray(@ScriptDir, "text_*.txt", 1)
    If IsArray($aFiles) Then
    _ArraySort($aFiles, 1, 1)
    $aArray = StringRegExp($aFiles[1], "_(\d+)\.", 3)
    $hFile = FileOpen(@ScriptDir & "\text_" & $aArray[0] + 1 & ".txt", 2)
    FileClose($hFile)
    Else
    $hFile = FileOpen(@ScriptDir & "\text_1.txt", 2)
    FileClose($hFile)
    EndIf

    [/autoit]

  • Datei auslesen und im MsgBox ausgeben ?

    Weil's so schön ist, noch eine Version. Etwas umständlich, funktioniert aber auch, wenn die Versionsnummer mal 2stellig wird (10.0).

    [autoit]

    $Version = IniRead($logfile,"LuxCAD","Version", "")
    MsgBox(0,0,StringFormat("Version: %d.%d vom 20%d-%d-%d", StringTrimRight(StringTrimRight($version, 8), 1) ,StringRight(StringTrimRight($version, 8),1),StringRight(StringTrimRight($version, 6), 2), StringRight(StringTrimRight($version, 4), 2), StringRight(StringTrimRight($version, 2), 2)))

    [/autoit]

  • Neuling sucht Hilfe für Wenn, dann mit Text und Ja/nein

    Zitat

    Edit: Habs mir jetz doch nochmal genauer angeschaut Also soweit komm ich damit auch klar, allerdings berechnet er Krankheit 1 und Krankheit 3 selbst wenn kein Haken drinn ist, Krankheit 2 berücksichtigt er gar nicht


    Das scheint mir aber zu funktionieren. Schau bitte nochmal ob du auch den aktuellen Code hast. Ich musste da zwischenzeitlich was korrigieren, hatte ein GUICtrlRead() vergessen.

  • Input in ini schreiben und auslesen.

    Er überschreibt beim 2ten schliessen die Werte, weil die Inputs leer sind. Wenn du beim öffnen des Einstellungsfensters die Werte aus der Ini holst, umgehst du das Problem.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    ;------------------------------------------------------
    $font = "Times New Roman FETT"
    Global Const $sINI = @ScriptDir & "\config.ini"
    ;------------------------------------------------------
    GUICreate("Stundenplan Maker 1.0", 600, 390)
    $title = GUICtrlCreateLabel("Stundenplan Maker 1.0", 25, 25, 200, 25)
    GUICtrlSetFont(-1, 15, -1, -1, $font)
    GUISetBkColor(0xFFFFFF)
    ;------------------------------------------------------
    GUICtrlCreateLabel("08:10", 35, 100)
    GUICtrlCreateLabel("08:10", 35, 125)
    GUICtrlCreateLabel("08:10", 35, 150)
    GUICtrlCreateLabel("08:10", 35, 175)
    GUICtrlCreateLabel("08:10", 35, 200)
    GUICtrlCreateLabel("08:10", 35, 225)
    GUICtrlCreateLabel("08:10", 35, 250)
    GUICtrlCreateLabel("08:10", 35, 275)
    GUICtrlCreateLabel("08:10", 35, 300)
    GUICtrlCreateLabel("Montag", 110, 68, 100, 20)
    GUICtrlSetFont(-1, 11, -1, -1, $font)
    GUICtrlCreateLabel("Dienstag", 204, 68, 100, 20)
    GUICtrlSetFont(-1, 11, -1, -1, $font)
    GUICtrlCreateLabel("Mittwoch", 298, 68, 100, 20)
    GUICtrlSetFont(-1, 11, -1, -1, $font)
    GUICtrlCreateLabel("Donnerstag", 389, 68, 100, 20)
    GUICtrlSetFont(-1, 11, -1, -1, $font)
    GUICtrlCreateLabel("Freitag", 500, 68, 100, 20)
    GUICtrlSetFont(-1, 11, -1, -1, $font)
    ;------------------------------------------------------
    ;Montag
    GUICtrlCreateLabel("1", 100, 100, 70)
    GUICtrlCreateLabel("1", 100, 125, 70)
    GUICtrlCreateLabel("1", 100, 150, 70)
    GUICtrlCreateLabel("1", 100, 175, 70)
    GUICtrlCreateLabel("1", 100, 200, 70)
    GUICtrlCreateLabel("1", 100, 225, 70)
    GUICtrlCreateLabel("1", 100, 250, 70)
    GUICtrlCreateLabel("1", 100, 275, 70)
    GUICtrlCreateLabel("1", 100, 300, 70)
    ;Dienstag
    GUICtrlCreateLabel("1", 195, 100, 70)
    GUICtrlCreateLabel("1", 195, 125, 70)
    GUICtrlCreateLabel("1", 195, 150, 70)
    GUICtrlCreateLabel("1", 195, 175, 70)
    GUICtrlCreateLabel("1", 195, 200, 70)
    GUICtrlCreateLabel("1", 195, 225, 70)
    GUICtrlCreateLabel("1", 195, 250, 70)
    GUICtrlCreateLabel("1", 195, 275, 70)
    GUICtrlCreateLabel("1", 195, 300, 70)
    ;Mittwoch
    GUICtrlCreateLabel("1", 292, 100, 70)
    GUICtrlCreateLabel("1", 292, 125, 70)
    GUICtrlCreateLabel("1", 292, 150, 70)
    GUICtrlCreateLabel("1", 292, 175, 70)
    GUICtrlCreateLabel("1", 292, 200, 70)
    GUICtrlCreateLabel("1", 292, 225, 70)
    GUICtrlCreateLabel("1", 292, 250, 70)
    GUICtrlCreateLabel("1", 292, 275, 70)
    GUICtrlCreateLabel("1", 292, 300, 70)
    ;Donnerstag
    GUICtrlCreateLabel("1", 390, 100, 70)
    GUICtrlCreateLabel("1", 390, 125, 70)
    GUICtrlCreateLabel("1", 390, 150, 70)
    GUICtrlCreateLabel("1", 390, 175, 70)
    GUICtrlCreateLabel("1", 390, 200, 70)
    GUICtrlCreateLabel("1", 390, 225, 70)
    GUICtrlCreateLabel("1", 390, 250, 70)
    GUICtrlCreateLabel("1", 390, 275, 70)
    GUICtrlCreateLabel("1", 390, 300, 70)
    ;Freitag
    GUICtrlCreateLabel("1", 489, 100, 70)
    GUICtrlCreateLabel("1", 489, 125, 70)
    GUICtrlCreateLabel("1", 489, 150, 70)
    GUICtrlCreateLabel("1", 489, 175, 70)
    GUICtrlCreateLabel("1", 489, 200, 70)
    GUICtrlCreateLabel("1", 489, 225, 70)
    GUICtrlCreateLabel("1", 489, 250, 70)
    GUICtrlCreateLabel("1", 489, 275, 70)
    GUICtrlCreateLabel("1", 489, 300, 70)
    ;------------------------------------------------------
    GUICtrlCreateGroup("Zeit", 25, 57, 50, 265)
    GUICtrlSetFont(-1, 11, -1, -1, $font)
    GUICtrlCreateGroup("", 85, 57, 490, 265)
    GUICtrlCreateGroup("", 85, 57, 490, 35)
    GUICtrlCreateGroup("", 85, 57, 392, 35)
    GUICtrlCreateGroup("", 85, 57, 294, 35)
    GUICtrlCreateGroup("", 85, 57, 196, 35)
    GUICtrlCreateGroup("", 85, 57, 98, 35)
    ;------------------------------------------------------
    $Menu1 = GUICtrlCreateMenu("Datei")
    $Menu1_1 = GUICtrlCreateMenuItem("Speicherdaten löschen", $Menu1)

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

    $Menu2 = GUICtrlCreateMenu("Einstellungen")
    $Menu2_1 = GUICtrlCreateMenuItem("Stundenplan", $Menu2)
    ;------------------------------------------------------
    GUISetState(@SW_SHOW)

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $Menu2_1
    $hSubGui = GUICreate("Stundenplan Einstellungen", 690, 600)
    GUISetBkColor(0xFFFFFF)
    GUISetState(@SW_SHOW)
    ;---------------------------------------
    ;$Button1 = GUICtrlCreateButton("Laden",565,45,100)
    $Button2 = GUICtrlCreateButton("Speichern", 565, 70, 100)
    $Button3 = GUICtrlCreateButton("Abbrechen", 565, 95, 100)
    ;---------------------------------------
    GUICtrlCreateLabel("Zeit:", 25, 25, 50, 25)
    GUICtrlSetFont(-1, 11, -1, -1, $font)
    GUICtrlCreateLabel("1. Stunde:", 25, 50)
    GUICtrlCreateLabel("2. Stunde:", 25, 75)
    GUICtrlCreateLabel("3. Stunde:", 25, 100)
    GUICtrlCreateLabel("4. Stunde:", 25, 125)
    GUICtrlCreateLabel("5. Stunde:", 25, 150)
    GUICtrlCreateLabel("6. Stunde:", 25, 175)
    GUICtrlCreateLabel("7. Stunde:", 25, 200)
    GUICtrlCreateLabel("8. Stunde:", 25, 225)
    GUICtrlCreateLabel("9. Stunde:", 25, 250)
    GUICtrlCreateLabel("10. Stunde:", 25, 275)

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

    GUICtrlCreateLabel(":", 126, 50, 5)
    GUICtrlCreateLabel(":", 126, 75, 5)
    GUICtrlCreateLabel(":", 126, 100, 5)
    GUICtrlCreateLabel(":", 126, 125, 5)
    GUICtrlCreateLabel(":", 126, 150, 5)
    GUICtrlCreateLabel(":", 126, 175, 5)
    GUICtrlCreateLabel(":", 126, 200, 5)
    GUICtrlCreateLabel(":", 126, 225, 5)
    GUICtrlCreateLabel(":", 126, 250, 5)
    GUICtrlCreateLabel(":", 126, 275, 5)

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

    GUICtrlCreateLabel("Montag:", 25, 300, 100, 25)
    GUICtrlSetFont(-1, 11, -1, -1, $font)
    GUICtrlCreateLabel("1. Stunde:", 25, 325)
    GUICtrlCreateLabel("2. Stunde:", 25, 350)
    GUICtrlCreateLabel("3. Stunde:", 25, 375)
    GUICtrlCreateLabel("4. Stunde:", 25, 400)
    GUICtrlCreateLabel("5. Stunde:", 25, 425)
    GUICtrlCreateLabel("6. Stunde:", 25, 450)
    GUICtrlCreateLabel("7. Stunde:", 25, 475)
    GUICtrlCreateLabel("8. Stunde:", 25, 500)
    GUICtrlCreateLabel("9. Stunde:", 25, 525)
    GUICtrlCreateLabel("10. Stunde:", 25, 550)

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

    GUICtrlCreateLabel("Dienstag:", 205, 25, 100, 25)
    GUICtrlSetFont(-1, 11, -1, -1, $font)
    GUICtrlCreateLabel("1. Stunde:", 205, 50)
    GUICtrlCreateLabel("2. Stunde:", 205, 75)
    GUICtrlCreateLabel("3. Stunde:", 205, 100)
    GUICtrlCreateLabel("4. Stunde:", 205, 125)
    GUICtrlCreateLabel("5. Stunde:", 205, 150)
    GUICtrlCreateLabel("6. Stunde:", 205, 175)
    GUICtrlCreateLabel("7. Stunde:", 205, 200)
    GUICtrlCreateLabel("8. Stunde:", 205, 225)
    GUICtrlCreateLabel("9. Stunde:", 205, 250)
    GUICtrlCreateLabel("10. Stunde:", 205, 275)

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

    GUICtrlCreateLabel("Mittwoch:", 205, 300, 100, 25)
    GUICtrlSetFont(-1, 11, -1, -1, $font)
    GUICtrlCreateLabel("1. Stunde:", 205, 325)
    GUICtrlCreateLabel("2. Stunde:", 205, 350)
    GUICtrlCreateLabel("3. Stunde:", 205, 375)
    GUICtrlCreateLabel("4. Stunde:", 205, 400)
    GUICtrlCreateLabel("5. Stunde:", 205, 425)
    GUICtrlCreateLabel("6. Stunde:", 205, 450)
    GUICtrlCreateLabel("7. Stunde:", 205, 475)
    GUICtrlCreateLabel("8. Stunde:", 205, 500)
    GUICtrlCreateLabel("9. Stunde:", 205, 525)
    GUICtrlCreateLabel("10. Stunde:", 205, 550)

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

    GUICtrlCreateLabel("Donnerstag:", 385, 25, 100, 25)
    GUICtrlSetFont(-1, 11, -1, -1, $font)
    GUICtrlCreateLabel("1. Stunde:", 385, 50)
    GUICtrlCreateLabel("2. Stunde:", 385, 75)
    GUICtrlCreateLabel("3. Stunde:", 385, 100)
    GUICtrlCreateLabel("4. Stunde:", 385, 125)
    GUICtrlCreateLabel("5. Stunde:", 385, 150)
    GUICtrlCreateLabel("6. Stunde:", 385, 175)
    GUICtrlCreateLabel("7. Stunde:", 385, 200)
    GUICtrlCreateLabel("8. Stunde:", 385, 225)
    GUICtrlCreateLabel("9. Stunde:", 385, 250)
    GUICtrlCreateLabel("10. Stunde:", 385, 275)

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

    GUICtrlCreateLabel("Freitag:", 385, 300, 100, 25)
    GUICtrlSetFont(-1, 11, -1, -1, $font)
    GUICtrlCreateLabel("1. Stunde:", 385, 325)
    GUICtrlCreateLabel("2. Stunde:", 385, 350)
    GUICtrlCreateLabel("3. Stunde:", 385, 375)
    GUICtrlCreateLabel("4. Stunde:", 385, 400)
    GUICtrlCreateLabel("5. Stunde:", 385, 425)
    GUICtrlCreateLabel("6. Stunde:", 385, 450)
    GUICtrlCreateLabel("7. Stunde:", 385, 475)
    GUICtrlCreateLabel("8. Stunde:", 385, 500)
    GUICtrlCreateLabel("9. Stunde:", 385, 525)
    GUICtrlCreateLabel("10. Stunde:", 385, 550)
    ;---------------------------------------
    $Combo1 = GUICtrlCreateCombo("00", 85, 47, 35, 20)
    $Combo2 = GUICtrlCreateCombo("00", 135, 47, 35, 20)
    $Combo3 = GUICtrlCreateCombo("00", 85, 72, 35, 20)
    $Combo4 = GUICtrlCreateCombo("00", 135, 72, 35, 20)
    $Combo5 = GUICtrlCreateCombo("00", 85, 97, 35, 20)
    $Combo6 = GUICtrlCreateCombo("00", 135, 97, 35, 20)
    $Combo7 = GUICtrlCreateCombo("00", 85, 122, 35, 20)
    $Combo8 = GUICtrlCreateCombo("00", 135, 122, 35, 20)
    $Combo9 = GUICtrlCreateCombo("00", 85, 147, 35, 20)
    $Combo10 = GUICtrlCreateCombo("00", 135, 147, 35, 20)
    $Combo11 = GUICtrlCreateCombo("00", 85, 172, 35, 20)
    $Combo12 = GUICtrlCreateCombo("00", 135, 172, 35, 20)
    $Combo13 = GUICtrlCreateCombo("00", 85, 197, 35, 20)
    $Combo14 = GUICtrlCreateCombo("00", 135, 197, 35, 20)
    $Combo15 = GUICtrlCreateCombo("00", 85, 222, 35, 20)
    $Combo16 = GUICtrlCreateCombo("00", 135, 222, 35, 20)
    $Combo17 = GUICtrlCreateCombo("00", 85, 247, 35, 20)
    $Combo18 = GUICtrlCreateCombo("00", 135, 247, 35, 20)
    $Combo19 = GUICtrlCreateCombo("00", 85, 272, 35, 20)
    $Combo20 = GUICtrlCreateCombo("00", 135, 272, 35, 20)

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

    $Input21 = GUICtrlCreateInput("", 85, 322, 100, 20)
    $Input22 = GUICtrlCreateInput("", 85, 347, 100, 20)
    $Input23 = GUICtrlCreateInput("", 85, 372, 100, 20)
    $Input24 = GUICtrlCreateInput("", 85, 397, 100, 20)
    $Input25 = GUICtrlCreateInput("", 85, 422, 100, 20)
    $Input26 = GUICtrlCreateInput("", 85, 447, 100, 20)
    $Input27 = GUICtrlCreateInput("", 85, 472, 100, 20)
    $Input28 = GUICtrlCreateInput("", 85, 497, 100, 20)
    $Input29 = GUICtrlCreateInput("", 85, 522, 100, 20)
    $Input30 = GUICtrlCreateInput("", 85, 547, 100, 20)

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

    $Input31 = GUICtrlCreateInput("", 265, 47, 100, 20)
    $Input32 = GUICtrlCreateInput("", 265, 72, 100, 20)
    $Input33 = GUICtrlCreateInput("", 265, 97, 100, 20)
    $Input34 = GUICtrlCreateInput("", 265, 122, 100, 20)
    $Input35 = GUICtrlCreateInput("", 265, 147, 100, 20)
    $Input36 = GUICtrlCreateInput("", 265, 172, 100, 20)
    $Input37 = GUICtrlCreateInput("", 265, 197, 100, 20)
    $Input38 = GUICtrlCreateInput("", 265, 222, 100, 20)
    $Input39 = GUICtrlCreateInput("", 265, 247, 100, 20)
    $Input40 = GUICtrlCreateInput("", 265, 272, 100, 20)

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

    $Input41 = GUICtrlCreateInput("", 265, 322, 100, 20)
    $Input42 = GUICtrlCreateInput("", 265, 347, 100, 20)
    $Input43 = GUICtrlCreateInput("", 265, 372, 100, 20)
    $Input44 = GUICtrlCreateInput("", 265, 397, 100, 20)
    $Input45 = GUICtrlCreateInput("", 265, 422, 100, 20)
    $Input45 = GUICtrlCreateInput("", 265, 447, 100, 20)
    $Input46 = GUICtrlCreateInput("", 265, 472, 100, 20)
    $Input47 = GUICtrlCreateInput("", 265, 497, 100, 20)
    $Input48 = GUICtrlCreateInput("", 265, 522, 100, 20)
    $Input49 = GUICtrlCreateInput("", 265, 547, 100, 20)

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

    $Input50 = GUICtrlCreateInput("", 445, 47, 100, 20)
    $Input51 = GUICtrlCreateInput("", 445, 72, 100, 20)
    $Input52 = GUICtrlCreateInput("", 445, 97, 100, 20)
    $Input53 = GUICtrlCreateInput("", 445, 122, 100, 20)
    $Input54 = GUICtrlCreateInput("", 445, 147, 100, 20)
    $Input55 = GUICtrlCreateInput("", 445, 172, 100, 20)
    $Input56 = GUICtrlCreateInput("", 445, 197, 100, 20)
    $Input57 = GUICtrlCreateInput("", 445, 222, 100, 20)
    $Input58 = GUICtrlCreateInput("", 445, 247, 100, 20)
    $Input59 = GUICtrlCreateInput("", 445, 272, 100, 20)

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

    $Input60 = GUICtrlCreateInput("", 445, 322, 100, 20)
    $Input61 = GUICtrlCreateInput("", 445, 347, 100, 20)
    $Input62 = GUICtrlCreateInput("", 445, 372, 100, 20)
    $Input63 = GUICtrlCreateInput("", 445, 397, 100, 20)
    $Input64 = GUICtrlCreateInput("", 445, 422, 100, 20)
    $Input65 = GUICtrlCreateInput("", 445, 447, 100, 20)
    $Input66 = GUICtrlCreateInput("", 445, 472, 100, 20)
    $Input67 = GUICtrlCreateInput("", 445, 497, 100, 20)
    $Input68 = GUICtrlCreateInput("", 445, 522, 100, 20)
    $Input69 = GUICtrlCreateInput("", 445, 547, 100, 20)
    ;---------------------------------------
    For $i = 21 To 69
    GUICtrlSetData(Eval("Input" & $i), IniRead($sINI, "config", "Input" & $i, ""))
    Next
    ;---------------------------------------
    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $msg = $Button2
    For $i = 21 To 69
    IniWrite(@ScriptDir & "\config.ini", "config", "Input" & $i, GUICtrlRead(Eval("Input" & $i)))
    Next
    ;Case $msg = $Button1
    ;GUICtrlSetData($Input21, IniRead(@ScriptDir & "\config.ini", "config","Input1", ""))
    Case $msg = $Button3
    GUIDelete($hSubGui)
    ExitLoop
    Case -3
    GUIDelete($hSubGui)
    ExitLoop
    EndSwitch
    WEnd
    Case $msg = $Menu1_1
    FileDelete($sINI)
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd

    [/autoit]

  • Neuling sucht Hilfe für Wenn, dann mit Text und Ja/nein

    &quot;eine Alternative&quot;
    [autoit]

    #include <GUIConstants.au3>

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

    #region ### START Koda GUI section ### Form=C:\Users\Jonas\Documents\Formen\Krank.kxf
    Opt("GUIOnEventMode", 1)
    Dim $aKranheiten[3][2] = [["Masern", 123], _
    ["Grippe", 230], _
    ["Pest", 500]]

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

    $Form1 = GUICreate("Form1", 278, 493, 192, 124)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    $Input1 = GUICtrlCreateInput("Input1", 16, 8, 121, 21)
    $Input2 = GUICtrlCreateInput("Input2", 16, 56, 121, 21)
    $left = 96
    $top = 248
    For $i = 0 To UBound($aKranheiten) - 1
    Assign("Checkbox" & $i, GUICtrlCreateCheckbox($aKranheiten[$i][0], $left, $top))
    $top += 20
    Next
    $Label1 = GUICtrlCreateLabel("Was gibt der Krnake", 160, 16, 101, 17)
    $Label2 = GUICtrlCreateLabel("Was wird abgezogen?", 160, 56, 110, 17)
    $Button1 = GUICtrlCreateButton("start", 88, 424, 89, 25, 0)
    GUICtrlSetOnEvent(-1, "_start")
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

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

    Func _start()
    Local $tmp = 0
    For $i = 0 To UBound($aKranheiten) - 1
    If BitAND(GUICtrlRead(Eval("checkbox" & $i)), $GUI_CHECKED) = $GUI_CHECKED Then
    $tmp += $aKranheiten[$i][1]
    EndIf
    Next
    $Result = GUICtrlRead($Input1) - GUICtrlRead($Input2) - $tmp
    MsgBox(0, "", $Result)
    EndFunc ;==>_start

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

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

    While 1
    Sleep(10)
    WEnd

    [/autoit]

  • Text ab einem bestimmten Zeichen löschen lassen?

    Warum nicht die Seite per $sSource=BinaryToString(InetRead("url",1)4) einlesen und dann ...

    Spoiler anzeigen
    [autoit]

    #include <array.au3>
    $string = '<a href="http://seite.de/ordner1"target="_blank"onclick="if(!this.className)this.className="clicked";">Ordner1</a><br>' & @crlf & _
    '<a href="http://seite.de/file7"target="_blank"onclick="if(!this.className)this.className='clicked';">File7</a><br>'

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

    $aResult = StringRegExp($string, '<a href=\"(.*?)\"', 3, 1)
    _ArrayDisplay($aResult)

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

    #cs ### Output ###
    [0] http://seite.de/ordner1[1] http://seite.de/file7
    #ce

    [/autoit]

  • Input in ini schreiben und auslesen.

    &quot;Beispiel&quot;
    [autoit]

    #include <GUIConstants.au3>

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

    #region - GUI Create
    GUICreate('', 200,200)
    $input = GUICtrlCreateInput("",8,8,100)
    $button1 = GUICtrlCreateButton("speichern", 8,35)
    $button2 = GUICtrlCreateButton("laden", 8,70)
    GUISetState()
    #endregion

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

    $ini = @ScriptDir & "\test.ini"

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

    #region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = $button1
    IniWrite($ini, "bla", "blub", GUICtrlRead($input))
    Case $msg =$button2
    GUICtrlSetData($input, IniRead($ini, "bla","blub", ""))
    EndSelect
    WEnd
    #endregion

    [/autoit]