wie kann ich dieses WINBATCHScript in ein Autoit Script umsetzen ?
Spoiler anzeigen
;-Time.wbt------------------------------------------------------------------------;
; Sicherung des Beginndatums in einer TMP Datei ;
;---------------------------------------------------------------------------------------;
;-Errechnung des Belegdatums----------------------------------------------------------------------------;
;Errechnung des Wochentags
a=TimeYmdHms( )
;Korrektur des Datums aufgrund Batchbeginn am nächsten Tag;
;a=TimeSubtract(a, "0000:00:01:00:00:00")
;message ("Zeit", a);
b=TimeJulianDay(a)
c=(b+5) mod 7
Wochentag = ItemExtract(c+1, "SON MON DIE MIT DON FRE SAM", " ")
;Errechnung des Beginndatum
If Wochentag == "SON" THEN
newtime=TimeSubtract(a, "0000:00:00:48:00:00")
Jahr = StrSub(newtime, 1, 4)
Monat = StrSub(newtime, 6, 2)
Tag = StrSub(newtime, 9, 2)
Beginndatum = StrCat(Tag,".",Monat,".",Jahr)
Delay(1)
else
newtime=TimeSubtract(a, "0000:00:00:00:00:00")
Jahr = StrSub(newtime, 1, 4)
Monat = StrSub(newtime, 6, 2)
Tag = StrSub(newtime, 9, 2)
Beginndatum = StrCat(Tag,".",Monat,".",Jahr)
Delay(1)
Endif
;Errechnung des Enddatum
newtime=TimeSubtract(a, "0000:00:00:00:00:00")
Jahr = StrSub(newtime, 1, 4)
Monat = StrSub(newtime, 6, 2)
Tag = StrSub(newtime, 9, 2)
Enddatum = StrCat(Tag,".",Monat,".",Jahr)
Delay(1)
;Errechnung des Feiertagdatums
Feiertag = ""
Feiertagflag = "NEIN"
;message ("Beginndatum", Beginndatum);
;message ("Enddatum", Enddatum);
fHandle = FileOpen("\WBTfiles\Feiertag.txt", "READ")
While @TRUE
Feiertag = FileRead(fHandle)
If Feiertag == "*EOF*" Then Break
ClipPut(Feiertag)
If Feiertag == ";Deaktivierung des Beginn/Enddatum" then
Beginndatum = FileRead(fHandle)
Feiertagflag = "JA"
Enddatum = FileRead(fHandle)
Endif
Endwhile
FileClose(fHandle)
;-Sicherung in einer TMP Datei-------------------------------------------------------------------------------;
handle = FileOpen("\Time.tmp", "WRITE")
FileWrite(handle, Beginndatum)
FileWrite(handle, Enddatum)
If Feiertagflag == "NEIN" then
FileWrite(handle, Wochentag)
Endif
If Feiertagflag == "JA" then
FileWrite(handle, "Das Beginn/Enddatum wurde aus der Datei Feiertag.txt ausgelesen.")
Endif
FileClose(handle)
Return
Ich will die Firma vom Winbatch script abbringen ( ZU TEUER!!!!!!!, zu langsam, unhandlich, kein Compiler) und AutoI3 Scripte einführen,
da ich ein neuling (Jungspund in Sachen scripten) bin, brauch ich eure Hilfe.
Ich hab einfache scripts schon umgesetzt aber komplizierte und Komplexe sind noch etwas undurchsichtig ..... Ich brauch leider erst ein paar beispiele um es wirklich zu lernen (behirnen) .......
Danke für eure Hilfe
TOM