Beiträge von TOMTOM25m

TOMTOM25m

Zitat

Original von snoozer
man braucht ne menge zeit um sich in ein script rein zu arbeiten
deine globalconstants sind mir noch nicht alles klar...

ok kannst mich ja fragen

ich poste dir mal die Export.ini

Spoiler anzeigen

[autoit]

[PFADE]
root=D:
JACDAT=D:\JackDat
JACOFC=D:\JackOFC
JACPROG=D:\JackProg
ODBC=D:\ODBC_SAVE

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

JACKODBC=\\JACKODBC

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

CRS=\\CRS.verkehrsbuero.lan\E$\
CRSW=\\crs.verkehrsbuero.lan\OEVB_Schnittstelle\Work\SAP
CRSM=\\crs.verkehrsbuero.lan\OEVB_Schnittstelle\Work\MIS
;CRS=C:
CRSPFADW=\OEVB_Schnittstelle\Work
CRSPFADA=\OEVB_Schnittstelle\Archiv\Jack2007

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

WBJ=\\DCSRV.verkehrsbuero.lan\WBJ-Daten\Jack_Journal
;WBJ=C:\OEVB_Schnittstelle\test\Jack_Journal

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

EXP=V:
SAVE=D:\Save_NACH_Rebuild
BACKUP=\\backup1\Jack\taegliche_Sicherung_JackDAT
;SCHLAF=900
SCHLAF=621378

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

[MAIL]
FROM=VB_Jack@verkehr*.lan
TO=Verteiler.Jackverarbeitung@verkehr*.at
TON=Verteiler.Jack_Gut@verkehr*.at
TOM=Thomas.Garnreiter@verkehr*.at
TOSMS=SMS*@verkehr*.at
SRV=172.30.241.40
;SRV=Mailserver.lan

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

[SAP]
von=
bis=
pfad=D:\OEVB_Schnittstelle\Work\SAP

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

[MIS]
pfad=D:\OEVB_Schnittstelle\Work\MIS

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

[Server]
FAIRCOM="FAIRCOMS"
SRV=jack1@FAIRCOMS

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

[RENR]
Beginn=2090000
Ende=2400000

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

[Buchungsjahr]
Jahr=2006

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

[PW]
pw=ct

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

[FEIERTAGS_JAHR]
FETA=2007

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

[MANDANT]
MAN=01

[/autoit]

TOMTOM25m

weis keiner einen rat wie ich das Script umschreiben muss ?

TOMTOM25m

Hallo @ all

ich hab da ein Problem mit meinem Script.

der Grundgedanke ist:
ich überprüfe auf einem Server ob eine Datenüberleitung richtig funktioniert hat.
ich will auf das File ob vorhanden und auf das erstelldatum prüfen wenn das ok ist dann gibt es ein Mail das die files ok sind.

wenn es nicht ok ist d.h. das File Datum ist nicht korrekt bzw das file ist garnicht vorhanden soll eine SMS kommen und ein Mail was die Fehlerbeschreibung beinhaltet.

ein Prob ist die files haben unterschiedliche körper (05240107.S01 bzw. 05230115.S01 usw.) nur die Endung ist immer gleich.

so mein code:

Spoiler anzeigen

[autoit]

#comments-start
CopyRight 2007 (c) Garnreiter
Version 7.0.0.1
#comments-end
#include <file.au3>
#include <Date.au3>

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

Global $MAN = IniRead(@ScriptDir & "\Export.ini", "MANDANT", "MAN", "keine Pfad konfiguriert")
Global $root = IniRead(@ScriptDir & "\Export.ini", "PFADE", "root", "keine Pfad konfiguriert")
Global $CRS = IniRead(@ScriptDir & "\Export.ini", "PFADE", "CRS", "keine Pfad konfiguriert")
Global $CRSW = IniRead(@ScriptDir & "\Export.ini", "PFADE", "CRSW", "keine Pfad konfiguriert")
Global $CRSM = IniRead(@ScriptDir & "\Export.ini", "PFADE", "CRSM", "keine Pfad konfiguriert")
Global $Ende = IniRead($root & "\log\time.stamp", "TIME", "ende", "NotFound")
Global $FROM = IniRead(@ScriptDir & "\Export.ini", "MAIL", "FROM", "Jack@verkehr*.lan")
;~ Global $TO = IniRead(@ScriptDir & "\Export.ini", "MAIL", "TO", "*@verkehr*.at")
;~ Global $TOSMS = IniRead(@ScriptDir & "\Export.ini", "MAIL", "TOSMS", "SMS@SMS.verkehr*.lan")
;~ Global $TON = IniRead(@ScriptDir & "\Export.ini", "MAIL", "TON", "*@verkehr*.at")
Global $TO =*
Global $TOSMS = "*@SMSGATEWAY.verkehr*.lan"
Global $TON = *
Global $MSRV = IniRead(@ScriptDir & "\Export.ini", "MAIL", "SRV", "172.30.241.40")
Local $file
Local $nfile

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

;------------------------------------------------------------------------------------------------------------------------------------------------------------------
If FileExists($CRSW & "\*.A" & $MAN) Then
$t = FileGetTime($CRSW & "\*.A" & $MAN, 1)
If Not @error Then
$time = $t[0] & "/" & $t[1] & "/" & $t[2]
$Time1 = _DateAdd('d', -1, $time)
$Date = _DateTimeFormat($Time1, 2)
If $Date = $Ende Then
If FileExists(@ScriptDir & "\OK_MAIL.txt") Then
OKMAIL()
Else
OKMAIL1()
EndIf
FileWriteLine($file, "Das A" & $MAN & " File (Mitarbeiter Export) ist vorhanden " & @CR & @LF & @CR & @LF)
FileClose($file)
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das A" & $MAN & " File (Mitarbeiter Export) ist mit falschen Datum vorhanden" & @CR & @LF)
FileWriteLine($nfile, "Bitte die Überleitung auf der CTWS04 Überprüfen" & @CR & @LF)
FileClose($nfile)
EndIf
EndIf
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das A" & $MAN & " File (Mitarbeiter Export) ist nicht vorhanden" & @CR & @LF)
FileClose($nfile)
EndIf
;------------------------------------------------------------------------------------------------------------------------------------------------------------------
If FileExists($CRSW & "\*.J" & $MAN) Then
$t = FileGetTime($CRSW & "\*.J" & $MAN, 1)
If Not @error Then
$time = $t[0] & "/" & $t[1] & "/" & $t[2]
$Time1 = _DateAdd('d', -1, $time)
$Date = _DateTimeFormat($Time1, 2)
If $Date = $Ende Then
If FileExists(@ScriptDir & "\OK_MAIL.txt") Then
OKMAIL()
Else
OKMAIL1()
EndIf
FileWriteLine($file, "Das J" & $MAN & " File (Journal Export) ist vorhanden " & @CR & @LF & @CR & @LF)
FileClose($file)
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das J" & $MAN & " File (Journal Export) ist mit falschen Datum vorhanden" & @CR & @LF)
FileWriteLine($nfile, "Bitte die Überleitung auf der CTWS04 Überprüfen" & @CR & @LF)
FileClose($nfile)
EndIf
EndIf
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das J" & $MAN & " File (Journal Export) ist nicht vorhanden" & @CR & @LF)
FileClose($nfile)
EndIf
;------------------------------------------------------------------------------------------------------------------------------------------------------------------
If FileExists($CRSW & "\*.K" & $MAN) Then
$t = FileGetTime($CRSW & "\*.K" & $MAN, 1)
If Not @error Then
$time = $t[0] & "/" & $t[1] & "/" & $t[2]
$Time1 = _DateAdd('d', -1, $time)
$Date = _DateTimeFormat($Time1, 2)
If $Date = $Ende Then
If FileExists(@ScriptDir & "\OK_MAIL.txt") Then
OKMAIL()
Else
OKMAIL1()
EndIf
FileWriteLine($file, "Das K" & $MAN & " File (Kunden Export) ist vorhanden " & @CR & @LF & @CR & @LF)
FileClose($file)
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das K" & $MAN & " File (Kunden Export) ist mit falschen Datum vorhanden" & @CR & @LF)
FileWriteLine($nfile, "Bitte die Überleitung auf der CTWS04 Überprüfen" & @CR & @LF)
FileClose($nfile)
EndIf
EndIf
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das K" & $MAN & " File (Kunden Export) ist nicht vorhanden" & @CR & @LF)
FileClose($nfile)
EndIf
;-------------------------------------------------------------------------------------------------------------------------------------------------------;
If FileExists($CRSW & "\*.B" & $MAN) Then
$t = FileGetTime($CRSW & "\*.B" & $MAN, 1)
If Not @error Then
$time = $t[0] & "/" & $t[1] & "/" & $t[2]
$Time1 = _DateAdd('d', -1, $time)
$Date = _DateTimeFormat($Time1, 2)
If $Date = $Ende Then
If FileExists(@ScriptDir & "\OK_MAIL.txt") Then
OKMAIL()
Else
OKMAIL1()
EndIf
FileWriteLine($file, "Das B" & $MAN & " File (SAP Export) ist vorhanden " & @CR & @LF & @CR & @LF)
FileClose($file)
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das B" & $MAN & " File (SAP Export) ist mit falschen Datum vorhanden" & @CR & @LF)
FileWriteLine($nfile, "Bitte die Überleitung auf der CTWS04 Überprüfen" & @CR & @LF)
FileClose($nfile)
EndIf
EndIf
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das B" & $MAN & " File (SAP Export) ist nicht vorhanden" & @CR & @LF)
FileClose($nfile)
EndIf
;-------------------------------------------------------------------------------------------------------------------------------------------------------;
If FileExists($CRSW & "\*.S" & $MAN) Then
$t = FileGetTime($CRSW & "\*.S" & $MAN, 1)
If Not @error Then
$time = $t[0] & "/" & $t[1] & "/" & $t[2]
$Time1 = _DateAdd('d', -1, $time)
$Date = _DateTimeFormat($Time1, 2)
If $Date = $Ende Then
If FileExists(@ScriptDir & "\OK_MAIL.txt") Then
OKMAIL()
Else
OKMAIL1()
EndIf
FileWriteLine($file, "Das S" & $MAN & " File (SAP Export) ist vorhanden " & @CR & @LF & @CR & @LF)
FileClose($file)
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das S" & $MAN & " File (SAP Export) ist mit falschen Datum vorhanden" & @CR & @LF)
FileWriteLine($nfile, "Bitte die Überleitung auf der CTWS04 Überprüfen" & @CR & @LF)
FileClose($nfile)
EndIf
EndIf
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das S" & $MAN & " File (SAP Export) ist nicht vorhanden" & @CR & @LF)
FileClose($nfile)
EndIf
;-------------------------------------------------------------------------------------------------------------------------------------------------------;
If FileExists($CRSW & "\*.U" & $MAN) Then
$t = FileGetTime($CRSW & "\*.U" & $MAN, 1)
If Not @error Then
$time = $t[0] & "/" & $t[1] & "/" & $t[2]
$Time1 = _DateAdd('d', -1, $time)
$Date = _DateTimeFormat($Time1, 2)
If $Date = $Ende Then
If FileExists(@ScriptDir & "\OK_MAIL.txt") Then
OKMAIL()
Else
OKMAIL1()
EndIf
FileWriteLine($file, "Das U" & $MAN & " File (SAP Export) ist vorhanden " & @CR & @LF & @CR & @LF)
FileClose($file)
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das U" & $MAN & " File (SAP Export) ist mit falschen Datum vorhanden" & @CR & @LF)
FileWriteLine($nfile, "Bitte die Überleitung auf der CTWS04 Überprüfen" & @CR & @LF)
FileClose($nfile)
EndIf
EndIf
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das U" & $MAN & " File (SAP Export) ist nicht vorhanden" & @CR & @LF)
FileClose($nfile)
EndIf
;-------------------------------------------------------------------------------------------------------------------------------------------------------;
If FileExists($CRSW & "\*.V" & $MAN) Then
$t = FileGetTime($CRSW & "\*.V" & $MAN, 1)
If Not @error Then
$time = $t[0] & "/" & $t[1] & "/" & $t[2]
$Time1 = _DateAdd('d', -1, $time)
$Date = _DateTimeFormat($Time1, 2)
If $Date = $Ende Then
If FileExists(@ScriptDir & "\OK_MAIL.txt") Then
OKMAIL()
Else
OKMAIL1()
EndIf
FileWriteLine($file, "Das V" & $MAN & " File (Buchungs Gesamt Preis Liste Export) ist vorhanden " & @CR & @LF & @CR & @LF)
FileClose($file)
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das V" & $MAN & " File (Buchungs Gesamt Preis Liste Export) ist mit falschen Datum vorhanden" & @CR & @LF)
FileWriteLine($nfile, "Bitte die Überleitung auf der CTWS04 Überprüfen" & @CR & @LF)
FileClose($nfile)
EndIf
EndIf
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das V" & $MAN & " File (Buchungs Gesamt Preis Liste Export) ist nicht vorhanden" & @CR & @LF)
FileClose($nfile)
EndIf
;-------------------------------------------------------------------------------------------------------------------------------------------------------;
If FileExists($CRSM & "\*.M" & $MAN) Then
$t = FileGetTime($CRSM & "\*.M" & $MAN, 1)
If Not @error Then
$time = $t[0] & "/" & $t[1] & "/" & $t[2]
$Time1 = _DateAdd('d', -1, $time)
$Date = _DateTimeFormat($Time1, 2)
If $Date = $Ende Then
If FileExists(@ScriptDir & "\OK_MAIL.txt") Then
OKMAIL()
Else
OKMAIL1()
EndIf
FileWriteLine($file, "Das M" & $MAN & " File (MIS Export) ist vorhanden " & @CR & @LF & @CR & @LF)
FileClose($file)
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das M" & $MAN & " File (MIS Export) ist mit falschen Datum vorhanden" & @CR & @LF)
FileWriteLine($nfile, "Bitte die Überleitung auf der CTWS04 Überprüfen" & @CR & @LF)
FileClose($nfile)
EndIf
EndIf
Else
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
NOKMAIL()
Else
NOKMAIL1()
EndIf
FileWriteLine($nfile, "Das M" & $MAN & " File (MIS Export) ist nicht vorhanden" & @CR & @LF)
FileClose($nfile)
EndIf
;-------------------------------------------------------------------------------------------------------------------------------------------------------;
;-------------------------------------------------------------------------------------------------------------------------------------------------------;
If FileExists(@ScriptDir & "\Fail_MAIL.TXT") Then
$SMSFILE = FileOpen(@ScriptDir & "\Fail_SMS.TXT", 1)
; Check if file opened for writing OK
If $SMSFILE = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($SMSFILE, " Der Jack-Mandant: " & $MAN & " hat Datenueberleitungsprobleme! Bitte um Kontrolle")
FileClose($SMSFILE)
RunWait(@ScriptDir & "\VMAILER.EXE " & @ScriptDir & "\Fail_SMS.TXT " & $MSRV & " " & $TOSMS & " " & $FROM)
Sleep(2000)
FileDelete(@ScriptDir & "\Fail_SMS.TXT")
Sleep(2500)

Else
$SMSFILE = FileOpen(@ScriptDir & "\OK_SMS.TXT", 1)
; Check if file opened for writing OK
If $SMSFILE = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($SMSFILE, " Der Jack-Mandant: " & $MAN & " hat alle Daten Uebergeleitet")
FileClose($SMSFILE)
RunWait(@ScriptDir & "\VMAILER.EXE " & @ScriptDir & "\OK_SMS.TXT " & $MSRV & " [email='06646258027@SMSGATEWAY.verkehrsbuero.lan'][/email] " & $FROM)
Sleep(2000)
FileDelete(@ScriptDir & "\OK_SMS.TXT")
Sleep(2500)
EndIf
;-------------------------------------------------------------------------------------------------------------------------------------------------------;
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then
RunWait(@ScriptDir & "\VMAILER.EXE " & @ScriptDir & "\Fail_MAIL.TXT " & $MSRV & " " & $TO & " " & $FROM)
Else
RunWait(@ScriptDir & "\VMAILER.EXE " & @ScriptDir & "\OK_MAIL.TXT " & $MSRV & " " & $TON & " " & $FROM)
EndIf
If FileExists(@ScriptDir & "\OK_MAIL.txt") Then FileDelete(@ScriptDir & "\OK_MAIL.txt")
If FileExists(@ScriptDir & "\Fail_MAIL.txt") Then FileDelete(@ScriptDir & "\Fail_MAIL.txt")
Run(@ScriptDir & '\Speicher_Warnung.exe', @ScriptDir)

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

Func NOKMAIL1()
$nfile = FileOpen(@ScriptDir & "\Fail_MAIL.TXT", 2)
; Check if file opened for writing OK
If $nfile = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($nfile, "to: [email='Helpdesk@verkehrsbuero.at'][/email]" & @CR & @LF)
FileWrite($nfile, "Subject: " & @MDAY & "." & @MON & "." & @YEAR & " ACHTUNG !! Der Jack (Mandant: " & $MAN & ") hat Datenüberleitungs Probleme!" & @CR & @LF & @CR & @LF)
FileWrite($nfile, "Diese Files sind auf dem CRS nicht vorhanden :" & @CR & @LF & @CR & @LF)
EndFunc ;==>NOKMAIL1

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

Func NOKMAIL()
$nfile = FileOpen(@ScriptDir & "\Fail_MAIL.TXT", 1)
; Check if file opened for writing OK
If $nfile = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
EndFunc ;==>NOKMAIL

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

Func OKMAIL1()
$file = FileOpen(@ScriptDir & "\OK_MAIL.TXT", 2)
; Check if file opened for writing OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWriteLine($file, "to: [email='Helpdesk@verkehrsbuero.at'][/email]" & @CR & @LF)
FileWriteLine($file, "Subject: " & @MDAY & "." & @MON & "." & @YEAR & " Der Jack (Mandant: " & $MAN & ") hat die Daten auf den CRS übergeleitet!" & @CR & @LF & @CR & @LF)
FileWriteLine($file, "Die Files sind auf dem CRS vorhanden:" & @CR & @LF & @CR & @LF)
EndFunc ;==>OKMAIL1

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

Func OKMAIL()
$file = FileOpen(@ScriptDir & "\OK_MAIL.TXT", 1)
; Check if file opened for writing OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
EndFunc ;==>OKMAIL

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

Exit

[/autoit]

So mein Problem ist ich bekomme immer eine Gutmeldung auch wenn ich das File lösche bzw umbenene aber auch wenn ich ein altes file (mit anderem datum) einspiele..........

Bitte um eure Hilfe ich steh momentan auf dem Schlauch .....

Edit Mega: E-Mail entfernt

danke TOMTOM

TOMTOM25m

Hi auch aus Wien

LG TOM

TOMTOM25m

Hi, die Österreich variante gibt eine TXT datei aus und befüllt sie

denk dran an die variable (Jahr)

lg

TOMTOM25m

Zitat

Original von BugFix
Hi,
Feiertagsberechnung hatte ich schon mal gemacht. Findest du auch bei den Skripten. Hier nochmal die Funktion:

Spoiler anzeigen

[autoit]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Funktion _Feiertage($Jahr)
;
; gibt die Feiertage des übergebenen Jahres
; als sortiertes Array[TT.MM.JJJJ \ Feiertag] zurück
; (Trennzeichen veränderbar über Variable: $Delimiter)
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]
#include <math.au3>
#include <Date.au3>
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]
Func _Feiertage($year)
Dim $4AdvDat, $3AdvDat, $2AdvDat, $1AdvDat, $TotSoDat, $BuBDat, $MutterDat, $ErnteDat, $tmp, $Delimiter = "\"
Dim $HDays[32]

;fixe Feiertage
$HDays[0] = $year & "/01/01" & $Delimiter & "Neujahr"
$HDays[1] = $year & "/01/06" & $Delimiter & "Heilige Drei Könige"
$HDays[2] = $year & "/02/14" & $Delimiter & "Valentinstag"
$HDays[3] = $year & "/05/01" & $Delimiter & "Maifeiertag"
$HDays[4] = $year & "/10/03" & $Delimiter & "Tag der Deutschen Einheit"
$HDays[5] = $year & "/10/31" & $Delimiter & "Reformationstag"
$HDays[6] = $year & "/11/01" & $Delimiter & "Allerheiligen"
$HDays[7] = $year & "/12/24" & $Delimiter & "Heiligabend"
$HDays[8] = $year & "/12/25" & $Delimiter & "1. Weihnachtsfeiertag"
$HDays[9] = $year & "/12/26" & $Delimiter & "2. Weihnachtsfeiertag"
$HDays[10] = $year & "/12/31" & $Delimiter & "Silvester"
[/autoit] [autoit][/autoit] [autoit]
;variable Feiertage
$aa = Mod($year, 19)
$bb = Mod($year, 4)
$cc = Mod($year, 7)
$H1 = Int($year / 100)
$H2 = Int($year / 400)
$N = 4 + $H1 - $H2
$MM = 15 + $H1 - $H2 - _Floor (Int((8 * $H1 + 13) / 25))
$dd = Mod((19 * $aa + $MM), 30)
$ee = Mod((2 * $bb + 4 * $cc + 6 * $dd + $N), 7)
If $dd + $ee = 35 Then
$Easter = 50
Else
If $dd = 28 And $ee = 6 And $aa > 10 Then
$Easter = 49
Else
$Easter = 22 + $dd + $ee
EndIf
EndIf
If $Easter < 32 Then
$EasterDay = $Easter
$EasterMonth = "03"
Else
$EasterDay = $Easter - 31
$EasterMonth = "04"
EndIf
If $EasterDay < 10 Then
$EasterDay = "0" & $EasterDay
EndIf

If $year < 1900 Then ;Datumsoperationen nur mgl. wenn > 1900 , Jahr wird konvertiert
$RestJahr = Mod($year, 100)
If _DateIsLeapYear($year) Then
If $RestJahr < 10 Then
$RestJahr = "0" & $RestJahr
EndIf
$Tempyear = 20 & $RestJahr
Else
If $RestJahr < 10 Then
$RestJahr = "0" & $RestJahr
EndIf
$Tempyear = 19 & $RestJahr
EndIf
$EasterDate = $Tempyear & "/" & $EasterMonth & "/" & $EasterDay
Else
$EasterDate = $year & "/" & $EasterMonth & "/" & $EasterDay
EndIf
$WFastDate = _DateAdd( 'd', -52, $EasterDate)
$RosDat = _DateAdd( 'd', -48, $EasterDate)
$FastDat = _DateAdd( 'd', -47, $EasterDate)
$AschDat = _DateAdd( 'd', -46, $EasterDate)
$GrDoDat = _DateAdd( 'd', -3, $EasterDate)
$KarDat = _DateAdd( 'd', -2, $EasterDate)
$OSaDat = _DateAdd( 'd', -1, $EasterDate)
$OSoDat = $EasterDate
$OMoDat = _DateAdd( 'd', 1, $EasterDate)
$HiFaDat = _DateAdd( 'd', 39, $EasterDate)
$PfSoDat = _DateAdd( 'd', 49, $EasterDate)
$PfMoDat = _DateAdd( 'd', 50, $EasterDate)
$FroDat = _DateAdd( 'd', 60, $EasterDate)

;Ermitteln nicht von Ostern abhängiger, veränderlicher Feiertage
;Muttertag = 2. Sonntag im Mai ABER wenn Pfingsten = 2.Sonntag im Mai dann ist Muttertag am 1. Sonntag
;Der 2. Sonntag kann nur zw. dem 8. u. 14.5. liegen
For $maitag = 8 To 14
If _DateToDayOfWeek($year, 5, $maitag) = 1 Then
If $maitag < 10 Then
$maitag = "0" & $maitag
EndIf
$MutterDat = $year & "/05/" & $maitag
If $MutterDat = $PfSoDat Then
$MutterDat = _DateAdd( 'd', -7, $year & "/05/" & $maitag)
EndIf
ExitLoop
EndIf
Next

;Erntedankfest 1. Sonntag im Oktober (zw. 1. u. 7.10.)
For $oktobertag = 1 To 7
If _DateToDayOfWeek($year, 10, $oktobertag) = 1 Then
$oktobertag = "0" & $oktobertag
$ErnteDat = $year & "/10/" & $oktobertag
ExitLoop
EndIf
Next

;4.Advent = Sonntag vor 25.12. (zw. 18. u. 24.12.)
For $deztag = 18 To 24
If _DateToDayOfWeek($year, 12, $deztag) = 1 Then
$4AdvDat = $year & "/12/" & $deztag
$3AdvDat = _DateAdd( 'd', -7, $4AdvDat)
$2AdvDat = _DateAdd( 'd', -14, $4AdvDat)
$1AdvDat = _DateAdd( 'd', -21, $4AdvDat)
$TotSoDat = _DateAdd( 'd', -28, $4AdvDat)
$BuBDat = _DateAdd( 'd', -32, $4AdvDat)
ExitLoop
EndIf
Next

$HDays[11] = $WFastDate & $Delimiter & "Weiberfastnacht"
$HDays[12] = $RosDat & $Delimiter & "Rosenmontag"
$HDays[13] = $FastDat & $Delimiter & "Fastnacht"
$HDays[14] = $AschDat & $Delimiter & "Aschermittwoch"
$HDays[15] = $GrDoDat & $Delimiter & "Gründonnerstag"
$HDays[16] = $KarDat & $Delimiter & "Karfreitag"
$HDays[17] = $OSaDat & $Delimiter & "Ostersamstag"
$HDays[18] = $OSoDat & $Delimiter & "Ostersonntag"
$HDays[19] = $OMoDat & $Delimiter & "Ostermontag"
$HDays[20] = $HiFaDat & $Delimiter & "Christi Himmelfahrt"
$HDays[21] = $PfSoDat & $Delimiter & "Pfingstsonntag"
$HDays[22] = $PfMoDat & $Delimiter & "Pfingstmontag"
$HDays[23] = $MutterDat & $Delimiter & "Muttertag"
$HDays[24] = $FroDat & $Delimiter & "Fronleichnam"
$HDays[25] = $ErnteDat & $Delimiter & "Erntedankfest"
$HDays[26] = $BuBDat & $Delimiter & "Buß- und Bettag"
$HDays[27] = $TotSoDat & $Delimiter & "Totensonntag"
$HDays[28] = $1AdvDat & $Delimiter & "1. Advent"
$HDays[29] = $2AdvDat & $Delimiter & "2. Advent"
$HDays[30] = $3AdvDat & $Delimiter & "3. Advent"
$HDays[31] = $4AdvDat & $Delimiter & "4. Advent"
_ArraySort($HDays)
;Datum konvertieren zu TT.MM.JJJJ
For $i = 0 To 31
$tmp = StringSplit($HDays[$i], $Delimiter)
$HDays[$i] = StringMid($tmp[1], 9) & "." & StringMid($tmp[1], 6, 2) & "." & StringMid($tmp[1], 1, 4) & $Delimiter & $tmp[2]
Next
Return $HDays
EndFunc ;==>_Feiertage
[/autoit]

Alles anzeigen

Hi,

Hab da eine Modifizierte Variante für Österreich

Spoiler anzeigen

[autoit]

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
#include <file.au3>
#include <math.au3>
#include <Date.au3>
#include <Array.au3>

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

$jahr = IniRead(@ScriptDir & "\Export.ini", "FEIERTAGS_JAHR", "FETA", @YEAR)
;~ $jahr =2006
$txtFile = "Feiertage.txt"
$Pfad = @ScriptDir & "\" & $txtFile
$arFeiertage = _Feiertage($jahr)
$file = FileOpen($Pfad, 2)
For $i = 0 To UBound($arFeiertage)-1
FileWriteLine($file, $arFeiertage[$i])
Next
FileClose($file)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Funktion _Feiertage($Jahr)
;
; gibt die Feiertage des übergebenen Jahres
; als sortiertes Array[TT.MM.JJJJ \ Feiertag] zurück
; (Trennzeichen veränderbar über Variable: $Delimiter)
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func _Feiertage($year)
Dim $4AdvDat, $3AdvDat, $2AdvDat, $1AdvDat, $TotSoDat, $BuBDat, $MutterDat, $ErnteDat, $tmp, $Delimiter = "."
Dim $HDays[200]

;fixe Feiertage
$HDays[0] = $year & "/01/01" ;& $Delimiter & "Neujahr"
$HDays[1] = $year & "/01/06" ;& $Delimiter & "Heilige Drei Könige"
$HDays[2] = $year & "/05/01" ;& $Delimiter & "Maifeiertag"
$HDays[3] = $year & "/08/15" ;& $Delimiter & "Mariä Himmelfahrt"
$HDays[4] = $year & "/10/26" ;& $Delimiter & "Nationalfeiertag"
$HDays[5] = $year & "/11/01" ;& $Delimiter & "Allerheiligen"
$HDays[6] = $year & "/12/08" ;& $Delimiter & "Mariä Empfängnis"
$HDays[7] = $year & "/12/25" ;& $Delimiter & "1. Weihnachtsfeiertag"
$HDays[8] = $year & "/12/26" ;& $Delimiter & "2. Weihnachtsfeiertag"

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

;variable Feiertage
$aa = Mod($year, 19)
$bb = Mod($year, 4)
$cc = Mod($year, 7)
$H1 = Int($year / 100)
$H2 = Int($year / 400)
$N = 4 + $H1 - $H2
$MM = 15 + $H1 - $H2 - _Floor (Int((8 * $H1 + 13) / 25))
$dd = Mod((19 * $aa + $MM), 30)
$ee = Mod((2 * $bb + 4 * $cc + 6 * $dd + $N), 7)
If $dd + $ee = 35 Then
$Easter = 50
Else
If $dd = 28 And $ee = 6 And $aa > 10 Then
$Easter = 49
Else
$Easter = 22 + $dd + $ee
EndIf
EndIf
If $Easter < 32 Then
$EasterDay = $Easter
$EasterMonth = "03"
Else
$EasterDay = $Easter - 31
$EasterMonth = "04"
EndIf
If $EasterDay < 10 Then
$EasterDay = "0" & $EasterDay
EndIf

If $year < 1900 Then ;Datumsoperationen nur mgl. wenn > 1900 , Jahr wird konvertiert
$RestJahr = Mod($year, 100)
If _DateIsLeapYear($year) Then
If $RestJahr < 10 Then
$RestJahr = "0" & $RestJahr
EndIf
$Tempyear = 20 & $RestJahr
Else
If $RestJahr < 10 Then
$RestJahr = "0" & $RestJahr
EndIf
$Tempyear = 19 & $RestJahr
EndIf
$EasterDate = $Tempyear & "/" & $EasterMonth & "/" & $EasterDay
Else
$EasterDate = $year & "/" & $EasterMonth & "/" & $EasterDay
EndIf
$WFastDate = _DateAdd( 'd', -52, $EasterDate)
$RosDat = _DateAdd( 'd', -48, $EasterDate)
$FastDat = _DateAdd( 'd', -47, $EasterDate)
$AschDat = _DateAdd( 'd', -46, $EasterDate)
$GrDoDat = _DateAdd( 'd', -3, $EasterDate)
$KarDat = _DateAdd( 'd', -2, $EasterDate)
$OSaDat = _DateAdd( 'd', -1, $EasterDate)
$OSoDat = $EasterDate
$OMoDat = _DateAdd( 'd', 1, $EasterDate)
$HiFaDat = _DateAdd( 'd', 39, $EasterDate)
$PfSoDat = _DateAdd( 'd', 49, $EasterDate)
$PfMoDat = _DateAdd( 'd', 50, $EasterDate)
$FroDat = _DateAdd( 'd', 60, $EasterDate)

;Ermitteln nicht von Ostern abhängiger, veränderlicher Feiertage
;Muttertag = 2. Sonntag im Mai ABER wenn Pfingsten = 2.Sonntag im Mai dann ist Muttertag am 1. Sonntag
;Der 2. Sonntag kann nur zw. dem 8. u. 14.5. liegen
For $maitag = 8 To 14
If _DateToDayOfWeek($year, 5, $maitag) = 1 Then
If $maitag < 10 Then
$maitag = "0" & $maitag
EndIf
$MutterDat = $year & "/05/" & $maitag
If $MutterDat = $PfSoDat Then
$MutterDat = _DateAdd( 'd', -7, $year & "/05/" & $maitag)
EndIf
ExitLoop
EndIf
Next

;Erntedankfest 1. Sonntag im Oktober (zw. 1. u. 7.10.)
For $oktobertag = 1 To 7
If _DateToDayOfWeek($year, 10, $oktobertag) = 1 Then
$oktobertag = "0" & $oktobertag
$ErnteDat = $year & "/10/" & $oktobertag
ExitLoop
EndIf
Next

;4.Advent = Sonntag vor 25.12. (zw. 18. u. 24.12.)
For $deztag = 18 To 24
If _DateToDayOfWeek($year, 12, $deztag) = 1 Then
$4AdvDat = $year & "/12/" & $deztag
$3AdvDat = _DateAdd( 'd', -7, $4AdvDat)
$2AdvDat = _DateAdd( 'd', -14, $4AdvDat)
$1AdvDat = _DateAdd( 'd', -21, $4AdvDat)
$TotSoDat = _DateAdd( 'd', -28, $4AdvDat)
$BuBDat = _DateAdd( 'd', -32, $4AdvDat)
ExitLoop
EndIf
Next

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

$HDays[09] = $OSaDat ;& $Delimiter & "Ostersamstag"
$HDays[10] = $OSoDat ;& $Delimiter & "Ostersonntag"
$HDays[11] = $OMoDat ;& $Delimiter & "Ostermontag"
$HDays[12] = $HiFaDat ;& $Delimiter & "Christi Himmelfahrt"
$HDays[13] = $PfSoDat ;& $Delimiter & "Pfingstsonntag"
$HDays[14] = $PfMoDat ;& $Delimiter & "Pfingstmontag"
$HDays[15] = $FroDat ;& $Delimiter & "Fronleichnam"
$HDays[16] = $TotSoDat ;& $Delimiter & "Totensonntag"
$HDays[17] = $1AdvDat ;& $Delimiter & "1. Advent"
$HDays[18] = $2AdvDat ;& $Delimiter & "2. Advent"
$HDays[19] = $3AdvDat ;& $Delimiter & "3. Advent"
$HDays[20] = $4AdvDat ;& $Delimiter & "4. Advent"
$counter = 21

; Wochenenden einschließen (von peethebee)
For $i = 0 to 365
;~ MsgBox(0, "", _DateAdd("d", $i, $year & "/01/01"))
$wedate = _DateAdd("d", $i, $year & "/01/01")
$parts = StringSplit($wedate, "/")
$dow = _DateToDayOfWeek($parts[1], $parts[2], $parts[3])
If $dow = 1 or $dow = 7 Then
$HDays[$counter] = $wedate
$counter += 1
EndIf
Next
ReDim $HDays[$counter]

_ArraySort($HDays)

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

Return $HDays
EndFunc ;==>_Feiertage

[/autoit]

(PS: Danke BugFix)

TOMTOM25m

Zitat

Original von BugFix
Benutze Excel-UDF hier im EN-Forum.

Hi BugFix,

die hab ich mir angeschaut, ....... hmmmm ........ irgentwie blick ich da nicht durch........

hab keinen Ansatz wie ich das schreiben soll......... kann mir jemand helfen ........

danke

TOMTOM25m

Hmmm ... die Infos aus den 4 Dateien soll ja in einem Excel Sheet noch zusätzlich zur E-Mail benachrichtigung geschrieben werden d.h. Jeder Server ein eigenn TAB.

wie soll ich das mit Include unf FileInstall bewerkstelligen ?

lg
TOM

TOMTOM25m

Hi @ all,

Ich hab da ein Problem: Wie kann ich täglich wiederkehrende Daten (Überwachung des Freien Speichers der HDD vom Server) (.TXT File) in einenem Exel file speichern (anhängen)

ich habe 4 Server die so überwacht werden und die dann alle in einem Excel File gespeichert werden sollen (zwecks der STATISTIK).

Das Überwachungsscript schaut so aus:

Spoiler anzeigen

[autoit]

#include <Date.au3>
#include <_sendmail.au3>

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

Global $root = IniRead(@ScriptDir & "\Export.ini", "PFADE", "root", "keine Pfad konfiguriert")
Global $MAN = IniRead(@ScriptDir & "\Export.ini", "MANDANT", "MAN", "keine Pfad konfiguriert")
Global $JACDAT = IniRead(@ScriptDir & "\Export.ini", "PFADE", "JACDAT", "keine Pfad konfiguriert")

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

FileDelete(@ScriptDir & "\DirDaten.txt")
$file = FileOpen(@ScriptDir & "\DirDaten.txt", 1)
; Check if file opened for writing OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
SplashTextOn("", "Verzeichnissgrößen werden ermittelt und per Mail an die Kst. 93130 versendet ", 400, 50)
FileWrite($file, "Informationen vom " &@MDAY & "." & @MON & "." &@YEAR & @CRLF)
FileWrite($file, "Der " & @YDAY & ". Tag anno " & @YEAR & @CRLF)
FileWrite($file, ";------------------------------" & @CRLF)
;-----------------------------------------------------------------------------------------------------------------
$timer = TimerInit()
$size = DirGetSize($JACDAT, 1)
$diff = Round(TimerDiff($timer) / 1000) ; time in seconds
If IsArray($size) Then
FileWrite($file, "JackDat Verzeichniss Größe" & @CRLF)
FileWrite($file, "Größe: " & Round($size[0] / 1024 / 1024 / 1024, 2) & " GB" & @CRLF)
FileWrite($file, "Größe: " & Round($size[0], 2) & " byte" & @CRLF)
FileWrite($file, "Files: " & $size[1] & @CRLF)
EndIf
;-----------------------------------------------------------------------------------------------------------------
$varD = DriveSpaceFree($root)
FileWrite($file, ";------------------------------" & @CRLF)
FileWrite($file, "Größe (" & $root & ") :" & Round($varD / 1024, 2) & " GB noch frei" & @CRLF)
;-----------------------------------------------------------------------------------------------------------------
$timer = TimerInit()
$sizeD = DirGetSize($JACDAT & "\Belegarchiv\" & StringTrimLeft(@YEAR, 2) & @MON, 1)
$diff = Round(TimerDiff($timer) / 1000) ; time in seconds
If IsArray($sizeD) Then
FileWrite($file, ";------------------------------" & @CRLF)
FileWrite($file, "BelegArchiv " & @MON & " / " & StringTrimLeft(@YEAR, 2) & @CRLF)
FileWrite($file, "Verzeichniss Größe : " & Round($sizeD[0] / 1024 / 1024, 2) & " MB" & @CRLF)
FileWrite($file, "Files: " & $sizeD[1] & @CRLF)
FileWrite($file, "Dirs: " & $sizeD[2] & @CRLF)
EndIf
;-----------------------------------------------------------------------------------------------------------------
$timer = TimerInit()
$sizeD = DirGetSize($JACDAT & "\Belegarchiv\" & StringTrimLeft(@YEAR, 2) & "0"& (@MON - 1), 1)
$diff = Round(TimerDiff($timer) / 1000) ; time in seconds
If IsArray($sizeD) Then
FileWrite($file, ";------------------------------" & @CRLF)
FileWrite($file, "BelegArchiv Vormonat " & "0"& (@MON - 1) & " / " & StringTrimLeft(@YEAR, 2) & @CRLF)
FileWrite($file, "Verzeichniss Größe Vormonat: " & Round($sizeD[0] / 1024 / 1024, 2) & " MB" & @CRLF)
FileWrite($file, "Files: " & $sizeD[1] & @CRLF)
FileWrite($file, "Dirs: " & $sizeD[2] & @CRLF)
EndIf
FileClose($file)
$file = FileOpen(@ScriptDir & "\DirDaten.txt", 0)
; Check if file opened for reading OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
$dat = FileRead($file)
_sendmail ("Verzeichnisgrößen Jack (Mandant: " & $MAN & ") vom " & _Now(), $dat)
FileClose($file)
SplashOff()

[/autoit]

In dem TXT File steht folgendes drinnen

Spoiler anzeigen

Informationen vom 10.04.2007
Der 100. Tag anno 2007
;------------------------------
JackDat Verzeichniss Größe
Größe: 26.48 GB
Größe: 28434360752 byte
Files: 1984094
;------------------------------
Größe (D: ) :14.57 GB noch frei
;------------------------------
BelegArchiv 04 / 07
Verzeichniss Größe : 77.75 MB
Files: 16309
Dirs: 0
;------------------------------
BelegArchiv Vormonat 03 / 07
Verzeichniss Größe Vormonat: 396.56 MB
Files: 82375
Dirs: 0

Diese Daten sollen dann in einem Excel Sheet nach Datum sortiert und untereinander drinnen stehen.

[/EDIT]: Pro Server ein Register !!

danke für eure Hilfe
lg
TOM aus Wien

TOMTOM25m

leider nein

Hab es probier aber es hat leider nicht gefunzt.

TOMTOM25m

Hallo @ all,

wie kann ich einen Prozess abfragen der dann nach einer Verarbeitung steht (unter 2% idle) . dieser soll dann nach ca. 5mins geschlossen werden (process kill)

danke für die Hilfe

TOMTOM25m

Hi @ all

wie kann ich einen bestehenden geplanten Task vor Abarbeitung eines Scriptes deaktivieren und am Ende des Scripts wieder aktivieren und ausführen?

lg aus Wien

TOMTOM

TOMTOM25m

Hi,

du kannst auch das mal probieren:

[autoit]

Run(@ComSpec & " /c " & 'commandName', "", @SW_HIDE)

[/autoit]

so starte ich meine dos Applikationen im AutoIT
lg
TOM aus Wien

TOMTOM25m

danke danke es funzt beides

:stolz_bin: :musik1: :schild4:

TOMTOM25m

Hi @ all

wie kann man den Bildschirmschoner während dem Lauf eines Scripts deaktivieren ?

in der Hilfe konnte ich nix finden

liebe grüße aus wien

TOM

TOMTOM25m

hmmm das wäre mein kompettes script:

Spoiler anzeigen

[autoit]

#include<date.au3>
#include<file.au3>
#include <Date.au3>
#include <Array.au3>

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

Global $root = IniRead(@ScriptDir &"\Export.ini", "PFADE", "root", "keine Pfad konfiguriert")
Global $CRS = IniRead($root&"\Scripts\Export.ini", "PFADE", "CRS", "keine Pfad konfiguriert")
Global $JACDAT = IniRead($root&"\Scripts\Export.ini", "PFADE", "JACDAT", "keine Pfad konfiguriert")

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

;~ lese die Feiertage indas Array ein
Global $feiertage
If Not _FileReadToArray(@ScriptDir &"\feiertage.txt",$feiertage) Then
MsgBox(4096,"Error", " Keine Feiertage eingelesen ")
Exit
EndIf

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

;~ das aktuelle Datum

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

global $Date = _NowCalcDate()

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

;~ die berechnung ausführen

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

check($Date)

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

Func check($Date)
;2006/12/05 Default Wert
Local $GivenDate = $Date
Do
Do
If _ArraySearch($feiertage, $Date) <> -1 Then $Date = _DateAdd("D", -1, $Date)
Until _ArraySearch($feiertage, $Date) = -1

Local $YearMonthDay = StringSplit($Date, "/")
Local $weekDay = _DateToDayOfWeek($YearMonthDay[1], $YearMonthDay[2], $YearMonthDay[3])

Switch $weekDay
Case 1
$Date = _DateAdd("D", -2, $Date)
Case 7
$Date = _DateAdd("D", -1, $Date)
EndSwitch
Until _ArraySearch($feiertage, $Date) = -1
;~ MsgBox(0, "Day", "Verarbeitung von : " & $GivenDate & @CRLF & "wird am " & @CRLF & $Date & @CRLF & "stattfinden")
$EDate= _DateTimeFormat($GivenDate,2)
$BDate= _DateTimeFormat($Date,2)
IniWrite("C:\time.stamp", "TIME", "Beginn",$BDate)
IniWrite("C:\time.stamp", "TIME", "Ende",$EDate)
EndFunc ;==>check

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

Exit

[/autoit]

TOMTOM25m

Auch von mir ein Herzlichen Glückwunsch zu deinem Geburtstag und viel Glück im weiteren Leben.

:birthday:
:birthday:

TOMTOM25m

Zitat

Original von th.meger
Hmmh, bei mir springt er wenn ich es so mache richtigerweise auf den 28.12. wenn ich den 31.12 auswähle

hmm kann das sein das ich das Array falsch einlese???

Spoiler anzeigen

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

Global $feiertage
If Not _FileReadToArray(@ScriptDir &"\feiertage.txt",$feiertage) Then
MsgBox(4096,"Error", " Keine Feiertage eingelesen ")
Exit
EndIf

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

global $Date = _NowCalcDate()

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

check($Date)
....................................

[/autoit]

TOMTOM25m

Zitat

Original von th.meger
Hmmh, bei mir springt er wenn ich es so mache richtigerweise auf den 28.12. wenn ich den 31.12 auswähle

ja schon aber wenn ich an diese Woche denke gehts nicht.

Wir haben am Fr. 08.12.2006 Feiertag also muss die Sonntags Datenverarbeitung von Donnerstag, 07.12.06 bis Sonntag den 10.12.06 sein

liebe grüße aus Wien

TOMTOM25m

habs eingebaut .. keine änderung

Beiträge von TOMTOM25m

Problem bei der Überprüfung ob File passend mit Datum vorhanden

Problem bei der Überprüfung ob File passend mit Datum vorhanden

Problem bei der Überprüfung ob File passend mit Datum vorhanden

Ich bin's Micha_he

Bundesländer

Bundesländer

Daten (TXT File) in einem Excel Sheet speichern

Daten (TXT File) in einem Excel Sheet speichern

Daten (TXT File) in einem Excel Sheet speichern

Prozess Idle Time

Prozess Idle Time

Abschalten geplante Tasks

Problem bei der Arbeit mit CMD

Bildschrimschoner deaktivieren

Bildschrimschoner deaktivieren

Feiertags Berechnung

Glückwunsch zum Geburtstag peethebee

Feiertags Berechnung

Feiertags Berechnung

Feiertags Berechnung