1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Alina

Beiträge von Alina

  • Bilder aus Word extrahieren

    • Alina
    • 8. November 2021 um 13:26
    Zitat von Moombas

    Oder du fragst den Kindergarten einfach nach den Bildern...

    Moin Moombas.
    Ich sehe da ein rechtliches Problem. Wieso möchte man Bilder aus einer Datei extrahieren, wenn der Kindergarten die Bilder nur im PDF- / Worddokument zur Verfügung stellt. Das sollte zumeist (heißt das so?) eine Begründung haben, wenn Daten (hier Bilder) in dieser Form weiter gegeben werden.

    Aber allg. finde ich das Thema gut und ich lese weiter mit.

  • CalcFontSize

    • Alina
    • 4. Oktober 2021 um 19:38

    Oscar

    Das habe ich schon länger gesucht.

    D A N K E !

  • Do Until - Systemzeit funktioniert nicht

    • Alina
    • 1. Oktober 2021 um 14:38

    Moin zusammen.

    Wenn ich es richtig verstehe, gibt es Problem bei sich regelmäßigen widerholenden Abläufen.
    Wieso da nicht einen CronTab verwenden.

    Kleine lustige Randbemerkung:
    Wenn ich morgens den PC an mache im Büro, dann führe ich einen CronTab durch der mehr als 100 Aufgaben abarbeitet. Die erste ist immer (!) das externe DVD-LW einmal zu öffnen und zu schließen. Das LW wurde nicht mehr benötigt und bekam eine neue Aufgabe. Ich habe einfach ein alten Bleistift daran festgeklebt und wenn das LW auf geht, drückt der Bleistift einen Knopf, der dann eine Steckdosenzeile an schlatet und was ist da wohl dran? Richtig, die Kaffeemaschiene.

    Quellcode ist nicht von mir. Habe ich selber zu meiner Anfangszeit mal zugesendet bekommen.

    Code
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Icon=icon.ico
    #AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    
    
    
    #cs
    Wer CronTab kennt und regelmäßig geiche Abläufe hat, wird diese kleine EXE-Datei lieben.
            Jeden Morgen Daten digital abholen? Macht CronTab
            Immer um 14:00 Uhr und 20:00 Uhr Datenupdate Ser-1 / Ser-2? Macht CronTab
            Ja an jeden Geburtstag denken? Macht CronTab
            Am 03.07.2015 ein Buch bestellen? CronTab erinnert mich an jedem Montag im Juni daran,
            das ich es schon vorbestellen kann.
    
            Also CronTab ist schon was feines.
    
    
    Dies ist ein Beispiel für eine Datei. CRONTAB.txt
    
     ###########################################################################################
     #  -------------Minuten (0 - 59)
     # | ----------- Stunden (0 - 23)
     # | | --------- Tag des Monats (1-31)
     # | | | ------- Monat (1-12)
     # | | | | ----- Tag der Woche (0 - 7) (Sonntag = 0 Montag = 1 ... 6 = Samstag, Sonntag = 7)
     # | | | | |
     # * * * * * Befehl, der ausgeführt werden soll.
     #
     #
     # I ist gültig, wenn alle Werte aktiv die Ausführung des Crom ermöglichen sollen
     # * Bedeutet, dass alle Werte gültig sind
     # / Aktivieren einer Wiederholung z. B. / 15 beduetet alle 15 Minuten
     # - Erlaubt die Definition einer Reihe  z. B. "1-5  * * * *" bedeutet es wird zu jeder vollen Stunden 1. - 5. Minute
     # , Legt mehrere Werte fest bzw. trennt Werte voneinander
     #
     # Interne Befehle
     # ~~~~~~~~~~~~~~~~~~~~
     #: Kill <proceso> Prozess endet also: kill iexplore.exe schließt den Internetexplorer
     #: off     schaltet den PC aus Computer
     #: exit    beendet den Cronjob
     #: reboot  Computer neu gestarten
     #: Beep <frequenz> <dauer im Millisekunden> zB: beep 500 1000
     #: play <name> z. B.: :play c: \ windows \ medien \ tada.wav
     # () <Title> () <text> Nachricht  z. B. () alert () Dies ist eine Botschaft der Nachweis | | Dies ist eine weitere
     #
     ################################################## ######################################
    
     # Dies ist ein Kommentar
     # Stunden Minuten Tage Monate Wochentag
     #
     # Es wird jede Minute
     * * * * * Command
    
     # Wird jede Minute von 18:00 Uhr bis 18:59 Uhr
     # * 18 * * * Kommando
    
     # Es läuft Montag jede Minute
     * * * * 1 Kommando
    
     # Message
     * * * * * () Titel () Nachricht | | Eine weitere Linie
    
     # Öffnet die Datei reg.log beim starten des Cron
     i i i i i reg.log
    
     # Öffnen die Datei reg.log werktags (Mo.- Fr.) zu beginnen, wenn der Cron startet
     i i i i 1-5 reg.log
    
     # Schließt das Programm Notepad beim starten von Cron
     i * * * *: kill notepad.exe
    
     # Schaltet den PC Montag, Dienstag, Mittwoch, Donnerstag und Freitag um 20:00 Uhr aus.
     # Samstags und sonntags um 22:30 Uhr
     # 0 20 * * 1: off
     # 0 20 * * 2: off
     # 0 20 * * 3: off
     # 0 20 * * 4: off
     # 0 20 * * 5: off
     # 30 22 * * 6: off
     # 30 22 * * 0: off
    
     # Dies macht das gleiche wie oben
     # 0 20 * * 1-5: off
     # 30 22 * * 6.7: off
    
     # tägliches herunterfahren des PC's um 22:25
     # 25 22 * * *: off
    
     Run CCleaner # mit dem Parameter / auto am Sonntag um 00:00 Uhr (Mitternacht)
     # "Pfad zu Datei incl. ausführbare Datei" || / Parameter
     # 0 0 * * 7 "C: \ Program Files \ CCleaner \ ccleaner.exe" || / auto
    
     # erst um 5:59 die Ausgabe einer Info, das der PC gleich ausschaltet
     # und um 6:00 Uhr schaltet der PC dann aus.
     59 5 * * * () exit () Computer wird ausgeschaltet in | | einer Minuten um 6:00
     0 6 * * * : off
    
     # 750 Hz-Ton für eine 1/2 Sekunde
     * * * * * Beep 750 500
    
     # Audio-Datei c: \ windows \ medien \ tada.wav Flügel alle 15 Minuten Knochenmark 0 15 30 45
     # * / 15 * * * *: spielen c: \ windows \ medien \ tada.wav
    
    
    
    
    #ce
    
    
    ;#NoTrayIcon
    ;Opt("RunFehlersFatal", 0)
    
    
    Global $comando = ""
    
    
    
    $fileReg = FileOpen("reg.log", 1)
    If $fileReg = -1 Then
       MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
    EndIf
    FileWriteLine($fileReg, "")
    FileWriteLine($fileReg, "CronJob ( " & @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " )")
    FileWriteLine($fileReg, "-------------------------------------------")
    FileClose($fileReg)
    
    $segundos = 0
    $y = 0
    Dim $subcom[6]
    $subcom[0] = 0
    $subcom[1] = 0
    $subcom[2] = 0
    $subcom[3] = 0
    $subcom[4] = 0
    $subcom[5] = 0
    
    
    $Iminutos = Number(@MIN)
    $Ihoras = Number(@HOUR)
    $Imes = Number(@MON)
    $Idia_mes = Number(@MDAY)
    $Idia_semana = Number(@WDAY) - 1
    
    While 1
       Dim $par[6]
       $minutos = Number(@MIN)
       $par[1] = Number(@MIN)
       $horas = Number(@HOUR)
       $par[2] = Number(@HOUR)
       $mes = Number(@MON)
       $par[3] = Number(@MON)
       $dia_mes = Number(@MDAY)
       $par[4] = Number(@MDAY)
       $dia_semana = Number(@WDAY) - 1
       $par[5] = Number(@WDAY)
       $espera = 60000
       abrir()
       $segundos = (@SEC) * 1000
    
       $espera = $espera - $segundos
    
       Sleep($espera)
    WEnd
    
    
    Func abrir()
       $file = FileOpen(".CRONTAB", 0)
       If $file = -1 Then
          $file = FileOpen("CRONTAB", 0)
          If $file = -1 Then
             $file = FileOpen("CRONTAB.txt", 0)
             If $file = -1 Then
                MsgBox(0, "Fehler", "Crontab-Datei konnte nicht geöffnet werden.")
                Exit
             EndIf
          EndIf
       EndIf
    
    
       While 1
          $line = FileReadLine($file)
          If @error = -1 Then ExitLoop
          $primero = StringMid($line, 1, 1)
    
          If StringIsDigit($primero) Or StringInStr($primero, "*") Or StringInStr($primero, "I") Or StringInStr($primero, "i") = 1 Then
             FunRum($line)
          EndIf
       WEnd
       $subcom[0] = 0
       FileClose($file)
    EndFunc
    
    
    Func FunRum($line)
    
       $line = StringStripWS($line, 4)
       $parametros = StringSplit($line, " ")
    
       If $parametros[1] = "I" Or $parametros[1] = "i" Then
          $parametros[1] = $Iminutos
       EndIf
       If $parametros[2] = "I" Or $parametros[2] = "i" Then
          $parametros[2] = $Ihoras
       EndIf
       If $parametros[3] = "I" Or $parametros[3] = "i" Then
          $parametros[3] = $Idia_mes
       EndIf
       If $parametros[4] = "I" Or $parametros[4] = "i" Then
          $parametros[4] = $Imes
       EndIf
       If $parametros[5] = "I" Or $parametros[5] = "i" Then
          $parametros[5] = $Idia_semana
       EndIf
       If Number($parametros[5]) = 0 And StringMid($parametros[5], 1, 1) <> "*" Then
          $parametros[5] = 7
       EndIf
       If $dia_semana = 0 Then
          $dia_semana = 7
       EndIf
       If $par[5] = 0 Then
          $par[5] = 7
       EndIf
    
       Dim $multiples[6]
       Dim $rango[6]
       $subcom[0] = 0
       $subcom[1] = 0
       $subcom[2] = 0
       $subcom[3] = 0
       $subcom[4] = 0
       $subcom[5] = 0
       For $p = 1 To 5
          If StringInStr($parametros[$p], ",") Then
    
             $mul = StringSplit($parametros[$p], ",")
             For $p2 = 1 To $mul[0]
                ;
                If Number($mul[$p2]) = $par[$p] Then
                   $multiples[$p] = 1
                EndIf
             Next
          Else
             If StringInStr($parametros[$p], "-") Then
    
                $ran = StringSplit($parametros[$p], "-")
                If Number($ran[1]) >= $par[$p] And Number($ran[2]) <= $par[$p] Then
                   $rango[$p] = 1
                EndIf
             EndIf
          EndIf
    
          If StringInStr($parametros[$p], "/") > 0 Then ;1
             $ss = StringSplit($parametros[$p], "/")
             If $minutos = 0 Then
                $minutos = 60
             EndIf
             If $par[1] = 0 Then
                $par[1] = 60
             EndIf
             If Number($horas) = 0 Then
                $horas = 24
             EndIf
             If $par[2] = 0 Then
                $par[1] = 24
             EndIf
             If Mod($par[$p], Number($ss[2])) = 0 Then
                $subcom[$p] = 0
             Else
                $subcom[$p] = 1
             EndIf
             If $minutos = 60 Then
                $minutos = 0
             EndIf
             If $par[1] = 60 Then
                $par[1] = 0
             EndIf
             If $horas = 24 Then
                $horas = 0
             EndIf
             If $par[2] = 24 Then
                $par[2] = 0
             EndIf
    
          Else
             $subcom[$p] = 0
          EndIf
    
       Next
    
       If (Number($parametros[1]) = $minutos Or StringMid($parametros[1], 1, 1) = "*" Or $multiples[1] Or $rango[1]) And $subcom[1] = 0 Then
          If (Number($parametros[2]) = $horas Or StringMid($parametros[2], 1, 1) = "*" Or $multiples[2] Or $rango[2]) And $subcom[2] = 0 Then
             If (Number($parametros[3]) = $dia_mes Or StringMid($parametros[3], 1, 1) = "*" Or $multiples[3] Or $rango[3]) And $subcom[3] = 0 Then
                If (Number($parametros[4]) = $mes Or StringMid($parametros[4], 1, 1) = "*" Or $multiples[4] Or $rango[4]) And $subcom[4] = 0 Then
                   If (Number($parametros[5]) = $dia_semana Or StringMid($parametros[5], 1, 1) = "*" Or $multiples[5] Or $rango[5]) And $subcom[5] = 0 Then
                      correcto($parametros)
                   EndIf
                EndIf
             EndIf
          EndIf
       EndIf
       $multiples = 0
       $rango = 0
    EndFunc
    
    
    Func correcto($parametros)
       $parametros[6] = StringUpper($parametros[6])
       Select
          Case $parametros[6] = "()"
             comando_interno($parametros)
          Case $parametros[6] = ":kill"
             $comando = $parametros[7]
             $x = 8
             While $x < UBound($parametros)
                $comando = $comando & " " & $parametros[$x]
                $x = $x + 1
             WEnd
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | kill | " & $comando)
             FileClose($fileReg)
             While ProcessExists($comando)
                ;
                ProcessClose($comando);---------------- Prozess killen
             WEnd
          Case $parametros[6] = ":off"
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | off")
             FileClose($fileReg)
             Shutdown(13);---------------- Herunterfahren erzwingen und Strom aus schalten
          Case $parametros[6] = ":reboot"
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | reboot")
             FileClose($fileReg)
             Shutdown(6);---------------- Herunterfahren erzwingen und Neustart
          Case $parametros[6] = ":exit"
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | Exit")
             FileClose($fileReg)
             While ProcessExists(@ScriptName);---------------- Beendet die Cronjob Datei / Software
                ProcessClose(@ScriptName)
             WEnd
          Case $parametros[6] = ":beep"
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | beep " & $parametros[7] & " " & $parametros[8])
             FileClose($fileReg)
             Beep($parametros[7], $parametros[8])
          Case $parametros[6] = ":play"
             $comando = $parametros[7]
             $x = 8
             While $x < UBound($parametros)
                $comando = $comando & " " & $parametros[$x]
                $x = $x + 1
             WEnd
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | play | " & $comando)
             FileClose($fileReg)
             SoundPlay($comando);---------------- gibt den Ton (Beep) aus
          Case Else
             ;
             Local $comando[2]
             $comando = unir_comando($parametros)
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | " & $comando[0] & " " & $comando[1])
             FileClose($fileReg)
             ShellExecute($comando[0], $comando[1]);---------------- laufende Parameter
       EndSelect
    
    EndFunc
    
    
    Func unir_comando($parametros)
       ;
       Local $comando[2]
       $comando[1] = " "
       $xy = 0
       $comando[$xy] = $parametros[6]
       $x = 7
       While $x < UBound($parametros)
          If $parametros[$x] = "||" Then
             $xy = 1
          Else
             $comando[$xy] = $comando[$xy] & " " & $parametros[$x]
          EndIf
          $x = $x + 1
       WEnd
       Return $comando
    EndFunc
    
    Func comando_interno($parametros)
       ;
       $titulo = $parametros[7]
       $comodin = "nein"
       $x = 8
       While $x < UBound($parametros)
          If $comodin = "ja" Then
             $comando = $comando & " " & $parametros[$x]
          Else
             If $parametros[$x] <> "()" Then
                $titulo = $titulo & " " & $parametros[$x]
             EndIf
          EndIf
          If $parametros[$x] = "()" Then
             $x = $x + 1
             $comando = $parametros[$x]
             $comodin = "ja"
          EndIf
          $x = $x + 1
       WEnd
       $fileReg = FileOpen("reg.log", 1)
       If $fileReg = -1 Then
          MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
       EndIf
       FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | " & $titulo & " |" & $comando)
       FileClose($fileReg)
    
       $comando = StringReplace($comando, "||", @CRLF)
       MsgBox(0, $titulo, $comando, 15)
    
    
    EndFunc
    Alles anzeigen
  • emulierte Tastatureingabe eines RFID-Scanners in Variable schreiben

    • Alina
    • 17. September 2021 um 13:50
    Zitat von funkey

    Und wenn du das Input-Feld außerhalb der Gui 'anzeigst'?

    funkey Wie sagt man das? Zwei "Dummies", ein Gedanken?
    Ich dachte als ich Post-1 gelesen hatte: wieso nicht kleine Inputfeld verwenden und einfach die Positionsangabe der Inpubox außerhalb der grafischen Darstellung angeben.
    Das was Du gemacht hast ist na klar viel besser.

  • Wie kann ich alle laufenden Tasks "chrome.exe" beenden?

    • Alina
    • 5. Juli 2021 um 15:46

    Moin.

    Also bei mir sehe ich so, ob ein Process aktiv ist und dann "kill" ich den.
    Beim Bsp. handelt es sich um zwei Processe die beim Start des BS/OS Win7 von Windows aufgerufen wird und der mich immer störten.

    Spoiler anzeigen
    Code
    While 1
    ProcessClose("GWX.exe")
    Local $PID = ProcessExists("GWX.exe") ; Gibt die PID des Prozesses zurück oder 0, falls der Prozess nicht gefunden wurde.
    If $PID Then ProcessClose($PID)
    
    ; Wartet bis kein Prozess mehr von GWX.exe existiert
    ProcessWaitClose("GWX.exe")
    Sleep(1000)
    ProcessClose("GWXUX.exe")
    Local $PID = ProcessExists("GWX.exe") ; Gibt die PID des Prozesses zurück oder 0, falls der Prozess nicht gefunden wurde.
    If $PID Then ProcessClose($PID)
    ; Wartet bis kein Prozess mehr von GWXUX.exe existiert
    ProcessWaitClose("GWXUX.exe")
    Sleep(1000)
    WEnd
    Alles anzeigen
  • FreeBasic Debug Hilfe

    • Alina
    • 5. Juni 2021 um 14:20

    es erscheind kurz eine Fenster von "Dos" (schwarzer Hintergrund) und das verschwindet dann. danach nichts zu sehen, auch unten re. nichts zu sehen

  • Dienstreisen in Coronazeiten

    • Alina
    • 7. Dezember 2020 um 19:32

    Moin zusammen.

    Also in Coronazeiten eine berufliche Fernreise zu machen kann ein Abenteuer werden. Ab dem 14.12. geht es los. Zwei Kollegen sind vorgereist um die bürokratischen Dinge vorab zu klären und Zimmer / Räume anzumieten. Es geht in den nördlichsten Westen von Australien. Endflugplatz: Weipa Airport. Sie berichten die Tage und ich habe gar keine Lust dieses mal. Überall andere Corona Vorgaben und Teilweise wohl total schechte Internetverbindung (wir haben das 21. Jahrhundert! :( ) und ..... Ach man, das wird mal eine total bescheidende Dienstreise, weil wir noch immer nicht wissen, wie es aussieht, wenn wir einreisen. Akutelle Teste nehmen wir mit, aber die sollen da wohl derzeitig fast täglich alles umstellen und dann ist es ja in jeder Region sowieso anders. Alleine nach dem Interflug flogen dann ja vier Inlandsflüge und immer werden die Maschinen kleiner. Morgen entscheiden wir, ob wir nicht sofort nach dem Interflug auf Gelände-SUV umsteigen und so dann für die Anreise eine Übernachtung auf dem Weg nach Weipa dazu nehmen. Ist ja einmal vom Süden ganz in den Norden und dort ins "Tote Land", wie ich es mal nennen möchte. ;)

    Aber ich wünsche Euch alle eine besinnliche Vorweihnachtszeit und schöne Festtage. Ich bleibe via Tunnel ja mit diesem PC verbunden und schaue sicherlich ab und an rein.

    ho ho ho
    Eure Lina

  • Func so lange ausführen wie GUI Button gedrückt wird... (Funk Taster)

    • Alina
    • 7. Dezember 2020 um 18:19

    :thumbup:
    Beitrag somit "erledigt" ?

  • Func so lange ausführen wie GUI Button gedrückt wird... (Funk Taster)

    • Alina
    • 5. Dezember 2020 um 03:50

    wenn man bei alpines seinem beispiel hinter zeile 32 folgendes einfügt bleibt der button gedrückt, oder?
    MsgBox(0,"Button wird gehalten","Button wird gehalten bis er erneut gedrückt wird. ",1)

  • Windows Dienst "MariaDB" Stoppen

    • Alina
    • 29. November 2020 um 15:08

    Wie wäre es über
    RunWait(@COMSPEC & " /c net stop dienst")
    es zu stoppen und dann dort weiter zu machen?

    Fehler? Welcher Fehler?

  • Einseitg / zehn-seitig

    • Alina
    • 4. Oktober 2020 um 22:41

    :thumbup:

  • Validierung über JavaScript

    • Alina
    • 4. Oktober 2020 um 22:40

    Nee, möchte auch nicht so recht.
    Aber ich gehe nun aufs Sofa. :*

  • Validierung über JavaScript

    • Alina
    • 4. Oktober 2020 um 22:12

    Meinst Du daas so?
    Geht leider so nicht.
    Das ist ja eine Validierung für das Ausgabefeld wo es stehen soll mit 0 aufgefüllt.

    Code
    event.value.Eingabefeld_1(10, "0")
  • Einseitg / zehn-seitig

    • Alina
    • 4. Oktober 2020 um 22:07

    Musashi ich weiß nicht ob das wirklich so ist.
    Der Duden lässt es zu, aber immer wieder wird es als Rechtschreibfehler gekennzeichnet.
    Mehrseitig schreibe ich schon immer so. Okay, ich mache es einfach so wie das bei Dir steht.
    Vielleicht liegt es an der Prüfsoftware die bei den PC's in Dänemark installiert ist. Dürfte sich
    dann ja ab Januar erledigt haben. Ab dem 30.11.2020 kommt ALLES neu. Vom Server, bis zu den
    PC's, und und und. Zwischen dem 27.12. und 30.12.2020 sind 95% in bezahltem Pflichturlaub und
    am 31.12.2020 ist Probelauf wo wiedrum fast alle Dienstpflicht von 09:30 - 12:30 Uhr hat.

  • Validierung über JavaScript

    • Alina
    • 4. Oktober 2020 um 22:00

    Ich mache mal den JavaScript hier rein.
    Logisch ist ja, das man erst die Nummer ein gibt und dann die restlichen Menge mit = bzw. X auffüllt.
    Aber das habe ich nicht hin bekommen. Also habe ich diese Lösung gemacht.

    Wenn ich in einem Feld eine Zahl eingebe und diesen JavaScript ausführen lasse füllt er in diesem Fall
    die beiden Felder "Ausgabefeld_1" bzw. "Ausgabefach_2".

    Oder mal eine andere Frage ! Ist das Javascript bei Adobe etwas anderes als das sonstige Javascript?
    Also bei Adobe blicke ich schon bei einigem druch, aber ganz sicher nur, weil ich vieles hier gelernt habe.

    Als nächstes möchte ich mich damit beschäftigen, Daten die ich über ein *.au3 in eine Datei geschrieben
    habe, durch Adobe einzulesen.
    Ist wichtig, denn ich arbeite mit vielen Formularen die ich mit AutoIt erstellt habe.

    Code
    this.getField("Ausgabefeld_1").value = 
        event.value >= 0 && event.value <= 9 ? "0000000000" + event.value:
        event.value >= 10 && event.value <= 99 ? "00000000" + event.value:
        event.value >= 100 && event.value <= 999 ? "0000000" + event.value:
        event.value >= 1000 && event.value <= 9999 ? "000000" + event.value:
        event.value >= 10000 && event.value <= 99999 ? "00000" + event.value:
        event.value >= 100000 && event.value <= 999999 ? "0000" + event.value:
        event.value >= 1000000 && event.value <= 9999999 ? "000" + event.value:
        event.value >= 10000000 && event.value <= 99999999 ? "00" + event.value:
        event.value >= 100000000 && event.value <= 999999999 ? "0" + event.value:
        event.value >= 1000000000 && event.value <= 9999999999 ? "" + event.value:
    event.value
    
    this.getField("Ausgabefelt_2").value = 
        event.value >= 0 && event.value <= 9 ? "XXXXXXXXX" + event.value:
        event.value >= 10 && event.value <= 99 ? "XXXXXXXX" + event.value:
        event.value >= 100 && event.value <= 999 ? "XXXXXXX" + event.value:
        event.value >= 1000 && event.value <= 9999 ? "XXXXXX" + event.value:
        event.value >= 10000 && event.value <= 99999 ? "XXXXX" + event.value:
        event.value >= 100000 && event.value <= 999999 ? "XXXX" + event.value:
        event.value >= 1000000 && event.value <= 9999999 ? "XXX" + event.value:
        event.value >= 10000000 && event.value <= 99999999 ? "XX" + event.value:
        event.value >= 100000000 && event.value <= 999999999 ? "X" + event.value:
        event.value >= 1000000000 && event.value <= 9999999999 ? "" + event.value:
    event.value
    Alles anzeigen

    So, nun ist es spät. Okay, ich bin eine Nachteule, aber heute bin ich etwas "Alle und alles darf mich mal gern haben".
    50% meiner Arbeitszeit geht derzeitig dafür hin, das ich Sachen erlernen muss, am liebsten nebei, um sie dann später an jemanden anderes zu übergeben, weil dann mal wieder gemerkt wird es doch nicht mal nur nebenbei zu machen ist. Derzeitig aktuell die Umstellung auf mögliches viele Arbeiten per elektronische Formulare abzuwickeln. Ich lerne gerne dazu, aber ich habe auch unwahrscheinlich gerne meine Freizeit !

  • Einseitg / zehn-seitig

    • Alina
    • 4. Oktober 2020 um 04:56

    Ich wundere mich immer wieder über die Deutsche Rechtschreibung.
    Wieso schreibt man einseitig in einem Wort und alles was mehr als eine Seite ist so: zehn-seitig bzw. zehn seitig. Jedoch nicht zusammen :?::?::?:

  • Validierung über JavaScript

    • Alina
    • 4. Oktober 2020 um 04:49
    Zitat von autoiter

    hattest du den Code wieder entfernt?

    Was soll ich entfernt haben?
    Nein, das sind keine Einzahler, sondern nur Auszüge. Wenn wir hier ds gleiche meinen. ;)

  • Validierung über JavaScript

    • Alina
    • 3. Oktober 2020 um 23:31

    Hallo Oscar.
    Das waren doch Auszüge vom JavaScript.

    Ja, das man bei einer *.au3 nur 50% der Zeilen braucht war von aus zu gehen. ;)
    Nur bei mir wären es schätzungsweise vier bis fünf mal so lang gewurden, wie bei Dir. ;)

    Und Danke.

  • Validierung über JavaScript

    • Alina
    • 3. Oktober 2020 um 18:10

    Moin zusammen.

    Ich musste mich zwangsmäßig (für eine Validierung) mit JavaScript auseinander setzen und da hat mir AutoIt, vom Verständnis her, doch sehr geholfen.
    Mein Problem war, das eine Zahleneingabe den Wert 0 bis 9999999999 haben kann, jedoch die Ausgabe zehn stellig sein MUSS.
    Mal wird es gefordert, das Leerstellen mit einem X entwertet werden MÜSSEN und mal durch 0.
    Dann habe ich mir gedacht ich gehe so vor:
    Ist der Wert >=0 UND <=9 dann: "xxxxxxxxx" & Wert
    Ist der Wert >=10 UND <=99 dann: "XXXXXXXX & Wert
    Ist der Wert >=100 UND <=999 dann: "XXXXXXX & Wert
    ...
    Ist der Wert >=0 UND <=9 dann: "000000000" & Wert

    Ist der Wert >=10 UND <=99 dann: "00000000 & Wert

    Ist der Wert >=100 UND <=999 dann: "0000000 & Wert...


    Hat fast beim ersten Versuch funktioniert. *FREU*. Und das ganze werde ich nun auch als *.au3 schreiben.
    Warum? :/ Weil ich die Lösung benötige. :P



  • Spielt ihr Online Spiele?

    • Alina
    • 28. September 2020 um 17:43

    Also ich habe eine Zeit lang folgende Spiele gespielt und auch alle bis zum Ende:

    Doom 1
    Doom 2
    Hexen
    Heretic
    Doom Domenia *Sonderedition bei der man die vier Spiele müschen kann: z. B. die Grafik von Doom 1, die Maps aus Heritic, ... UND massig nie veröffentlichte Maps).
    Die Sonderedition gab es 2.000 mal und wer eine solche noch hat, gibt sie nicht her. In jeder 5. bis 6. Map irgendwo ein kleines Gimmick (z. T. versteckt) eingebaut.
    Und ich habe sie noch, genauso wie das erste, in der USA verkaufte Windows und das erste in der USA verkaufte Office-Paket. Ja, diese kleine Kiste auf dem Dachboden,
    mit Sachen, die man aus jungen Jahren irgendwie nicht entsorgen möchte. Vielleicht typisch Frau, aber sind Erinnerungen.

    Dann gab es doch noch die Lemminge. Da habe ich alle Versionen durch. Die kleinen süßen Pixelmännchen. ;)
    Und dann gab es noch "Tim 2", ein Spiel das damals echt einen die Winterferien gerettet hat.

    Aber das war zu Zeiten, als ich es spielte, da waren diese Spiele gerade auf dem Markt. Und davor habe ich Wolfenstein gespielt. Das ist aber schon Jaaaaahhhhhhhr her ! ! !

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™