Hallo Community =),
In meinem Script, werden Ini-Dateien nach Tagen angelegt, im jeweiligen Monats Ordner, die wiederum im jeweiligen Jahres Ordner erstellt werden.
Diese Dateien werden dann in eine ListeView eingetragen.
Allerdings werden nur solche Dateien eingelesen die nicht älter als 10 Tage sind, also z.b. 11.Februar bis 1.Feb.
Das klappt auch wunderbar =)
Jetzt kommt mein Problem dabei.
Wenn ich jetzt z.B. den 3.Feb angelegt habe, dann sollen ja dementsprechend die Dateien bis zum 25.Jan in die ListView eingetragen werden und das klappt leider nicht, ich hab schon alles probiert, was mir einfällt =(
Unten findet ihr meine Funktionen für diese Script Aufgabe
Ich hoffe mir kann einer dabei helfen
;~ -------ListView Übersicht komplett füllen---------------------------------------
Func ListView_Uebersicht_fuellen()
$DateAdd = _DateAdd('D', 0, _NowCalcDate())
$DateAdd2 = _DateAdd('D', -10, _NowCalcDate())
$Tag = int(StringRegExpReplace($DateAdd,'(\d{4})/(\d{2})/(\d{2})', ' $3 '))
$Tag2 =int(StringRegExpReplace($DateAdd2,'(\d{4})/(\d{2})/(\d{2})', ' $3 '))
$Monat2A = StringRegExpReplace($DateAdd2,'(\d{4})/(\d{2})/(\d{2})', ' $2 ')
MsgBox(0,"",$DateAdd)
MsgBox(0,"",$DateAdd2)
If $Tag < 11 Then
For $x = $Tag To 1 step -1
ListViewLaden($Pfad_Start&"\Start.ini",0,$x)
ListViewLaden($Pfad_Stopp&"\Stopp.ini",1,$x)
ListViewLaden($Pfad_Ende&"\Ende.ini",2,$x)
MsgBox(0,"","x = "&$x)
If $Tag < $Tag2 Then
For $y = 31 To $Tag2 Step -1
ListViewLaden($Pfad_Start&"\Start.ini",0,$y)
ListViewLaden($Pfad_Stopp&"\Stopp.ini",1,$y)
ListViewLaden($Pfad_Ende&"\Ende.ini",2,$y)
MsgBox(0,"","y = "&$y)
Next
EndIf
Next
ElseIf $Tag > 10 Then
For $z = $Tag To $Tag2 step -1
ListViewLaden($Pfad_Start&"\Start.ini",0,$z)
ListViewLaden($Pfad_Stopp&"\Stopp.ini",1,$z)
ListViewLaden($Pfad_Ende&"\Ende.ini",2,$z)
MsgBox(0,"","z = "&$z)
Next
EndIf
;~ -------ListView Übersicht Komplett füllen Func----------------------------------
Func ListViewLaden($Pfad_ListViewLaden,$Auswahl,$h)
$DateAdd = _DateAdd('D', 0, _NowCalcDate())
$DateAdd2 = _DateAdd('D', -10, _NowCalcDate())
$Tag = int(StringRegExpReplace($DateAdd,'(\d{4})/(\d{2})/(\d{2})', ' $3 '))
$Tag2 =int(StringRegExpReplace($DateAdd2,'(\d{4})/(\d{2})/(\d{2})', ' $3 '))
$Monat2A = StringRegExpReplace($DateAdd2,'(\d{4})/(\d{2})/(\d{2})', ' $2 ')
$SectionsCount = IniReadSectionNames($Pfad_ListViewLaden)
If NOT @error Then
$Count = $SectionsCount[0]
For $e = 1 To $Count
$ArrayStartName = IniReadSection($Pfad_ListViewLaden, $SectionsCount[$e])
$Name = $ArrayStartName[1][1]
$Spool = $ArrayStartName[2][1]
$Stopp = $ArrayStartName[3][1]
$Time = $ArrayStartName[4][1]
$Date = $ArrayStartName[5][1]
;~ _ArrayDisplay($ArrayStartName)
If $h < 10 Then
$Kom = IniRead($Pfad_Auftragserfassung_Archiviert&"\0"&$h&".ini", $Spool ,"Kom","")
$Bemerkung = IniRead($Pfad_Auftragserfassung_Archiviert&"\0"&$h&".ini", $Spool ,"Bemerkung","Fehler")
$Express = IniRead($Pfad_Auftragserfassung_Archiviert&"\0"&$h&".ini", $Spool ,"Express","Fehler")
$EndGe = "-"
Else
$Kom = IniRead($Pfad_Auftragserfassung_Archiviert&""&$h&".ini", $Spool ,"Kom","")
$Bemerkung = IniRead($Pfad_Auftragserfassung_Archiviert&""&$h&".ini", $Spool ,"Bemerkung","Fehler")
$Express = IniRead($Pfad_Auftragserfassung_Archiviert&""&$h&".ini", $Spool ,"Express","Fehler")
$EndGe = "-"
EndIf
If $Bemerkung <> "Fehler" AND $Express <> "Fehler" Then
If $Auswahl = 0 Then
GUICtrlCreateListViewItem($Name&"|"&$Kom&"|"&$Spool&"|"&$Time&"|"&$Date&"|"&$EndGe&"|"&$EndGe&"|"&$EndGe&"|"&$EndGe&"|"&$Bemerkung&"|"&$Express,$Voll_Uebersicht_List);Start
ElseIf $Auswahl = 1 Then
GUICtrlCreateListViewItem($Name&"|"&$Kom&"|"&$Spool&"|"&$EndGe&"|"&$EndGe&"|"&$EndGe&"|"&$EndGe&"|"&$Time&"|"&$Date&"|"&$Bemerkung&"|"&$Express,$Voll_Uebersicht_List);Stopp
ElseIf $Auswahl = 2 Then
GUICtrlCreateListViewItem($Name&"|"&$Kom&"|"&$Spool&"|"&$EndGe&"|"&$EndGe&"|"&$Time&"|"&$Date&"|"&$EndGe&"|"&$EndGe&"|"&$Bemerkung&"|"&$Express,$Voll_Uebersicht_List);Ende
EndIf
EndIf
If $Express = "Ja" Then GUICtrlSetBkColor(-1,0xFF0000)
Next
EndIf
EndFunc
Meiner Meinung nach mein bisheriger sinnvollster Versuch zur Problemlösung ohne Erfolg
[autoit];~ -------ListView Übersicht Komplett füllen Func----------------------------------
;~ ElseIf $Tag < $Tag2 Then
;~ $Kom = IniRead($Pfad_Auftragserfassung_ArchiviertA&$Monat2A&""&$h&".ini", $Spool ,"Kom","")
;~ $Bemerkung = IniRead($Pfad_Auftragserfassung_ArchiviertA&$Monat2A&""&$h&".ini", $Spool ,"Bemerkung","Fehler")
;~ $Express = IniRead($Pfad_Auftragserfassung_ArchiviertA&$Monat2A&""&$h&".ini", $Spool ,"Express","Fehler")
;~ $EndGe = "-"