Datenstand einer Software abfragen?

dieselwiesel

Hi @all

ich suche nach einer Möglichkeit den Datenstand einer Software abzufragen/auszulesen.
Die Ordnerstruktur schaut so aus...

Spoiler anzeigen

1.) LW:\MyProg\Daten\Marke1\Daten1\stand1035d.txt
LW:\MyProg\Daten\Marke1\Daten2\stand1034d.txt

2.) LW:\MyProg\Daten\Marke2\Daten1\stand972d.txt
LW:\MyProg\Daten\Marke2\Daten2\stand975d.txt

3.) LW:\MyProg\Daten\Marke3\Daten1\stand612d.txt
LW:\MyProg\Daten\Marke3\Daten2\stand613d.txt

4.) LW:\MyProg\Daten\Marke4\Daten1\stand1049d.txt
LW:\MyProg\Daten\Marke4\Daten2\stand1055d.txt

Leider habe ich noch keine richtige Vorstellung wie man das lösen könnte Wer kann mir den ein oder anderen Denkanstoß dazu geben?

Hintergrund ist das der niedrigere Datenstand eine Sicherungskopie ist und der dazugehörige Daten1/2 Ordner aus Platzgründen ggf. gelöscht werden könnte. Vllt. kann ich mir später auch noch einen Updater dazu basteln.

Danke schonmal im Voraus.

**alpines**

Dazu kannst du super mit _FileListToArray die Dateien und Ordner von MyProg\Daten auflisten und abspeichern.
Anschließend iterierst du einfach das Array oder teilst es vorher in kleinere Teile auf (für Marke1, 2, ...) und schaust dir den Dateinamen an.
Die Nummer kannst du mittels StringRegEx (Pattern wäre in diesem Falle: "stand(\d+)d\.txt") extrahieren und anschließend vergleichen.
Pass aber auf, nicht das AutoIt das als Stringvergleich sondern als Nummernvergleich nimmt. Kannst zur Sicherheit Number() für die Resultate des RegExes nutzen.

dieselwiesel

Danke erstmal für die Antwort!

Ich habe gestern vor u. nach der Anfrage gesucht und bin des öfteren auf _RecFileListToArray gestoßen. Habe es dann mal so probiert...

Spoiler anzeigen

AutoIt

#include <Array.au3>
#include <File.au3>
#include <RecFileListToArray.au3>


Local $sDir[4]
$sdir[0] = '\Daten\Marke1\'
$sdir[1] = '\Daten\Marke2\'
$sdir[2] = '\Daten\Marke3\'
$sdir[3] = '\Daten\Marke4\'


Local $sSub[2]
$sdir[0] = 'Daten1\'
$sdir[1] = 'Daten2\'


For $i = 0 To UBound($sDir) - 1
   For $j = 0 To $sSub[0]
	  $aFolderList = _RecFileListToArray(@ScriptDir & $sDir[$i] & $sSub[$j], "stand*.txt", 1, 1, 0, 2)
	  _ArrayDisplay($aFolderList)
   Next
Next

Alles anzeigen

...es zeigt mir dann jeweils die Pärchen, aber nur von Marke3 und 4, die 1 und 2 macht es nicht

**alpines**

Wieso auf _RecFileListToArray zurückgreifen wenn es doch schon in der File.au3 enthalten ist?
Ich hätte das ganze so gelöst. (Anhang)

dieselwiesel

Zitat von alpines

Wieso...?

Weil ich zeigen wollte, dass ich weis wie eine Suchfunktion funktioniert und nicht auf fertige Scripte/Schnipsel warte

Ich danke dir für dein Beispiel. Habe auch schon etwas damit rumprobiert, bin aber noch nicht auf den grünen Zweig gekommen. Hatte vergessen zu erwähnen das sich der Updatestand nach einem Update ändert und dann das andere Verzeichnis aktuell ist.

Spoiler anzeigen

AutoIt

#include <File.au3>
#include <Array.au3>
$aList = _FileListToArray("daten")
Global $aCount[4]
For $i = 1 To $aList[0]
	;Sofern alles statisch ist (von den Ordnernamen her) kann man es auch hardcoden.
;~ 	$aMarke = _FileListToArray("daten" & "\" & $aList[$i])
	$aDaten1 = _FileListToArray("daten" & "\" & $aList[$i] & "\daten1")
	$aDaten2 = _FileListToArray("daten" & "\" & $aList[$i] & "\daten2")
	$aRegEx1 = StringRegExp($aDaten1[1], "stand(\d+)d\.txt", 3)
	$aRegEx2 = StringRegExp($aDaten2[1], "stand(\d+)d\.txt", 3)
	If Number($aRegEx1[0]) >= Number($aRegEx2[0]) Then
	   $aList = $aRegEx1[0]
        Else
	   $aList = $aRegEx2[0]
        Endif
MsgBox(0, "Test", $aList)
Next

Alles anzeigen

So bringt es mir in der MsgBox den Datenstand. Jetzt will ich mal schauen wie ich die $aList als Variablen $aCount speichern kann.

**alpines**

Es hat ja niemand gesagt das du das nutzen musst. Es war ja nur ein Beispiel. Viele Wege führen ans Ziel, das ist einer davon.

dieselwiesel

Hab mir das gestern nochmal angeschaut und auch mal ein paar Bsp. probiert, damit ich das mit dem Array mal nachvollziehen kann.

So schauts jetzt aus...

Spoiler anzeigen

AutoIt

#include <File.au3>
#include <Array.au3>


$pattern = "(\d+)"


$aList = _FileListToArray("daten")


Global $sNew[4]


For $i = 1 To $aList[0]
   $aDaten1 = _FileListToArray("daten" & "\" & $aList[$i] & "\daten1", "stand*.txt")
   $aDaten2 = _FileListToArray("daten" & "\" & $aList[$i] & "\daten2", "stand*.txt")


	$aRegEx1 = StringRegExp($aDaten1[1], $pattern, 3)
	$aRegEx2 = StringRegExp($aDaten2[1], $pattern, 3)


   If $aRegEx1[0] > $aRegEx2[0] Then
	  Global $sNew = $aRegEx1[0]
   Else
	  Global $sNew = $aRegEx2[0]
   EndIf


MsgBox(0, "", $sNew)


Next

Alles anzeigen

Kannst du mir noch sagen welche bewandnis das Number() in deinem Bespiel hatte?

Habe auch probiert das Ergebnis ($sNew) pro Durchlauf in eine Variable zu bringen aber irgendwie klappt das nicht
Dachte $sNew[$i] = vor dem $aRegEx1+2 würde reichen, tut es aber nicht. Muss da auch noch eine For Next Schleife rein?

**BugFix**

Zitat von dieselwiesel

Kannst du mir noch sagen welche bewandnis das Number() in deinem Bespiel hatte?

Die Zahlen, die den Dateistand abbilden, werden aus einem String gelesen. Somit werden sie auch als String verglichen statt als Zahl. Deshalb wird mit Number sichergestellt, dass ein Zahlenvergleich stattfindet.

AutoIt

10 < 9     ; False
'10' < '9' ; True !!

**alpines**

Zitat von dieselwiesel

Kannst du mir noch sagen welche bewandnis das Number() in deinem Bespiel hatte?

BugFix hat das vor mir schon ziemlich gut erläutert. Zur Sicherheit sollte man bei RegEx immer Number() nehmen wenn man Zahlen parsen möchte da AutoIt die Zahlen als String hantiert.
So kann der anschließende Vergleich fehlschlagen. Siehe dazu BugFix' Beispiel.

Zitat von dieselwiesel

Habe auch probiert das Ergebnis ($sNew) pro Durchlauf in eine Variable zu bringen aber irgendwie klappt das nicht
Dachte $sNew[$i] = vor dem $aRegEx1+2 würde reichen, tut es aber nicht. Muss da auch noch eine For Next Schleife rein?

Du deklarierst $sNew immer neu, am Anfang sagst du das es ein Array sein soll und am Ende erwartest du eine einfache Variable.
Wenn du die Datenstände im Array speichern willst setz oben ein Global $aNew[4] hin und bei der If-Verzweigung setzt du es dann ungefährt so:
$aNew[$i - 1] = $aRegEx1[0] Die -1 kommen davon das die For-Schleife beim Index 1 anfängt und nicht bei 0.

Außerdem würde ich das so machen das du $aNew so deklarierst, das die Größe immer variabel ist.
Die Größe kannst du = $aList[0] setzen also praktisch so: Global $aNew[$aList[0]]

Natürlich solltest du das ganze Errorhandling nicht vergessen!

dieselwiesel

Zitat von alpines

Natürlich solltest du das ganze Errorhandling nicht vergessen!

Oh ja, danke für den wichtigen Hinweis!!! Damit sollte ich schon ganz oben anfangen. Hab nämlich mal einen der Daten1/2 Ordner gelöscht und schon bricht die ganze Sache ab, weil ja die Grundlage nicht mehr da ist.

Sollte ich da mit einem FileExists() prüfen ob der Pfad vorhanden ist oder mir mit If @error irgendwas ausdenken?

EDIT: habe ein BSP. in der Hilfe gefunden, mit dem werde ich mich heute abend mal beschäftigen...

**alpines**

Völlig egal, Hauptsache du fängst sie alle ab.

dieselwiesel

Ich hoffe das ich so alle möglichen Fehler berücksichtigt habe...?

Spoiler anzeigen

AutoIt

#include <File.au3>
#include <Array.au3>


$pattern = "(\d+)"


$aList = _FileListToArray("daten")


Global $aNew[$aList[0]]


For $i = 1 To $aList[0]


   $aDaten1 = _FileListToArray("daten" & "\" & $aList[$i] & "\daten1", "stand*.txt")
   If IsArray($aDaten1) Then
	  Local $aRegEx1 = StringRegExp($aDaten1[1], $pattern, 3)
    Else
	  Local $aRegEx1 = StringRegExp("0", $pattern, 3)
   EndIf


   $aDaten2 = _FileListToArray("daten" & "\" & $aList[$i] & "\daten2", "stand*.txt")
   If IsArray($aDaten2) Then
	  Local $aRegEx2 = StringRegExp($aDaten2[1], $pattern, 3)
    Else
	  Local $aRegEx2 = StringRegExp("0", $pattern, 3)
   EndIf


$sTest = Number($aRegEx1[0]) > Number($aRegEx2[0])


   If $sTest = 1 Then
	  $aNew[$i - 1] = $aRegEx1[0]
	  ;ConsoleWrite($sNew & @CRLF)
   Else
	  $aNew[$i - 1] = $aRegEx2[0]
	  ;ConsoleWrite($sNew & @CRLF)


   EndIf


Next


MsgBox(0, "", $aNew[0] & "/" & $aNew[1] & "/" & $aNew[2] & "/" & $aNew[3])

Alles anzeigen

Vllt. gehts ja noch ein bißchen kompakter