Beiträge von superpati

  • SplashText zählt unter W2K nicht die Zeit herunter

    Ich habe ein Script, wo Dateien in gewissen Zeitabständen kopiert werden, wobei die Restzeit zum nächsten Durchgang im SplashText angezeigt wird (wird in Sekunden heruntergezählt).

    Problem:

    Führe ich es unter XP aus, wird die Restzeit schön herabgezählt.

    Führe ich es Unter W2K aus, wird mir die Restzeit konstant (also ohne herabzählen) angezeigt. Es wird mir nur die fix eingestellte Zeit dargestellt.

    Frage: Ist W2k für dieses Script nicht geeignet oder mache ich hier etwas falsch??? :whistling:

    Spoiler anzeigen


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

    #Region ### START Koda GUI section ### Form=f:\download\autoit\scripts\ish_export.kxf
    $Form1_1 = GUICreate("ISH-Dats", 371, 429, 245, 97)
    $ordner = GUICtrlCreateInput("w:\pcssw\interface\ish\datain_alt\", 24, 192, 257, 21)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $leist = GUICtrlCreateCheckbox("nt101 - Leistungen", 104, 40, 137, 17)
    $amb_fall = GUICtrlCreateCheckbox("amb_fall - amb. Fall", 104, 112, 137, 17)
    $fall = GUICtrlCreateCheckbox("fall - stat. Fall", 104, 88, 137, 17)
    $Button1 = GUICtrlCreateButton("Suche", 280, 192, 75, 25, 0)
    $Label1 = GUICtrlCreateLabel("EXPORT VON ISH-SCHNITTSTELLENDATEIEN", 56, 8, 240, 17)
    $ziel = GUICtrlCreateInput("H:\datain\", 24, 248, 257, 21)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Button2 = GUICtrlCreateButton("Suche", 280, 248, 75, 25, 0)
    $intervall = GUICtrlCreateInput("780000", 24, 288, 81, 21)
    $Label2 = GUICtrlCreateLabel("Zeitintervall in Millisekunden - default 13 Minuten", 112, 288, 233, 17)
    $diag = GUICtrlCreateCheckbox("nt021 - Diagnosen", 104, 64, 137, 17)
    $Button3 = GUICtrlCreateButton("START", 144, 368, 75, 25, 0)
    $Input1 = GUICtrlCreateInput("250", 24, 328, 81, 21)
    $Label3 = GUICtrlCreateLabel("Anzahl Dateien . default 250", 112, 328, 138, 17)
    $alle = GUICtrlCreateCheckbox("Alle", 104, 136, 137, 17)
    $Label4 = GUICtrlCreateLabel("Source:", 24, 168, 41, 17)
    $Label5 = GUICtrlCreateLabel("Ziel:", 24, 224, 24, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    Case $Button1
    GUICtrlSetData($ordner,FileSelectFolder("Pfad zu Dateien","") & "\")
    ;======================================================================================
    Case $Button2
    GUICtrlSetData($ziel,FileSelectFolder("Pfad zu Dateien","") & "\")
    ;======================================================================================
    Case $Button3

    If GUICtrlRead($leist) = 1 then
    AdlibRegister("nt101", GUICtrlRead($intervall))
    While True
    $Timer = TimerInit()
    $SleepTime = GUICtrlRead($intervall)
    Do
    Sleep(GUICtrlRead($intervall / 1000))
    $zeit = $SleepTime - TimerDiff($Timer)
    TrayTip("Zeit in Sekunden bis zum nächsten Durchgang:",round ($zeit / 1000,""),1)
    Until TimerDiff($Timer) > $SleepTime
    WEnd
    AdlibUnRegister("nt101")
    nt101()
    EndIf
    ;------------------------------------
    If GUICtrlRead($diag) = 1 then
    AdlibRegister("nt021", GUICtrlRead($intervall))
    While True
    $Timer = TimerInit()
    $SleepTime = GUICtrlRead($intervall)
    Do
    Sleep(GUICtrlRead($intervall / 1000))
    $zeit = $SleepTime - TimerDiff($Timer)
    TrayTip("Zeit in Sekunden bis zum nächsten Durchgang:",round ($zeit / 1000,""),1)
    Until TimerDiff($Timer) > $SleepTime
    WEnd
    AdlibUnRegister("nt021")
    nt021()
    EndIf
    ;------------------------------------
    If GUICtrlRead($fall) = 1 then
    AdlibRegister("fall", GUICtrlRead($intervall))
    While True
    $Timer = TimerInit()
    $SleepTime = GUICtrlRead($intervall)
    Do
    Sleep(GUICtrlRead($intervall / 1000))
    $zeit = $SleepTime - TimerDiff($Timer)
    TrayTip("Zeit in Sekunden bis zum nächsten Durchgang:",round ($zeit / 1000,""),1)
    Until TimerDiff($Timer) > $SleepTime
    WEnd
    AdlibUnRegister("fall")
    fall()
    EndIf
    ;------------------------------------
    If GUICtrlRead($amb_fall) = 1 then
    AdlibRegister("amb_fall", GUICtrlRead($intervall))
    While True
    $Timer = TimerInit()
    $SleepTime = GUICtrlRead($intervall)
    Do
    Sleep(GUICtrlRead($intervall / 1000))
    $zeit = $SleepTime - TimerDiff($Timer)
    TrayTip("Zeit in Sekunden bis zum nächsten Durchgang:",round ($zeit / 1000,""),1)
    Until TimerDiff($Timer) > $SleepTime
    WEnd
    AdlibUnRegister("amb_fall")
    amb_fall()
    EndIf
    ;------------------------------------
    If GUICtrlRead($alle) = 1 then
    AdlibRegister("alle", GUICtrlRead($intervall))
    While True
    $Timer = TimerInit()
    $SleepTime = GUICtrlRead($intervall)
    Do
    Sleep(GUICtrlRead($intervall / 1000))
    $zeit = $SleepTime - TimerDiff($Timer)
    TrayTip("Zeit in Sekunden bis zum nächsten Durchgang:",round ($zeit / 1000,""),1)
    Until TimerDiff($Timer) > $SleepTime
    WEnd
    AdlibUnRegister("alle")
    alle()

    EndIf
    ;------------------------------------
    if GUICtrlRead($amb_fall or $diag or $fall Or $alle) = 0 Then
    MsgBox("","Dateien","keine Datei ausgewählt")
    EndIf
    ;------------------------------------

    EndSwitch
    WEnd
    ;=====================================FUNKTIONEN===========================================
    Func nt101()

    $Path=GUICtrlRead($ordner)
    $Dest=GUICtrlRead($ziel)
    SplashTextOn("Verschieben","nt101-Dats werden verschoben",150,50,800,600, 4, "", 8)

    $Search = FileFindFirstFile($Path & "NT101" & "*.dat")

    If $Search = -1 Then
    MsgBox(0, "NT101", "Alle Dateien wurden kopiert!",1)
    Exit
    EndIf

    For $i = 1 To GUICtrlRead($Input1)
    $File = FileFindNextFile($Search)
    If @error Then ExitLoop
    FileMove($Path & $File, $Dest & $File)
    Next

    FileClose($Search)

    EndFunc
    ;---------------------------------------------------------------------------------
    Func nt021()

    $Path=GUICtrlRead($ordner)
    $Dest=GUICtrlRead($ziel)
    SplashTextOn("Verschieben","nt021-Dats werden verschoben",150,50,800,600, 4, "", 8)

    $Search = FileFindFirstFile($Path & "NT021" & "*.dat")

    If $Search = -1 Then
    MsgBox(0, "NT021", "Alle Dateien wurden kopiert!",1)
    Exit
    EndIf

    For $i = 1 To GUICtrlRead($Input1)
    $File = FileFindNextFile($Search)
    If @error Then ExitLoop
    FileMove($Path & $File, $Dest & $File)
    Next

    FileClose($Search)

    EndFunc
    ;---------------------------------------------------------------------------------
    Func fall()

    $Path=GUICtrlRead($ordner)
    $Dest=GUICtrlRead($ziel)
    SplashTextOn("Verschieben","fall-Dats werden verschoben",150,50,800,600, 4, "", 8)

    $Search = FileFindFirstFile($Path & "FALL" & "*.dat")

    If $Search = -1 Then
    MsgBox(0, "FALL", "Alle Dateien wurden kopiert!",1)
    Exit
    EndIf

    For $i = 1 To GUICtrlRead($Input1)
    $File = FileFindNextFile($Search)
    If @error Then ExitLoop
    FileMove($Path & $File, $Dest & $File)
    Next

    FileClose($Search)

    EndFunc
    ;---------------------------------------------------------------------------------
    Func amb_fall()

    $Path=GUICtrlRead($ordner)
    $Dest=GUICtrlRead($ziel)
    SplashTextOn("Verschieben","amb_fall-Dats werden verschoben",150,50,800,600, 4, "", 8)

    $Search = FileFindFirstFile($Path & "AMB_FALL" & "*.dat")

    If $Search = -1 Then
    MsgBox(0, "AMB_FALL", "Alle Dateien wurden kopiert!",1)
    Exit
    EndIf

    For $i = 1 To GUICtrlRead($Input1)
    $File = FileFindNextFile($Search)
    If @error Then ExitLoop
    FileMove($Path & $File, $Dest & $File)
    Next

    FileClose($Search)

    EndFunc
    ;---------------------------------------------------------------------------------
    Func alle()

    $Path=GUICtrlRead($ordner)
    $Dest=GUICtrlRead($ziel)
    SplashTextOn("Verschieben","Alle Dats werden verschoben",150,50,800,600, 4, "", 8)
    $Search = FileFindFirstFile($Path & "*.dat")

    If $Search = -1 Then
    MsgBox(0, "Schnittstellendateien", "Alle Dateien wurden kopiert!",1)
    Exit
    EndIf

    For $i = 1 To GUICtrlRead($Input1)
    $File = FileFindNextFile($Search)
    If @error Then ExitLoop
    FileMove($Path & $File, $Dest & $File)
    Next

    FileClose($Search)

    EndFunc

  • geöffnete textdatei feststellen (*.dat)

    An alle Profis,

    kann man irgendwie festestellen, ob eine *.dat - Datei von Windows noch gesperrt ist.

    Problem:
    Unterschiedliche Windowsbenutzer sperren immer wieder verschiedene *.dat-Dateien, obwohl sie nicht mehr darauf zugreifen. Am Server kann man die geöffneten Dateien in der Computerverwaltung herausfinden.

    Diese Datei(en) werden von einer Clientsoftware in einem Schnittstellenverzeichnis für unterschiedliche Datensätze und Datenfiles erstellt, die dann mittels "filemove" in ein zentrales Verzeichnis verschoben werden.

    Dies funktioniert nur dann problemlos, wenn "Windows" diese Datei(ein) wieder freigegeben hat. Ist das nicht der Fall, funktioniert mir schon bei EINER geöffneten Datei das "filemove"-Script nicht mehr. Die zu übermittelnden Dateien bleiben in diesem Verzeichnis liegen.

    Gibt es hier einen Lösungsansatz, wie ich diese gesperrten Dateien zumindest übergehen kann??? ?(

    Vielen Dank schon im voraus.

  • stringreplace

    Ich möchte in einer gewöhnlichen txt-Datei bestimme Zeichen ersetzen. Diese Datei besteht aus einer Zeile. Dabei soll "123456" durch "456789" ersetzt werden.

    Der Aufbau der txt-Datei ist einfach: aaaaa123456bbbbb

    Mein Problem dabei: Mit meinem Script werden die neuen Werte am Ende der Zeile dazu geschrieben, aber der Wert, den ich ersetzen möchte, bleibt unverändert. Noch dazu wird mir die gesamte veränderte (also mit 456789) Zeile angehängt. Warum?

    Was mache ich hier falsch? ?(

    $file=FileRead("c:\temp\123123.txt")
    $alttxt="123456"
    $neutxt="456789"

    if StringInStr($file,$neutxt) Then
    MsgBox("","Datei","Text schon vorhanden",2)
    Else
    $replace = StringReplace($file,$altTXT,$neuTXT)
    FileWrite("c:\temp\123123.txt",$replace)
    EndIf

  • Hilfe bei Func in Gui

    Ein Anfänger bittet um Hilfe...
    ich habe mir vor einer Zeit mit dankenswerter Hilfe des Forums eine Funktion zusammenbasteln können, die mir bis jetzt sehr hilfreich war. Diese Funktion möchte ich jetzt in eine Gui mit Checkboxen "verpacken", die dann unterschiedliche Dateien verschieben sollen (amb_fall.dat, stat_fall.dat, leist.dat,...). Diese Funktion(en) wird dann über einen Button ausgeführt.

    Leider komme ich nicht klar, wie ich diese Funktion(en) entsprechend den Checkboxen zuordnen soll......

    Vielleicht kann mir wer Unterstützung bzw. einen Tipp zukommen lassen. Das Finden nach Antworten im Forum war (zumindes mit meinen Suchbegriffen) leider nicht erfolgreich.

    Vielen Dank im Voraus

    Spoiler anzeigen


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

    #Region ### START Koda GUI section ### Form=f:\download\autoit\scripts\ish_export.kxf
    $Form1_1 = GUICreate("Form1", 368, 322, 193, 115)
    $ordner = GUICtrlCreateInput("Ordner auswählen", 16, 152, 257, 21)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $leist = GUICtrlCreateCheckbox("nt101 - Leistungen", 104, 40, 137, 17)
    $amb_fall = GUICtrlCreateCheckbox("amb_fall - amb. Fall", 104, 112, 137, 17)
    $fall = GUICtrlCreateCheckbox("fall - stat. Fall", 104, 88, 137, 17)
    $Button1 = GUICtrlCreateButton("Suche", 272, 152, 75, 25, 0)
    $Label1 = GUICtrlCreateLabel("EXPORT VON ISH-SCHNITTSTELLENDATEIEN", 56, 8, 240, 17)
    $ziel = GUICtrlCreateInput("Ziel suchen", 16, 192, 257, 21)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Button2 = GUICtrlCreateButton("Suche", 272, 192, 75, 25, 0)
    $intervall = GUICtrlCreateInput("600000", 16, 232, 81, 21)
    $Label2 = GUICtrlCreateLabel("Zeitintervall in Millisekunden - default 10 Minuten", 104, 232, 233, 17)
    $diag = GUICtrlCreateCheckbox("nt021 - Diagnosen", 104, 64, 137, 17)
    $Button3 = GUICtrlCreateButton("START", 128, 272, 75, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    Case $Button1
    $dateien=FileSelectFolder("Pfad zu Dateien","")
    GUICtrlSetData($ordner,$dateien & "\")

    ;-------------------------------------
    Case $Button2
    $zielordner=FileSelectFolder("Pfad zu Dateien","")
    GUICtrlSetData($ziel,$zielordner & "\")

    ;-------------------------------------
    Case $Button3

    If GUICtrlRead($leist) = 1 then
    MsgBox("","test",GUICtrlRead($ziel))
    EndIf

    ;-------------------------------------
    If GUICtrlRead($diag) = 1 then
    MsgBox("","","ja, diag",2)
    EndIf
    ;-------------------------------------
    If GUICtrlRead($fall) = 1 then
    MsgBox("","","ja, stat fall",2)
    EndIf
    ;-------------------------------------
    If GUICtrlRead($amb_fall) = 1 then
    MsgBox("","","ja, amb fall",2)
    EndIf


    EndSwitch
    WEnd

    ;-------------------------------------
    $Path=GUICtrlRead($ordner)
    $Dest=GUICtrlRead($ziel)

    AdlibRegister("_copyfiles", 1440000) ; = 24 Minuten Wartezeit

    While True
    WEnd
    Func _copyfiles()
    $Search = FileFindFirstFile($Path & "AMB_FALL" & "*.dat")

    If $Search = -1 Then
    MsgBox(0, "Error", "Alle Dateien wurden Kopiert!")
    Exit
    EndIf

    For $i = 1 To 5
    $File = FileFindNextFile($Search)
    If @error Then ExitLoop
    FileMove($Path & $File, $Dest & $File)
    Next

    FileClose($Search)
    EndFunc

  • Pfad aus "FileSelectFolder" in eine Inputbox schreiben lassen

    Ich brauche wieder Unterstützung bei einem kleinen Script:

    Ich habe eine kleine Gui, wo ich einen Pfad über einen Button (führt "FileSelectFolder" aus) in eine Inputbox schreiben lassen will. Diese lese ich dann aus und lasse dann einen einfaches Filecopy laufen.

    Das Auslesen der Box und das Filecopy ist ja kein Problem, aber wie kriege ich den Pfad in diese Box.

    Habe zwar schon gesucht, finde aber nichts

    Bitte um Tipps

    danke

  • Datei aus Inputfeld erzeugen

    Ich habe ein gewöhnliches Gui mit 1 Inputfeld und einem Button. Dieser Button soll eine txt-Datei mit dem Namen erzeugen, den ich in das Inputfeld geschrieben habe.....nur.....das klappt bei mir nicht. Ich habe das Forum von vorne bis hinten durchsucht, finde aber kein adäquates Beispiel....

    vielleicht kann mir jemand sagen, was ich hier falsch mache

    danke für die Hilfe

    Spoiler anzeigen


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

    #Region ### START Koda GUI section ### Form=F:\Download\autoit\scripts\test.kxf
    $Form1_1 = GUICreate("Form1", 633, 454, 193, 115)
    $test = GUICtrlCreateInput("", 64, 64, 137, 21)
    $datei = GUICtrlCreateButton("datei", 200, 112, 97, 33, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    case $datei
    $txt = GUICtrlRead($test)
    $file = FileOpen("h:\2\" & $txt & ".txt")
    FileWrite($file, "na endlich")
    FileClose($file)
    Exit

    EndSwitch
    WEnd

  • Filemove - Problem bei gesperrten Dateien

    Danke für die Info......es stimmt daß die Files alle dieselbe Endung haben....ich habe es allerdings vermutet, daß ich bei jeder einzelnen Datei den Rückgabewert "abfragen" muß.....aber es sammeln sich halt sehr, sehr viele Dateien in einem bestimmten Zeitraum an.......und wenn ich die alle abfragen muß, wird das wahrscheinlich eine ziemlich lange Angelegenheit werden......muß ich mal schauen, ob ich den Intervall verkürzen kann, um das abzufangen.

    Ich werde mich schlau machen.

    danke

  • Filemove - Problem bei gesperrten Dateien

    Ich lasse ein Script über den Taskmanager in regelmäßen Abständen ausführen, wo ich mit filemove Ascii-Dateien von zwei unterschiedlichen Verzeichnissen (Schnittstellenverzeichnisse) in ein zentrales Verzeichnis verschiebe.

    Primär kein "Problem" jedoch tritt manchmal der Fall ein, daß das Script nicht mehr korrekt arbeitet. Und zwar dann, wenn die Dateien noch von irgendeiner Schnittstelle im Zugriff ist. Dann passiert es, daß die ersten 2-3 Dateien noch gesperrt sind und daher nicht verschoben werden können. Die restlichen anstehenden Dateien können somit auch nicht mehr verschoben werden. Fazit: das Verzeichnis läuft voll und die Fremdaplikation bekommt keine Schnittstellendateien zum Verarbeiten.

    Meine Frage: wie kann ich "filemove" so einrichten, daß die gesperrten Dateien "liegen" bleiben aber die anderen nicht gesperrten Files trotzdem verschoben werden. :?:

    Vielen Dank für die Hilfe

  • schleife beginnt nicht

    Zitat von XovoxKingdom

    kannst du das Problem näher erläutern?
    bei mir scheint es einwandfrei zu funktionieren..
    vielleicht kannst du sonst auch einfach deine Absicht (die offenbar nicht gelöst ist)
    beifügen

    Ich habe vor, über eine einfache GUI (Start- und Stop-Button) einen Job zu starten (gewöhnliches moven von Dateien). Dies soll in regelmäßigen Abständen geschehen....und eben mit der Anzeige der "Restzeit", bis er wieder etwas tut. Hier habe ich nur Sekunden hinein geschrieben, später werden es dann Minuten sein. Mein Problem dabei ist - wenn ich über den Button "Start" das Script starte - er mir zwar die Sekunden herunterzählt, aber nicht mehr von vorne beginnt - und genau das brauche ich ja, wenn ich in regelmäßigen Abständen Dateien "moven" möchte.

    PS.: Habe jetzt das Script mit der einfachen GUI der Vollständigkeit halber ergänzt.