Hallo,
ich bin mir sicher, dass hier im Forum die Frage schon mal gestellt wurde. Jedoch bin ich nicht fündig geworden.
Zu meinem Problem.
Ich habe 2 Listen als Kommaseparierte Datei (";")
In der einen Liste stehen die Artikelnamen und daneben der Einzelpreis
Beispiel:
Artikel;Einzelpreis
Mini;10,00
ARM;20,00
Upgrade;5,00
In der anderen Liste stehen Bestellungen:
Beispiel:
Name;MiniAnzahl;ARMAnzahl;UpgradeAnzahl
Hugo;1;2;3
Basti;5;4;3
Die Listen selbst sind nicht fix. Können also mehrere Artikel unbestimmter Anzahl enthalten.
Bisher habe ich die Listen per Streamreader Zeile für Zeile in ein List(Of String) eingelesen.
Nun müsste ich mit .Split(";"c) das ganze in ein Array schieben. Nur weiß ich nicht wie.
Hier noch mein Code für das einlesen.
Kann mir jemand bitte einen Tipp geben?
Vielen Dank schon mal
Grüße
Sebastian
ich bin mir sicher, dass hier im Forum die Frage schon mal gestellt wurde. Jedoch bin ich nicht fündig geworden.
Zu meinem Problem.
Ich habe 2 Listen als Kommaseparierte Datei (";")
In der einen Liste stehen die Artikelnamen und daneben der Einzelpreis
Beispiel:
Artikel;Einzelpreis
Mini;10,00
ARM;20,00
Upgrade;5,00
In der anderen Liste stehen Bestellungen:
Beispiel:
Name;MiniAnzahl;ARMAnzahl;UpgradeAnzahl
Hugo;1;2;3
Basti;5;4;3
Die Listen selbst sind nicht fix. Können also mehrere Artikel unbestimmter Anzahl enthalten.
Bisher habe ich die Listen per Streamreader Zeile für Zeile in ein List(Of String) eingelesen.
Nun müsste ich mit .Split(";"c) das ganze in ein Array schieben. Nur weiß ich nicht wie.
Hier noch mein Code für das einlesen.
VB.NET-Quellcode
- Private Function ImportCSV() As List(Of String)
- Dim Datei As New Fileprocessing
- Dim Items As New List(Of String)
- Try
- For Each Item As String In Datei.Lesen(Datei.FileOpen())
- Items.Add(Item)
- Next
- Catch ex As Exception
- End Try
- Return Items
- End Function
- Function ImportNachArt(ByVal ImportArt As String) As Boolean
- If ImportArt = "Preisliste" Then
- For Each Item As String In ImportCSV()
- Preisliste.Add(Item)
- Next
- If Preisliste.Count > 0 Then Return True
- ElseIf ImportArt = "Bestellliste" Then
- For Each Item As String In ImportCSV()
- Bestellliste.Add(Item)
- Next
- If Bestellliste.Count > 0 Then Return True
- Else
- End If
- Return False
- End Function
Kann mir jemand bitte einen Tipp geben?
Vielen Dank schon mal
Grüße
Sebastian