Durchschnittsberechungen aus mehreren XML-Files

Amelie · 14. Mai 2023, 09:51

EDIT um 15:00 UHR
Bis auf den Code in der Region "Berechnungen" habe ich mal aufgeräumt und den Code hoffentlich verbessert.

Moin moin

Ich schreibe weiter an meiner WetterApp. Gleich zur Info, die wird nur auf einem älteren Laptop laufen, deswegen können die Pfade so "hardcodiert" sein. Also rein privat.

Ich erzeuge ja nun für jeden Monat eine XML-Datei. Nun sollen diese durchlaufen werden, und aus den einzelnen Knoten die Durchschnittswerte berechnet werden.
Diese sollen dann in einem DGV angezeigt und auch wieder als XML-Datei gespeichert werden.

Ich weiß nicht genau wie ich an die Auswertung herangehen soll. Eine Idee war es, erst für jeden Monat die ganzen Durchschnittswerte zu berechen und dann die Jahresabrechnung.
Ich hoffe Ihr versteht was ich erreichen möchte und könnt mir bei der Umsetzung helfen.

Einiges was ich bisher habe, funktioniert soweit.
Probleme gibt es bei den Berechnungen und anzeigen im DGV. Ich hänge mal Bilder an um es ggf zu verdeutlichen.

Mein bisheriger Code. Den Teil um das DGV zu formatieren habe ich weggelassen!

Spoiler anzeigen

VB.NET-Quellcode

Public Class frmMain
#Region "Form-laden"
'Klasse zum laden der MonatsXML etc.
Private FileManager As New FileManager
'Klasse zum speichern der AbschlussXML
Private SaveXMLfile As New SaveXMLfile
'Klasse für die Wetterdaten
Private weatherDataList As New WeatherDataArray
'Zeilenhöhe des DGV festlegen
Private Const dgvCellhight As Integer = 32
Public Sub New()
InitializeComponent()
LoadMonthXmlFiles()
'FormatDataGridView(DGV_1, dgvCellhight)
End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim yearXmlFile As String = String.Format("Abschluss-{0}.xml", Date.Now.Year)
Dim yearXmlPath As String = Path.Combine(FileManager.OutputPath, yearXmlFile)
lbl_Yearfile.Text = yearXmlPath
CalcAllValues()
End Sub
#End Region
#Region "Buttons"
Private Sub btn_SaveXML_Click(sender As Object, e As EventArgs) Handles btn_SaveXML.Click
' DataGridView-Daten in eine DataTable konvertieren
Dim dt As DataTable = SaveXMLfile.ConvertDataGridViewToDataTable(DGV_1)
' DataTable in eine XML-Datei speichern
SaveXMLfile.SaveDataTableToXmlFile(dt, FileManager.outputPath)
End Sub
#End Region
#Region "Monats XMLs laden"
Private Sub LoadMonthXmlFiles()
' Ruft die GetXmlFiles()-Methode in der XmlFileManager-Klasse auf, um die XML-Dateien zu erhalten
Dim xmlFiles As List(Of String) = FileManager.GetXmlFiles()
' Füllt die Listbox mit den XML-Dateien
If xmlFiles.Count > 0 Then
listbox_XML_Files.DataSource = xmlFiles
Else
MessageBox.Show("Keine XML-Dateien gefunden.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
#End Region
#Region "Berechnungen"
Private Sub CalcAllValues()
Dim rainValues As New List(Of Double)
For Each xmlFile In listbox_XML_Files.Items()
Dim xmlDoc As New XmlDocument()
xmlDoc.Load(CStr(xmlFile))
Dim weatherDataNodes As XmlNodeList = xmlDoc.SelectNodes("//WeatherData")
For Each weatherDataNode As XmlNode In weatherDataNodes
Dim regenNode As XmlNode = weatherDataNode.SelectSingleNode("RegenTag")
Dim regenValue As Double = Double.Parse(regenNode.InnerText)
rainValues.Add(regenValue)
Next
Next
'Listbox nur zum Test
listbox_regen.DataSource = rainValues
listbox_regen.Refresh()
' Durchschnitt für jeden Monat berechnen
For month As Integer = 1 To 12
Dim currentMonth As Integer = month
Dim monthRainValues = rainValues.Where(Function(r)
Dim monthDate = New DateTime(dtpDatum.Value.Year, currentMonth, 1)
Return monthDate.Month = currentMonth
End Function)
Dim averageRain = If(monthRainValues.Any(), monthRainValues.Average(), 0)
'Label nur zum Test
label_averageRegen.Text = "Durchschnittlicher Regen: " & averageRain.ToString("F2") & " mm"
Dim monthData As New WeatherData With {
.Datum = New DateTime(dtpDatum.Value.Year, currentMonth, 1).ToString,
.Regen24h = CDbl(averageRain.ToString("F2"))
}
weatherDataList.Add(monthData)
Next
' DGV aktualisieren
DGV_1.DataSource() = weatherDataList
DGV_1.Refresh()
End Sub
#End Region
End Class
'Klasse für Wetterdaten
Public Class WeatherData
Private _datum As Date
Public Property Datum As String
Get
Return _datum.ToString("MM - yyyy")
End Get
Set(ByVal value As String)
If Date.TryParse(value, _datum) Then
_datum = _datum.Date
Else
Throw New ArgumentException("Ungültiges Datumsformat.")
End If
End Set
End Property
Public Property Regen24h As Double
Public Property SchneeTag As Double
Public Property SchneeNacht As Double
Public Property LuftfminTag As Double
Public Property LuftfmaxTag As Double
Public Property LuftfminNacht As Double
Public Property LuftfmaxNacht As Double
Public Property TempTag As Double
Public Property TempNacht As Double
Public Property WindTag As Double
Public Property WindNacht As Double
End Class
'Klasse für Array von Wetterdaten
Public Class WeatherDataArray
Inherits List(Of WeatherData)
End Class
Public Class FileManager
'Pfade können so bleiben, da die App nur auf einem Laptop laufen wird.
Private _folderPath As String = "C:\Wetterdaten"
Public Property FolderPath As String
Get
Return _folderPath
End Get
Set(value As String)
_folderPath = value
End Set
End Property
Private _outputPath As String = "C:\Wetterdaten\Jahresdaten"
Public Property OutputPath As String
Get
Return _outputPath
End Get
Set(value As String)
_outputPath = value
End Set
End Property
Public Sub New()
CreateOutputDirectory()
End Sub
Public Function GetXmlFiles() As List(Of String)
Return Directory.GetFiles(folderPath, "??-????.xml").Where(Function(file) Regex.IsMatch(Path.GetFileNameWithoutExtension(file), "^\d{2}-\d{4}$")).ToList()
End Function
Public Sub CreateOutputDirectory()
If Not Directory.Exists(outputPath) Then
Directory.CreateDirectory(outputPath)
End If
End Sub
End Class
Public Class SaveXMLfile
'Klasse zum speichern der AbschlussXML
Public Function ConvertDataGridViewToDataTable(dgv As DataGridView) As DataTable
Dim xmlDataTable As New DataTable("Abschluss")
For Each column As DataGridViewColumn In dgv.Columns
If column.Visible Then
xmlDataTable.Columns.Add(column.HeaderText, column.ValueType)
End If
Next
For Each row As DataGridViewRow In dgv.Rows
If Not row.IsNewRow Then
Dim dr As DataRow = xmlDataTable.NewRow()
For Each column As DataGridViewColumn In dgv.Columns
If column.Visible Then
If column.Name = "Datum" AndAlso row.Cells(column.Index).Value IsNot Nothing Then
Dim dateValue As Date = CType(row.Cells(column.Index).Value, Date)
dr(column.HeaderText) = dateValue.ToString("MM/yyyy")
Else
dr(column.HeaderText) = If(row.Cells(column.Index).Value IsNot Nothing, row.Cells(column.Index).Value, DBNull.Value)
End If
End If
Next
xmlDataTable.Rows.Add(dr)
End If
Next
Return xmlDataTable
End Function
Public Sub SaveDataTableToXmlFile(xmlDataTable As DataTable, outputPath As String)
Dim yearXmlFile As String = String.Format("Abschluss-{0}.xml", Date.Now.Year)
Dim yearXmlPath As String = Path.Combine(outputPath, yearXmlFile)
xmlDataTable.TableName = "Abschluss"
Try
xmlDataTable.WriteXml(yearXmlPath)
MessageBox.Show("XML-Datei erfolgreich gespeichert.", "Erfolgreich", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class

DTF · 14. Mai 2023, 10:29

Warum alles als XML speichern? Das finde ich für solche Datensammlungen unpassend. Ich würde eine richtige Datenbank empfehlen. Richtig umgesetz kannst du dann mit wenig Aufwand solche Ansichten erstellen. Dazu würde ich dir empfehlen entweder deutsche oder englische Namen für Variablen nehmen, das ist doch grauenhaft zu lesen. (Ich finde generell englisch besser, weil bei deutschen Namen sieht es immer noch "Denglisch" aus, wegen der englischen Schlüsselwörter)

Amelie · 14. Mai 2023, 13:43

@DTF
Das mit den Datenbanken ist hier keine Option, weil auf dem Laptop nichts installiert werden soll. Deswegen schreibe ich die WetterApp so, das sie quasi als "portable-Version" läuft.
Mit dem "de-en" gebe ich dir Recht, verfalle halt oft wieder ins "de" , aber ich mache das ja auch noch nicht so lange.

Panter · 14. Mai 2023, 14:31

Hallo Amelie

Ich würde im Dataset eine zusätzliche Tabelle anlegen. Diese würde ich mit dem Ergebnis füllen. Ich verwende immer strukturierte Datensetz, daher kann ich bei deiner Programmierung nicht direkt helfen. Evtl. könnte man mit Linq ein Agregatsabfrage erstellen. Wenn du eine Beispiel XML einstellen würde könnte ich es mal probieren.

LG Panter

DTF · 14. Mai 2023, 14:37

Amelie schrieb:

, weil auf dem Laptop nichts installiert werden soll.

Du musst nicht unbedingt einen Datenbank Server laufen lassen. Sqlite kommt ohne aus, einfach ein Nuget-Packet dem Projekt hinzufügen fertig, bleibt also portable. Weiterer Vorteil wäre, es läuft flotter. Aber das wird bei dem Projekt nicht nennenswert sein, du sparst aber Speicher(Xml Overhead) und auch RAM ein.

Amelie · 14. Mai 2023, 15:07

@DTF und @Panter und alle anderen

Habe gerade um 15:00 Uhr meinen Code im ersten Beitrag geändert.

Ich würde im Dataset eine zusätzliche Tabelle anlegen. Diese würde ich mit dem Ergebnis füllen.

Diese Idee hate ich auch aber bin dann völlig durcheinander gekommen.
EDIT: eine MonatsXML angehangen.

DTF · 14. Mai 2023, 15:47

Ok, kurze Rückfrage @Amelie. Du verwendest wirklich NetFx und nicht NET? Ich frage weil du die XML selbst liest anstatt Dataset und Co zu nutzen. Je nach Runtime, mach ich dir mal ein kleines Beispiel heute Abend oder morgen früh.(Auf Basis von XML.

PS.

Woher beziehst du die Daten? Erhebst du sie selbst von Hand?

Amelie · 14. Mai 2023, 16:25

Woher beziehst du die Daten? Erhebst du sie selbst von Hand?

Mein Opa hat so eine Wetterstation und schreibt die Werte da immer ab. Früher hat er das auf 100 Zetteln gemacht.
Das Tool wo er die Wetterdaten eingibt und speichert läuft ja bereits. Ganz simpel.
Ein DGV wo er die Daten eingibt und ein Button zu speichern was dann für jeden Monat einXML-File generiert.

<a href="https://www.vb-paradise.de/index.php/Thread/136870-DataGridView-quer-ausdrucken/?postID=1180846#post1180846">DataGridView quer ausdrucken</a>

Fakiz · 14. Mai 2023, 17:14

Guck dir mal Zeile 66-69 an.

DTF · 14. Mai 2023, 17:48

@Amelie ich hab mir das eben angeschaut, du hattest da einen falschen Ansatz. Ich hab dir da einen "Flicken" gemacht. VB ist zu lange her bei mir, musste das in C# machen.

PS.
Aber dann ist die JahresAnsicht nicht drin, ich verbessere das noch.

PPS.
So ist dann auch der JahresSchnittberechnet, aber für die Jahresausgabe würde ich auch deinen Opa mitteilen auf wie vielen Monaten(oder Tagen) das basiert irgendwo wo du das anzeogst, weil der durchschnitt nur durch summe aller Werte / Anzahl Werte errechnet werden kann.

C#-Quellcode

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Diagnostics;
using System.Drawing;
using System.IO;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using System.Xml;
using System.Xml.Serialization;
namespace WDD
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
public class WeatherDataArray : List<WeatherData> { }
public class WeatherData
{
private DateTime _datum;
public string Datum
{
get
{
return _datum.ToString("MM - yyyy");
}
set
{
if (DateTime.TryParse(value, out _datum))
{
_datum = _datum.Date;
}
else
{
throw new ArgumentException("Ungültiges Datumsformat.");
}
}
}
public double Regen24h { get; set; }
public double SchneeTag { get; set; }
public double SchneeNacht { get; set; }
public double LuftfminTag { get; set; }
public double LuftfmaxTag { get; set; }
public double LuftfminNacht { get; set; }
public double LuftfmaxNacht { get; set; }
public double TempTag { get; set; }
public double TempNacht { get; set; }
public double WindTag { get; set; }
public double WindNacht { get; set; }
}
private void Form1_Load(object sender, EventArgs e)
{
List<WeatherDataArray> list = new List<WeatherDataArray>();
foreach (string filename in System.IO.Directory.GetFiles("./", "*.xml", System.IO.SearchOption.AllDirectories))
{
XmlSerializer serializer = new XmlSerializer(typeof(WeatherDataArray));
using (FileStream fs = new FileStream(filename, FileMode.Open))
{
WeatherDataArray data = (WeatherDataArray)serializer.Deserialize(fs);
list.Add(data);
double LuftfmaxNachtDurchschnitt = data.Sum(wd => wd.LuftfmaxNacht) / data.Count;
Debug.WriteLine(LuftfmaxNachtDurchschnitt);
}
}
double LuftfmaxNachtDurchschnittJahr = list.Sum(wda => wda.Sum(wd => wd.LuftfmaxNacht / wda.Count)) / list.Count;
Debug.WriteLine(LuftfmaxNachtDurchschnittJahr);
}
}
}

Amelie · 14. Mai 2023, 19:00

@DTF
Ich hab von C# noch weniger Ahnung als von VB

auf wie vielen Monaten(oder Tagen) das basiert

Es wird jeder Tag / Monat aufgeschrieben und das dann in einzelnen XML-Dateien (pro Monat eine) abgelegt.
Ich dachte nun, das man dann für jeden Monat die Durchschnitte errechent usw...

Das habe ich jetzt noch: Macht mir nun eine XML mit den Durchschnittswerten. Aber wie weiter?????

Spoiler anzeigen

VB.NET-Quellcode

Public Class Calculation
Private Function ReadWeatherDataFromFile(filePath As String) As List(Of WeatherData)
Dim xdoc As XDocument = XDocument.Load(filePath)
Dim weatherDataList As List(Of WeatherData) = (
From element In xdoc.Descendants("WeatherData")
Select New WeatherData With {
.Datum = CStr(Date.ParseExact(element.Element("Datum").Value, "dd-MM-yyyy", Nothing)),
.Regen24h = Integer.Parse(element.Element("RegenTag").Value),
.SchneeTag = Integer.Parse(element.Element("SchneeTag").Value),
.SchneeNacht = Integer.Parse(element.Element("SchneeNacht").Value),
.LuftfminTag = Integer.Parse(element.Element("LuftfminTag").Value),
.LuftfmaxTag = Integer.Parse(element.Element("LuftfmaxTag").Value),
.LuftfminNacht = Integer.Parse(element.Element("LuftfminNacht").Value),
.LuftfmaxNacht = Integer.Parse(element.Element("LuftfmaxNacht").Value),
.TempTag = Integer.Parse(element.Element("TempTag").Value),
.TempNacht = Integer.Parse(element.Element("TempNacht").Value),
.WindTag = Integer.Parse(element.Element("WindTag").Value),
.WindNacht = Integer.Parse(element.Element("WindNacht").Value)
}
).ToList()
Return weatherDataList
End Function
Private Function CalculateAverage(dataList As List(Of WeatherData), propertyName As String) As Double
Dim propertyInfo As Reflection.PropertyInfo = GetType(WeatherData).GetProperty(propertyName)
Dim propertyValues As IEnumerable(Of Double) = dataList.Select(Function(data) CType(propertyInfo.GetValue(data), Double))
Dim averageValue As Double = propertyValues.Average()
Return averageValue
End Function
Public Sub CalculateAndSaveAverages(inputFilePaths As List(Of String), outputFilePath As String)
Try
Dim allWeatherDataList As New List(Of WeatherData)
'Lade alle Wetterdaten aus der ersten Datei in die Liste
allWeatherDataList.AddRange(ReadWeatherDataFromFile(inputFilePaths(0)))
'Erstelle den Dateinamen aus dem Monat der ersten Wetterdaten
Dim firstDatum As Date = CDate(allWeatherDataList.First().Datum)
Dim averageXmlFile As String = String.Format("Durchschnitt-{0:MM-yyyy}.xml", firstDatum)
'Füge den Dateinamen dem Verzeichnispfad hinzu
Dim outputXML As String = Path.Combine(outputFilePath, averageXmlFile)
'Lade alle Wetterdaten in eine Liste
For Each filePath As String In inputFilePaths '.Skip(1)
Dim weatherDataList As List(Of WeatherData) = ReadWeatherDataFromFile(filePath)
allWeatherDataList.AddRange(weatherDataList)
Next
'Berechne Durchschnittswerte
Dim averageRain As Double = CalculateAverage(allWeatherDataList, "Regen24h")
Dim averageSchneeTag As Double = CalculateAverage(allWeatherDataList, "SchneeTag")
Dim averageSchneeNacht As Double = CalculateAverage(allWeatherDataList, "SchneeNacht")
Dim averageLuftfminTag As Double = CalculateAverage(allWeatherDataList, "LuftfminTag")
Dim averageLuftfmaxTag As Double = CalculateAverage(allWeatherDataList, "LuftfmaxTag")
Dim averageLuftfminNacht As Double = CalculateAverage(allWeatherDataList, "LuftfminNacht")
Dim averageLuftfmaxNacht As Double = CalculateAverage(allWeatherDataList, "LuftfmaxNacht")
Dim averageTempTag As Double = CalculateAverage(allWeatherDataList, "TempTag")
Dim averageTempNacht As Double = CalculateAverage(allWeatherDataList, "TempNacht")
Dim averageWindTag As Double = CalculateAverage(allWeatherDataList, "WindTag")
Dim averageWindNacht As Double = CalculateAverage(allWeatherDataList, "WindNacht")
'Erstelle neue XML-Datei mit Durchschnittswerten
Dim xdoc As New XDocument(
New XElement("AverageWeatherData",
New XElement("Regen24h", averageRain),
New XElement("SchneeTag", averageSchneeTag),
New XElement("SchneeNacht", averageSchneeNacht),
New XElement("LuftfminTag", averageLuftfminTag),
New XElement("LuftfmaxTag", averageLuftfmaxTag),
New XElement("LuftfminNacht", averageLuftfminNacht),
New XElement("LuftfmaxNacht", averageLuftfmaxNacht),
New XElement("TempTag", averageTempTag),
New XElement("TempNacht", averageTempNacht),
New XElement("WindTag", averageWindTag),
New XElement("WindNacht", averageWindNacht)
)
)
'Speichere die neue XML-Datei
xdoc.Save(outputXML)
MessageBox.Show("XML-Datei erfolgreich gespeichert.", "Erfolgreich", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class

DTF · 14. Mai 2023, 19:07

Amelie schrieb:

Ich hab von C# noch weniger Ahnung als von VB

Wirf meinen Code in diesen Konverter, der kann dir das übersetzen:
icsharpcode.github.io/CodeConverter/

Was ich vorhin vergessen hatte zu erwähnen, so wie ich das gemacht habe, werden ale XML dateien geparst, für eine filterung für jedes Jahr in Zeile 77 ein kleiner Edit, Where is das Stichwort, _datum in WheaterData public machen und mit dem Jahr vergleichen. Alternativ schon beim Dateinamen filtern(bei IO.Directory.GetFiles).

PS.
Du machst dir das zu kompliziert. Bei mir im Form_Load sinds nur ein paar Zeilen. Nimm den übersetzten

Da wo ich die Debug Ausgabe gemacht hab, machst du dann das hinzufügen der Zeilen.

Panter · 15. Mai 2023, 07:26

Hallo Amelie

Ich bin wahrscheinlich etwas weit weg von deiner Programmierung. Wie erwähnt habe ich mit dem Desinger ein Dataset erstellt und mache nun mit Linq eine gruppierte Abfrage. Diese fülle ich dann in die Ergebnis Tabelle ein. Ich habe auch das Projekt hochgeladen, ist wahrscheinlich einfacher.

Ich persönlich würde alle Daten in eine Datei speichern, Du kannst aber auch alle Daten nacheinander in das Dataset laden und dann die Abfrage ausführen.

Ich hoffe, du kannst etwas gebrauchen.

VB.NET-Quellcode

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.DataSet1.ReadXml("../../05-2023.xml")
End Sub
Private Sub BT_Speichern_Click(sender As Object, e As EventArgs) Handles BT_Speichern.Click
Me.DataSet1.WriteXml("../../05-2023.xml")
End Sub
Private Sub BT_zusammenfassung_Click(sender As Object, e As EventArgs) Handles BT_zusammenfassung.Click
Dim results =
From row In DataSet1.WeatherData
Let dt = CDate(row.Datum_)
Let sDate = String.Format("{0:yyyy}-{0:MM}", dt)
Group row By key = New With {Key .MMJJ = sDate} Into Group
Select MMJJ = key.MMJJ, LuftMaxNacht = Group.Max(Function(r) r.LuftmaxNacht), LuftMinNacht = Group.Min(Function(r) r.LuftminNacht)
DataSet1.Wetter_MMJJ.Clear()
For Each item In results
Dim row As DataSet1.Wetter_MMJJRow = DataSet1.Wetter_MMJJ.NewRow
row.MMJJ = item.MMJJ
row.LuftminNacht = item.LuftMinNacht
row.LuftmaxNacht = item.LuftMaxNacht
DataSet1.Wetter_MMJJ.Rows.Add(row)
Next
End Sub
End Class

Amelie · 15. Mai 2023, 09:07

@Panter
Habe hier ein Bild mit den Fehlermeldungen an gehangen.
Liegt wohl daran, das ich auf Win7-64Bit und VS 2013 schreibe und mir deswegen wohl einiges fehlt.

RodFromGermany · 15. Mai 2023, 09:13

@Amelie Was hindert Dich daran, auf Studio 2022 umzusteigen?

Amelie · 15. Mai 2023, 09:41

@RodFromGermany
Noch immer mein alter PC. Habe mal mit Win10 versucht aber damit ist der grotten lahm.
------------------------------
@DTF ...und alle anderen ;-)

Ich habe dein C# Code jetzt mal etwas umgeändert.
So berechnet das nun EINEN Wert aus den gefundenen Monats-XML-Dateien.

Spoiler anzeigen

Jetzt hängts in meinen Kopf.
a) die anderen Werte aus den XMLs lesen und berechen
b) as dann alles in ein DGV packen

DTF · 15. Mai 2023, 10:22

Musst du wieder übersetzen. Ich habe einfach mal meinen Code ein wenig erweitert. Nur ein DatagridView aufs Form geworfen und:

C#-Quellcode

private BindingSource bindingSource = new BindingSource();
private void Form1_Load(object sender, EventArgs e)
{
List<WeatherDataArray> list = new List<WeatherDataArray>();
List<WeatherData> weatherDatas = new List<WeatherData>();
foreach (string filename in System.IO.Directory.GetFiles("./", "*.xml", System.IO.SearchOption.AllDirectories))
{
XmlSerializer serializer = new XmlSerializer(typeof(WeatherDataArray));
using (FileStream fs = new FileStream(filename, FileMode.Open))
{
WeatherDataArray data = (WeatherDataArray)serializer.Deserialize(fs);
list.Add(data);
WeatherData weatherData = new WeatherData();
weatherData.Datum = data[0].Datum; // gibt ja immer den formattierten wert ist dann ja immer "MM - yyyy" und monat und jahr sind ja für alle Daten in der selben XML identisch
weatherData.LuftfmaxNacht = data.Sum(wd => wd.LuftfmaxNacht) / data.Count;
weatherDatas.Add(weatherData);
}
}
double LuftfmaxNachtDurchschnittJahr = list.Sum(wda => wda.Sum(wd => wd.LuftfmaxNacht / wda.Count)) / list.Count;
Debug.WriteLine(LuftfmaxNachtDurchschnittJahr);
bindingSource.DataSource = weatherDatas;
dataGridView1.DataSource = bindingSource;
}

Und wie durch Zauberei hat man schon die Ansicht(Siehe Anhang) für die Monate, du musst das nur noch ergänzen mit den andere Werten.
Auf diese Weise lassen sich dann auch die Jahresansichten in einem 2. DataGridView Anschauen.

INOPIAE · 15. Mai 2023, 11:05

Hallo Amelie,
für die tempoäre Ausgabe mache doch statt:

Amelie schrieb:

'Zum Test Monatsberechnungen ausgeben
lbl_averageTest2.Text = "Durchschnittlicher Schnee Monat: " & SchneeTagDurchschnitt.ToString("F2") & " cm"

einfach

VB.NET-Quellcode

Debug.Print("Durchschnittlicher Schnee Monat: " & SchneeTagDurchschnitt.ToString("F2") & " cm")

Damit wird die Ausgabe in das Ausgabe-Fenster umgeleitet.
Aus meiner Sicht ist der Vorteil, wenn man vergisst die Testausgabe zu löschen, bekommt der Anwender dies nicht mit. ggf. kommt auch kein Fehler weil ein Feld nicht mehr da ist. Es kostet nur etwas Rechenzeit.
Natürlich sollte man diese Testausgaben später auf jeden Fall löschen.

Amelie · 15. Mai 2023, 11:32

@DTF
EDIT: um 14:05 Uhr !!

Das funktioniert nun nach ersten Tests. Auch das speichern in einer neuen Jahres-XML funktioniert. Was ich nun noch ändern möchte, ist die Berechung gleich auf 2Nachkommastellen, weil in der XML-Datei etliche Nachkommastellen gespeichert werden.

Spoiler anzeigen

VB.NET-Quellcode

Private Sub CalculateYearAverages()
Dim list As List(Of WeatherDataArray) = New List(Of WeatherDataArray)()
Dim weatherDatas As List(Of WeatherData) = New List(Of WeatherData)()
For Each filename As String In System.IO.Directory.GetFiles(FileManager.FolderPath, "*.xml", System.IO.SearchOption.TopDirectoryOnly)
'gefundene Monats-XML anzeigen
listbox_XML_Files.Items.Add(filename)
Dim serializer As XmlSerializer = New XmlSerializer(GetType(WeatherDataArray))
Using fs As FileStream = New FileStream(filename, FileMode.Open)
Dim data As WeatherDataArray = CType(serializer.Deserialize(fs), WeatherDataArray)
list.Add(data)
Dim weatherData As WeatherData = New WeatherData()
weatherData.Datum = data(0).Datum
weatherData.SchneeTag = data.Sum(Function(wd) wd.SchneeTag) / data.Count
weatherData.SchneeNacht = data.Sum(Function(wd) wd.SchneeNacht) / data.Count
weatherData.LuftfminTag = data.Sum(Function(wd) wd.LuftfminTag) / data.Count
weatherData.LuftfmaxTag = data.Sum(Function(wd) wd.LuftfmaxTag) / data.Count
weatherData.LuftfminNacht = data.Sum(Function(wd) wd.LuftfminNacht) / data.Count
weatherData.LuftfmaxNacht = data.Sum(Function(wd) wd.LuftfmaxNacht) / data.Count
weatherData.TempTag = data.Sum(Function(wd) wd.TempTag) / data.Count
weatherData.TempNacht = data.Sum(Function(wd) wd.TempNacht) / data.Count
weatherData.WindTag = data.Sum(Function(wd) wd.WindTag) / data.Count
weatherData.WindNacht = data.Sum(Function(wd) wd.WindNacht) / data.Count
weatherDatas.Add(weatherData)
End Using
Next
Dim SchneeTagDurchschnittJahr As Double = list.Sum(Function(wda) wda.Sum(Function(wd) wd.SchneeTag / wda.Count)) / list.Count
Dim SchneeNachtDurchschnittJahr As Double = list.Sum(Function(wda) wda.Sum(Function(wd) wd.SchneeNacht / wda.Count)) / list.Count
Dim LuftfminTagDurchschnittJahr As Double = list.Sum(Function(wda) wda.Sum(Function(wd) wd.LuftfminTag / wda.Count)) / list.Count
Dim LuftfmaxTagDurchschnittJahr As Double = list.Sum(Function(wda) wda.Sum(Function(wd) wd.LuftfmaxTag / wda.Count)) / list.Count
Dim LuftfminNachtDurchschnittJahr As Double = list.Sum(Function(wda) wda.Sum(Function(wd) wd.LuftfminNacht / wda.Count)) / list.Count
Dim LuftfmaxNachtDurchschnittJahr As Double = list.Sum(Function(wda) wda.Sum(Function(wd) wd.LuftfmaxNacht / wda.Count)) / list.Count
Dim TempTagDurchschnittJahr As Double = list.Sum(Function(wda) wda.Sum(Function(wd) wd.TempTag / wda.Count)) / list.Count
Dim TempNachtDurchschnittJahr As Double = list.Sum(Function(wda) wda.Sum(Function(wd) wd.TempNacht / wda.Count)) / list.Count
Dim WindTagDurchschnittJahr As Double = list.Sum(Function(wda) wda.Sum(Function(wd) wd.WindTag / wda.Count)) / list.Count
Dim WindNachtDurchschnittJahr As Double = list.Sum(Function(wda) wda.Sum(Function(wd) wd.WindNacht / wda.Count)) / list.Count
bindingSource.DataSource = weatherDatas
DGV_1.DataSource = bindingSource
For Each column As DataGridViewColumn In DGV_1.Columns
If column.ValueType = GetType(Double) Then
column.DefaultCellStyle.Format = "N2"
End If
Next
End Sub

@INOPIAE
Mit dem "DebugPrint" habe ich immer so meine Probleme...

Amelie · 15. Mai 2023, 16:58

Hallo

So bis hier hin bin ich nun fertig. Das Bild zeigt wie die DGV nun mit pseudo-Daten aus 12 XML-Files gefüllt werden.
Das ganze kann ich nun in einer "Abschluss-2013.xml" speichern.

Spoiler anzeigen

VB.NET-Quellcode

Private Sub CalculateYearAverages()
Dim list As List(Of WeatherDataArray) = New List(Of WeatherDataArray)()
Dim weatherDatas As List(Of WeatherData) = New List(Of WeatherData)()
For Each filename As String In System.IO.Directory.GetFiles(FileManager.FolderPath, "*.xml", System.IO.SearchOption.TopDirectoryOnly)
'gefundene Monats-XML anzeigen
listbox_XML_Files.Items.Add(filename)
Dim serializer As XmlSerializer = New XmlSerializer(GetType(WeatherDataArray))
Using fs As FileStream = New FileStream(filename, FileMode.Open)
Dim data As WeatherDataArray = CType(serializer.Deserialize(fs), WeatherDataArray)
list.Add(data)
Dim weatherData As WeatherData = New WeatherData()
weatherData.Datum = data(0).Datum
weatherData.SchneeTag = Math.Round(data.Sum(Function(wd) wd.SchneeTag) / data.Count, 2)
weatherData.SchneeNacht = Math.Round(data.Sum(Function(wd) wd.SchneeNacht) / data.Count, 2)
weatherData.LuftfminTag = Math.Round(data.Sum(Function(wd) wd.LuftfminTag) / data.Count, 2)
weatherData.LuftfmaxTag = Math.Round(data.Sum(Function(wd) wd.LuftfmaxTag) / data.Count, 2)
weatherData.LuftfminNacht = Math.Round(data.Sum(Function(wd) wd.LuftfminNacht) / data.Count, 2)
weatherData.LuftfmaxNacht = Math.Round(data.Sum(Function(wd) wd.LuftfmaxNacht) / data.Count, 2)
weatherData.TempTag = Math.Round(data.Sum(Function(wd) wd.TempTag) / data.Count, 2)
weatherData.TempNacht = Math.Round(data.Sum(Function(wd) wd.TempNacht) / data.Count, 2)
weatherData.WindTag = Math.Round(data.Sum(Function(wd) wd.WindTag) / data.Count, 2)
weatherData.WindNacht = Math.Round(data.Sum(Function(wd) wd.WindNacht) / data.Count, 2)
weatherDatas.Add(weatherData)
End Using
Next
BS_DGV_1.DataSource = weatherDatas
DGV_1.DataSource = BS_DGV_1
BS_DGV_2.DataSource = GetType(List(Of WeatherData))
Dim SchneeTagDurchschnittJahr As Double = Math.Round(list.Sum(Function(wda) wda.Sum(Function(wd) wd.SchneeTag / wda.Count)) / list.Count, 2)
Dim SchneeNachtDurchschnittJahr As Double = Math.Round(list.Sum(Function(wda) wda.Sum(Function(wd) wd.SchneeNacht / wda.Count)) / list.Count, 2)
Dim LuftfminTagDurchschnittJahr As Double = Math.Round(list.Sum(Function(wda) wda.Sum(Function(wd) wd.LuftfminTag / wda.Count)) / list.Count, 2)
Dim LuftfmaxTagDurchschnittJahr As Double = Math.Round(list.Sum(Function(wda) wda.Sum(Function(wd) wd.LuftfmaxTag / wda.Count)) / list.Count, 2)
Dim LuftfminNachtDurchschnittJahr As Double = Math.Round(list.Sum(Function(wda) wda.Sum(Function(wd) wd.LuftfminNacht / wda.Count)) / list.Count, 2)
Dim LuftfmaxNachtDurchschnittJahr As Double = Math.Round(list.Sum(Function(wda) wda.Sum(Function(wd) wd.LuftfmaxNacht / wda.Count)) / list.Count, 2)
Dim TempTagDurchschnittJahr As Double = Math.Round(list.Sum(Function(wda) wda.Sum(Function(wd) wd.TempTag / wda.Count)) / list.Count, 2)
Dim TempNachtDurchschnittJahr As Double = Math.Round(list.Sum(Function(wda) wda.Sum(Function(wd) wd.TempNacht / wda.Count)) / list.Count, 2)
Dim WindTagDurchschnittJahr As Double = Math.Round(list.Sum(Function(wda) wda.Sum(Function(wd) wd.WindTag / wda.Count)) / list.Count, 2)
Dim WindNachtDurchschnittJahr As Double = Math.Round(list.Sum(Function(wda) wda.Sum(Function(wd) wd.WindNacht / wda.Count)) / list.Count, 2)
Dim wetterDatenList As New List(Of WeatherData)() From {
New WeatherData() With {
.SchneeTag = SchneeTagDurchschnittJahr,
.SchneeNacht = SchneeNachtDurchschnittJahr,
.LuftfminTag = LuftfminTagDurchschnittJahr,
.LuftfmaxTag = LuftfmaxTagDurchschnittJahr,
.LuftfminNacht = LuftfminNachtDurchschnittJahr,
.LuftfmaxNacht = LuftfmaxNachtDurchschnittJahr,
.TempTag = TempTagDurchschnittJahr,
.TempNacht = TempNachtDurchschnittJahr,
.WindTag = WindTagDurchschnittJahr,
.WindNacht = WindNachtDurchschnittJahr
}
}
BS_DGV_2.DataSource = wetterDatenList
DGV_2.DataSource = BS_DGV_2
DGV_2.Columns(0).Visible = False
End Sub

Durchschnittsberechungen aus mehreren XML-Files

Durchschnittsberechungen aus mehreren XML-Files

VB.NET-Quellcode

Amelie schrieb:

C#-Quellcode

VB.NET-Quellcode

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

C#-Quellcode

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

6 Benutzer haben hier geschrieben