Beiträge von alpines

Die Infos die du suchst müssten doch in $aCurrentData = StringSplit($aRegEx[$i], " ", 3) stehen.
[0] wäre das Datum, [1] wäre die Uhrzeit und [2] bis [UBound($aCurrentData) - 1] wären die Wörter die nach der Uhrzeit kommen (Wecker, 29).

Wenn du das Label dahinter abspeichern willst (getrennt fürs Intervall), dann rate ich dir das nicht so zu lösen wie ich das gemacht habe, weil es nur ein Label zulässt.
Erstell viel lieber ein 2D-Array wo du Datum, Uhrzeit, Label und Häufigkeit speicherst, das iterierst du dann jedes Mal wenn du ein neues überprüfen möchtest.

Das solltest nicht allzuschwierig sein zudem was ich gebastelt habe.

Zitat von nwmbd

Wie erkläre ich Ihm das er unten die Einträge einfügen soll?

Was meinst du genau damit? Das z.B. alle "Wecker" in einem Intervall zusammengefasst werden aber "Tisch" z.B. im selben Intervall nicht bei Wecker reinfällt?

Auftrag erledigt!

Zitat von nwmbd

Ich wollte nun noch verstehen wie dies funktioniert, nicht mehr und nicht weniger.

Es ist kein Hexenwerk, er schaut einfach wie oft der Eintrag zu finden ist für das Stundenintervall und fügt das dem Array hinzu.
Wenn du nicht verstehst was die _Array*-Funktionen machen, dann schau am besten in die Dokumentation.

Zitat von nwmbd

ich wollte auf dem Weg verstehen wie dies funktioniert, wenn etwas noch dahinter stehen würde.

Das hättest du aber auch von Anfang an schon sagen können!

So jetzt aber! Hab auch die Uhrzeit korrigiert (solange hinter der Uhrzeit was auftaucht ist alles in Ordnung, darf aber nicht nichts auftauchen):

#include <Array.au3>


$sFile = FileRead("datei.txt")
$aRegEx = StringRegExp($sFile, "(\d+\.\d+\.\d+ \d+:\d+)", 3)


Local $aDates[0][25]


For $i = 0 To UBound($aRegEx) - 1
	$aCurrentData = StringSplit($aRegEx[$i], " ", 3)
	$aCurrentTime = StringSplit($aCurrentData[1], ":", 3)


	$bFound = False


	For $j = 0 To UBound($aDates) - 1
		If $aDates[$j][0] = $aCurrentData[0] Then ;Wenn das Datum übereinstimmt
			$aDates[$j][$aCurrentTime[0] + 1] += 1
			$bFound = True
			ExitLoop
		EndIf
	Next


	If Not $bFound Then
		ReDim $aDates[UBound($aDates) + 1][25]
		$aDates[UBound($aDates) - 1][0] = $aCurrentData[0]
		$aDates[UBound($aDates) - 1][$aCurrentTime[0] + 1] = 1
	EndIf
Next


_ArraySort($aDates)


$sFile = ""


For $i = 0 To UBound($aDates) - 1
	For $j = 1 To 24
		;Wenn kein Eintrag vorhanden dann auslassen (kannst du auskommentieren)
		If Not $aDates[$i][$j] Then ContinueLoop


		$sFile &= $aDates[$i][0] & " " & ($j < 11 ? "0" : "") & ($j - 1) & ":00 - " & ($j < 11 ? "0" : "") & ($j - 1) & ":59 " & $aDates[$i][$j] & " Eintraege" & @CRLF
	Next
Next


FileDelete("auswertung.csv")
FileWrite("auswertung.csv", $sFile)

Haken setzen nicht vergessen

Zitat von nwmbd

Nur mal für mich, was muss ich wo verändern wenn ich danach noch mehr Einträge in der Datei habe?!

Was meinst du mit mehr Einträge?

Zitat von nwmbd

Leider funktioniert es nur bis 09:59, alle Einträge ab 10:00 Uhr werden leider nicht gezählt.

Das lag daran das ich $i und $j vertauscht hab und weniger als 10 Einträge beim Test hatte. Hier die korrigierte Version.
@autoiters Variante ist nicht wirklich anders, er nutzt halt die built-in Funktion wohingegen ich den Eliminations"algorithmus" selber implementiere, weil mir die Funktion nicht mehr einfiel.

#include <Array.au3>


$sFile = FileRead("datei.txt")
$aRegEx = StringRegExp($sFile, "(\d+\.\d+\.\d+ \d+:\d+)", 3)


Local $aDates[0][25]


For $i = 0 To UBound($aRegEx) - 1
	$aCurrentData = StringSplit($aRegEx[$i], " ", 3)
	$aCurrentTime = StringSplit($aCurrentData[1], ":", 3)


	$bFound = False


	For $j = 0 To UBound($aDates) - 1
		If $aDates[$j][0] = $aCurrentData[0] Then ;Wenn das Datum übereinstimmt
			$aDates[$j][$aCurrentTime[0] + 1] += 1
			$bFound = True
			ExitLoop
		EndIf
	Next


	If Not $bFound Then
		ReDim $aDates[UBound($aDates) + 1][25]
		$aDates[UBound($aDates) - 1][0] = $aCurrentData[0]
		$aDates[UBound($aDates) - 1][$aCurrentTime[0] + 1] = 1
	EndIf
Next


_ArraySort($aDates)


$sFile = ""


For $i = 0 To UBound($aDates) - 1
	For $j = 1 To 24
		;Wenn kein Eintrag vorhanden dann auslassen (kannst du auskommentieren)
		If Not $aDates[$i][$j] Then ContinueLoop


		$sFile &= $aDates[$i][0] & " " & ($j < 10 ? "0" : "") & $j & ":00 - " & ($j < 10 ? "0" : "") & $j & ":59 " & $aDates[$i][$j] & " Eintraege" & @CRLF
	Next
Next


FileDelete("auswertung.csv")
FileWrite("auswertung.csv", $sFile)

Zitat von Jefta

In der Hilfe von AutoIt steht dass man die Funktion in Strings packen muss.

Du kannst die Funktions als "Pointer" übergeben wenn du nur den Funktionsnamen übergibst ohne die ().
Das klappt mit den String-Literalen oder auch ohne.

Zitat von Jefta

Ich habe eine Funktion mit zwei Parametern. Ich möchte aber die Parameterangabe bei dem GUICtrlSetOnEvent einbauen

Da hast du was falsch verstanden, die Event-Funktion wird getriggered wenn du auf den Button klickst und mehr soll sie auch nicht machen.
In der Funktion selber kannst du den Klick auswerten und andere Funktionen mit den gewünschten Parametern callen.

Mit bestimmten Makros @GUI_CtrId z.B. findest du das letztgeklickte Control heraus.

Nein, bin kein Bayer. Wohne in der Nähe von Hannover in Niedersachsen!
Das schaut aber ziemlich schick aus, hast du das auch fürs Telefon oder nur für PC?

Joa gut So kann man es auch machen.

Ich hab mal den grünen Haken für [gelöst] gesetzt damit andere User direkt die Lösung finden (1. Beitrag bearbeiten, Threadpräfix).

Hier mal das ganze wie ich das gelöst hätte.

#include <Array.au3>


$sFile = FileRead("datei.txt")
$aRegEx = StringRegExp($sFile, "(\d+\.\d+\.\d+ \d+:\d+)", 3)


Local $aDates[0][25]


For $i = 0 To UBound($aRegEx) - 1
	$aCurrentData = StringSplit($aRegEx[$i], " ", 3)
	$aCurrentTime = StringSplit($aCurrentData[1], ":", 3)


	$bFound = False


	For $j = 0 To UBound($aDates) - 1
		If $aDates[$j][0] = $aCurrentData[0] Then ;Wenn das Datum übereinstimmt
			$aDates[$j][$aCurrentTime[0] + 1] += 1
			$bFound = True
			ExitLoop
		EndIf
	Next


	If Not $bFound Then
		ReDim $aDates[UBound($aDates) + 1][25]
		$aDates[UBound($aDates) - 1][0] = $aCurrentData[0]
		$aDates[UBound($aDates) - 1][$aCurrentTime[0] + 1] = 1
	EndIf
Next


_ArraySort($aDates)


$sFile = ""


For $i = 0 To UBound($aDates) - 1
	For $j = 1 To 24
		;Wenn kein Eintrag vorhanden dann auslassen (kannst du auskommentieren)
		If Not $aDates[$i][$j] Then ContinueLoop


		$sFile &= $aDates[$i][0] & " " & ($i < 10 ? "0" : "") & $i & ":00 - " & ($i < 10 ? "0" : "") & $i & ":59 " & $aDates[$i][$j] & " Eintraege" & @CRLF
	Next
Next


FileDelete("auswertung.csv")
FileWrite("auswertung.csv", $sFile)

datei.txt

02.01.2017 00:02
02.01.2017 00:49
02.01.2017 00:59
02.01.2017 02:45
02.01.2017 02:33
01.01.2017 00:02
01.01.2017 00:49
01.01.2017 00:59
01.01.2017 02:45
01.01.2017 02:33

Das liegt daran das ShellExecute das Working-Directory verändert. Schau dir mal in der Dokumentation die Funktion ShellExecute an und pass den Parameter fürs Working-Directory an.
Da sollte der Pfad der Anwendung ohne Dateinahmen hin.

Schön das es klappt, ich hab deinen Thread auf [gelöst] gesetzt damit andere Nutzer sofort die Lösung finden (1. Beitrag bearbeiten).

Sind doch nicht viele Umlaute, probier alle aus und StringReplace sie in einer Funktion wenn die FF.au3 keinen anderen Zeichensatz anbietet.

Ganz platt kannst du das so machen:

ShellExecute("C:\Program Files (x86)\iSmartViewPro\iSmartViewPro.exe")


Do
	Sleep(250)
Until WinExists("Fenstertitel hier einfügen")


WinActivate("Fenstertitel hier einfügen")
Send("{LWIN down}{LSHIFT down}{RIGHT down}")
Sleep(100)
Send("{LWIN up}{LSHIFT up}{RIGHT up}")

Es ist aber 1000x besser wenn du statt den Sends lieber WinMove verwendest. Versuch mal ein paar Koordinaten bis es passt und dann hast du es viel zuverlässiger als mit Send.
Deine Koordinaten können je nach Bildschirmanordnung abweichen!

ShellExecute("C:\Program Files (x86)\iSmartViewPro\iSmartViewPro.exe")


Do
	Sleep(250)
Until WinExists("Fenstertitel hier einfügen")


WinMove("Fenstertitel hier einfügen", "", -1920, 0)

Kannst mir gerne mal eine vollständige Beispiel-XML senden (per PN) wo du mir zeigst welche Sachen genau er rausparsen soll, dann kann ich dir dafür eventuell schnell was zusammenschreiben.

Schön das es funktioniert, ich habe mal den grünen Haken für [gelöst] gesetzt. (1. Beitrag bearbeiten!)

Ohne Zugriff auf die Seite können wir dir leider nicht weiterhelfen, ich kann auch nur raten woran es liegt.