Txt-Daten in zwei Txt-Dateien ordnen und speichern

Visual_Prog · 10. Juli 2021, 22:01

Moin, ich habe eine Txt mit Artikeln und Preisen, die folgendermaßen formatiert ist:

pommes|2,8|
burger|7,8|
cola|2,8|
schnitzel|7|
bier|3|
sprite|2,8|
currywurst|2,8|
pizza|8,5|
bratkartoffel|4,5|

Nun Soll das Programm jeweils zwei Txt Dateien Speichern, die so aussehen:
erste txt:
pommes
burger
cola
schnitzel
bier
sprite
currywurst
pizza
bratkartoffel

zweite txt:
2,8
7,8
2,8
7
3
2,8
2,8
8,5
4,5

Habe einen Artikeln mit Linq gefunden aber es war mir noch zu Komplex.
docs.microsoft.com/de-de/dotne…iles-by-using-groups-linq

Hätte Jemand Tipps bzw Vorschläge? Danke, LG

exc-jdbi · 10. Juli 2021, 22:56

Sowas hatten wir schon ein paarmal hier.

Musste es bei mir nur kurz umändern.

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.IO
Imports System.Text
Public Module TestVisual_Prog
Public Sub Main()
Dim scr = SourceText()
Dim fi = SplitSource(scr)
Dim destnames = "Names.txt"
Dim destprices = "Prices.txt"
SaveFoodInfos(fi, destnames, destprices)
Dim fi2 = LoadFoodInfos(destnames, destprices)
Debug.Assert(Equality(fi, fi2))
End Sub
Private Sub SaveFoodInfos(foodinfos() As FoodInfo, destfilenames As String, destfileprices As String)
Dim names = New StringBuilder
Dim prices = New StringBuilder
For Each fi In foodinfos
names.AppendLine(fi.Name)
prices.AppendLine(fi.Price.ToString)
Next
File.WriteAllText(destfilenames, names.ToString)
File.WriteAllText(destfileprices, prices.ToString)
End Sub
Private Function LoadFoodInfos(destfilenames As String, destfileprices As String) As FoodInfo()
Dim crlf = Environment.NewLine
Dim names = File.ReadAllText(destfilenames).Split({crlf}, StringSplitOptions.RemoveEmptyEntries)
Dim prices = File.ReadAllText(destfileprices).Split({crlf}, StringSplitOptions.RemoveEmptyEntries)
Dim result = New List(Of FoodInfo)
If names.Length = prices.Length Then
For i = 0 To names.Length - 1
result.Add(New FoodInfo With {.Name = names(i), .Price = Convert.ToDecimal(prices(i))})
Next
End If
Return result.ToArray
End Function
Private Function SplitSource(source() As String) As FoodInfo()
Dim result = New List(Of FoodInfo)
Array.ForEach(source, Sub(s) result.Add(SplitSource(s)))
Return result.ToArray()
End Function
Private Function Equality(fi1() As FoodInfo, fi2() As FoodInfo) As Boolean
If Not fi1.Length = fi2.Length Then Return False
For i = 0 To fi1.Length - 1
If Not fi1(i).Name = fi2(i).Name OrElse Not fi1(i).Price = fi2(i).Price Then
Return False
End If
Next
Return True
End Function
Private Function SplitSource(source As String) As FoodInfo
Dim idx = source.IndexOf("|"c)
Dim name = source.Take(idx).ToArray
Dim sprice = String.Join(String.Empty, source.Skip(idx + 1).Take(source.Length - idx - 2).ToArray)
sprice = sprice.Replace(","c, ".")
Dim price = Convert.ToDecimal(sprice)
Return New FoodInfo With {.Name = name, .Price = price}
End Function
Private Function SourceText() As String()
Return New String() _
{
"pommes|2,8|",
"burger|7,8|",
"cola|2,8|",
"schnitzel|7|",
"bier|3|",
"sprite|2,8|",
"currywurst|2,8|",
"pizza|8,5|",
"bratkartoffel|4,5|"
}
End Function
Private Class FoodInfo
Public Name As String
Public Price As Decimal
End Class
End Module

Freundliche Grüsse

exc-jdbi

RodFromGermany · 11. Juli 2021, 06:59

@Visual_Prog Du willst gepaarte Daten trennen? Was soll denn das?

Visual_Prog · 11. Juli 2021, 12:16

@exc-jdbi danke ich werde mich bei Rückfragen melden.

@RodFromGermany Moin, ja das ganz soll eine Restaurant-Software werden.
Die Ursprungs-txt entstammt einer DGV, bei der das Restaurant eine Übersicht aller Artikel und Preise hat.
Auf einer anderen Registerkarte werden die laufenden Bestellungen eingetragen, und die Textboxen funktionieren mit Autocomplete. Dafür sind die neuen txts, um den Autocomplete als Quelle zu dienen.
Mir ist zwar schon durch den Kopf gegangen, dass man bei der Speicherung der DGV einfach die txts fertig für den autocomplete erstellen könnte, aber trotzdem finde ich diesen "Datentrennungsvorgang" interessant.

RodFromGermany · 11. Juli 2021, 12:33

@Visual_Prog OK. Wenn Du diese Software ernsthaft erstellen willst, solltest Du mit einem sorgfältig erstellten Pflichtenheft anfangen, sonst rennst Du vom hundertsten ins tausendste und kommst nicht vorwärts.
Mach Dir in diesem Zusammenhang eine Liste mit Features für die nächste Version, die Du dann auch tatsächlich erst in der nächsten Version angehst.

Eierlein · 11. Juli 2021, 15:03

Ein Consolen-Testprogramm

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.IO
Module Module1
Sub Main()
Dim Pfad As String = "d:\#0\"
Dim Org$ = "org.txt", Neu1$ = "neu1.txt", Neu2$ = "neu2.txt"
Dim t$ = ""
Dim fs As New FileStream(Pfad & Org, FileMode.Open)
Dim sr As New StreamReader(fs)
Dim fs1 As New FileStream(Pfad & Neu1, FileMode.Create)
Dim sw1 As New StreamWriter(fs1)
Dim fs2 As New FileStream(Pfad & Neu2, FileMode.Create)
Dim sw2 As New StreamWriter(fs2)
Do Until sr.Peek() = -1
t = sr.ReadLine()
sw1.WriteLine(t.Split("|"c)(0))
sw2.WriteLine(t.Split("|"c)(1))
Loop
sr.Close()
sw1.Close()
sw2.Close()
End Sub
End Module

Visual_Prog · 11. Juli 2021, 19:14

Danke euch!
Ich habe mal eine ganz andere Frage, ich habe eine Klasse vorliegen mit zb. einer Eigenschaft Preis(in double) und einer Eigenschaft Bestellname (in String).
Von dieser Klasse habe ich eine Liste vorliegen.
Nun möchte ich die Werte, die als Double gespeichert sind aufsummieren um den Gesamtpreis zu errechnen.

Mein Versuch:

_gesamtpreis = _listeBestellungen.sum().
--> Die Sum Methode weiß natürlich nicht, dass sie nur die Double Werte berücksichtigen muss. Wie könnte ich das hinkriegen? Danke Gruß

nogood · 11. Juli 2021, 20:05

@Visual_Prog Zu deiner letzten Frage mit den Klassen hier mein Ansatz. 'Leider' in C# aber nicht verzagen müsste in vb sehr ähnlich sein.

Die Zeile nach der Du fragst ist:

C#-Quellcode

foreach (var essen in AnstattTxtDatei.ListeAllerMenueEintraege)
Sum += essen.Preis;

Spoiler anzeigen

C#-Quellcode

using System;
using System.Collections.Generic;
namespace CS_VBP_Pommes
{
class Program
{
public static double Sum = 0;
static void Main(string[] args)
{
Console.WriteLine($"Menue Gesammtpreis:\n");
foreach (var essen in AnstattTxtDatei.ListeAllerMenueEintraege)
{
Sum += essen.Preis;
Console.WriteLine($"+ {essen.Bestellname} für {essen.Preis}:\t {Sum} Euro\n");
}
Console.WriteLine($"------------\nGesammt {Sum} Euro");
Console.ReadLine();
}
}
public class MenueEintrag
{
public string Bestellname { get; set; }
public double Preis { get; set; }
public MenueEintrag(string bestellname, double preis)
{
Bestellname = bestellname;
Preis = preis;
}
}
public static class AnstattTxtDatei
{
public static readonly List<MenueEintrag> ListeAllerMenueEintraege = new()
{
new MenueEintrag("Pommes", 2.5),
new MenueEintrag("Hamburger", 6),
new MenueEintrag("Cheeseburger", 6.8),
new MenueEintrag("Currywurst", 4.3),
new MenueEintrag("Cola", 1.7)
};
}
}

VaporiZed · 11. Juli 2021, 20:08

LINQ ist das Stichwort.

C#-Quellcode

var Sum = _listeBestellungen.Sum(x => x.Preis);

Glaub ich. In VB auf jeden Fall

VB.NET-Quellcode

Dim Sum = _listeBestellungen.Sum(Function(x) x.Preis)

Visual_Prog · 11. Juli 2021, 21:46

danke euch!

Txt-Daten in zwei Txt-Dateien ordnen und speichern

Txt-Daten in zwei Txt-Dateien ordnen und speichern

VB.NET-Quellcode

VB.NET-Quellcode

C#-Quellcode

C#-Quellcode

C#-Quellcode

VB.NET-Quellcode

Ähnliche Themen

6 Benutzer haben hier geschrieben