DataSet / CSV Spalte durchsuchen

Mukkes · 19. September 2016, 11:37

Hallo Gemeinde,

Ich versuche einen Filter anzuwenden der mir in einer CSV Datei die Spalte 0 "SP_0" nach dem Wort "test" durchsucht.
Wurde dieses Wort gefunden soll nun in Spalte 2 "SP_2" nach den Zahlen "2200-2300" gesucht werden.
Wurde diese auch gefunden möchte ich in eine neue Spalte einen Wert eintragen.
Im Code unten ist die neue Spalte "Kato" und der Wert "test0815".

VB.NET-Quellcode

Dim bs As New BindingSource
bs.DataSource = ds
'Datensatz-Filter setzen
bs.Filter = "SP_0 = 'test' AND SP_2 >= 2200 AND SP_2 <= 2300"
'Gefilterte Datensätze bearbeiten
For i As Integer = 0 To bs.Count - 1
Dim r As DataRow = DirectCast(bs(i), DataRowView).Row
row("Kato") = "test0815"
Next i
'Filter entfernen
bs.Filter = ""

Wenn ich nun die CSV lade bekomme ich diesen fehler angezeigt:

Abbruch - Fehler: Das Objekt des Typs
"System.Data.DataViewManagerListItemTypeDescriptor" kann nicht in Typ
"System.Data.DataRowView umgewandelt werden.

Wie kann ich denn den Fehler beheben

Schamash · 19. September 2016, 13:16

Lies die CSV doch einfach in eine Datatable ein. Die lässt sich dann einfacher filtern

Mukkes · 19. September 2016, 13:41

Das hab ich ja soweit schon.

Hier mal mein ganzer Code

Spoiler anzeigen

VB.NET-Quellcode

Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports CSV_Converter
Imports CSV_Converter.Katdts
Public Class Form1
Private _DataFile As New FileInfo("katds.xml")
Dim ds As New DataSet
Dim dt1, dt2, dtout As cDataTableCSV
'Hauptfunktion #########
Private Function LoadCSV(file As String) As cDataTableCSV
'CSV Datei laden - ggf. Schlüssel festlegen
Dim dt As New cDataTableCSV
dt.TableName = IO.Path.GetFileNameWithoutExtension(file)
If Not dt.LoadFile(file, System.Text.Encoding.Default) Then Return _
Nothing
'dt.PrimaryKey = New DataColumn() {dt.Columns(0)}
Return dt
End Function
'CSV-File lesen #########
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
Button1.Click
Dim file_open As New OpenFileDialog
file_open.Filter = "csv-dateien|*.csv"
file_open.AddExtension = True
If file_open.ShowDialog = DialogResult.OK Then
ds.Tables.Clear()
ds.Tables.Add(LoadCSV(file_open.FileName))
If Not ds.Tables.Count = 1 Then
MessageBox.Show("Eine Datei konnte nicht gelesen werden")
Exit Sub
End If
'Spalten in Ausgabedatei erstellen
dtout = New cDataTableCSV
dtout.Columns.Add("Action") : dtout.Columns.Add("Category")
dtout.Columns.Add("Title") : dtout.Columns.Add("Beschreibung")
dtout.Columns.Add("Kato")
'+++++++ Habe ich etwas gekürzt ++++++++++++
'Spalteninhalte einer Zeile als Zeichenfolge kombinieren
Dim line As New System.Text.StringBuilder
'Zeilen als Zeichenfolge kombinieren
Dim text As New System.Text.StringBuilder
dtout.Rows.Add({"*Action", "*Category", "*Title",
"*Description", "Kato"})
Try
For rowindex As Integer = 1 To ds.Tables(0).Rows.Count - 1
'zusätzliche Zeile einfügen
Dim row As DataRow = ds.Tables(0).Rows(rowindex)
'Ausgabedatensatz aufbauen
Dim orow As DataRow = dtout.NewRow
orow("Action") = "Add"
orow("Category") = KategoriennummerTextBox.Text
orow("Title") = row("SP_0") & " " & row("SP_1") & " " &
ComboBox.Text & " - Art.Nr. " & row("SP_2")
orow("Beschreibung") = TextBox5.Text & row("SP_3").ToString _
& TextBox6.Text
'+++++++ Habe ich etwas gekürzt ++++++++++++
' Versandkosten ermitteln Spalte 6 #########
'1.Schritt:
Dim val As String = row("SP_6").ToString
'1a.)
val = val.Replace("."c, ",")
'2.Schritt:
Dim dec As Decimal
'3.Schritt:
If Decimal.TryParse(val, dec) Then
'4. Schritt:
If dec <= 70 Then
orow("Versandkosten") = "5,9"
Else
orow("Versandkosten") = "0"
End If
Else
orow("Versandkosten") = "" 'Leerstring oder
' Missing-Kennung zuweisen
End If
' Preis ermitteln #########
'1.Schritt:
Dim val2 As String = row("SP_6").ToString
'1a.)
val2 = val2.Replace("."c, ",")
'2.Schritt:
Dim dec1 As Decimal
'3.Schritt:
If Decimal.TryParse(val2, dec1) Then
'4. Schritt:
If dec1 = 0 Then
orow("Preis") = row("SP_5")
End If
Else
orow("Preis") = "" 'Leerstring oder Missing-Kennung
' zuweisen
End If
' Stückzahl festlegen #########
'1.Schritt:
Dim val4 As String = row("SP_4").ToString
'1a.)
val4 = val4.Replace("."c, ",")
'2.Schritt:
Dim dec4 As Decimal
'3.Schritt:
If Decimal.TryParse(val4, dec4) Then
'4. Schritt:
If dec4 >= 20 Then
orow("Stückzahl") = "10"
End If
Else
orow("Stückzahl") = "" 'Leerstring oder Missing-Kennung
' zuweisen
End If
' EAN festlegen #########
'1.Schritt:
Dim val5 As String = row("SP_7").ToString
'1a.)
val5 = val5.Replace("."c, ",")
'2.Schritt:
Dim dec5 As Decimal
'3.Schritt:
If Decimal.TryParse(val5, dec5) Then
'4. Schritt:
If dec5 = Nothing Then
orow("EAN") = row("SP_7")
End If
Else
orow("EAN") = "Nicht zutreffend" 'Leerstring oder
' Missing-Kennung zuweisen
End If
' Tabelle Füllen #########
dtout.Rows.Add(orow)
'Ausgabe-Datensatz als Text aufbereiten
line.Clear()
For i As Integer = 0 To orow.ItemArray.Length - 1
line.Append(orow(i).ToString & ";")
Next i
Next rowindex
Catch ex As Exception
MessageBox.Show("Abbruch - Fehler: " & ex.Message)
Exit Sub
End Try
'Ausgabe als Text anzeigen
DataGridView1.DataSource = dtout
DataGridView1.CurrentCell = Nothing
DataGridView1.Rows(0).Visible = False
End If
End Sub
End Class

Habe auch mittlerweile den Fehler gefunden hatte die Falsche DataSource

bs.DataSource = ds habe ich bs.DataSource = dtout gemacht und schon kommt der fehler nicht mehr.

Nur leider funzt der Filter nicht so ganz denn ich bekomme in die neue Spalte Kato keine werte eingetragen und wenn ich die CSV Öffne per Button braucht das Tool sehr lange bis ich ein Ergebniss im DGV angezeigt bekomme.

Mukkes · 20. September 2016, 00:20

Hallo,

Habe es nun zum laufen gebracht.

Aber ist es möglich mehrere BindingSource Filter zu nutzen ?

Habe schon festegestellt das ich nicht zwei Filter gleichzeitig laufen lassen kann, da der neue den alten immer überschreibt.

VB.NET-Quellcode

dtout.Columns.Add("Mark") : dtout.Columns.Add("Art") : dtout.Columns.Add("Kato")
'Filter anwenden
Dim bs As New BindingSource
Dim bs2 As New BindingSource
bs.DataSource = dtout
bs2.DataSource = dtout
'Datensatz-Filter setzen
bs.Filter = "Mark = 'Haus' AND Art >= 1050 AND Art <= 1055"
bs2.Filter = "Mark = 'Wetter' AND Art >= 232334 AND Art <= 232345"
'Gefilterte Datensätze bearbeiten
For i As Integer = 0 To bs.Count - 1
Dim r As DataRow = DirectCast(bs(i), DataRowView).Row
r("Kato") = "selected"
Next i
For i As Integer = 0 To bs.Count - 1
Dim r As DataRow = DirectCast(bs2(i), DataRowView).Row
r("Kato") = "Hallo"
Next i
'Filter entfernen
bs.Filter = ""

hans im glück · 20. September 2016, 09:06

erstelle dir doch eine zweite tabelle und lasse die datensätze die zutreffen temporär dort rein kopieren/importieren.
dann könntest du die filter nacheinander abfahren.

nur so eine idee auf die schnelle ohne alles gelesen szu haben.

VB1963 · 20. September 2016, 09:13

Mukkes schrieb:

Habe schon festegestellt das ich nicht zwei Filter gleichzeitig laufen lassen kann.

Verknüpfe beide Filterausdrücke mit ODER..

Mukkes · 20. September 2016, 10:45

VB1963 schrieb:

Verknüpfe beide Filterausdrücke mit ODER..

Hallo,

Vielen Dank für den Tipp das hat mein Problem fast gelöst.

Habe nun es so:

VB.NET-Quellcode

bs.Filter = "Mark = 'Haus' AND Art >= 1050 AND Art <= 1055 Or Mark = 'Wetter' AND Art >= 232334 AND Art <= 232345"

Jetzt habe ich nur noch das Problem wie ich diese beide zusammen fügen kann.

VB.NET-Quellcode

'Gefilterte Datensätze bearbeiten
For i As Integer = 0 To bs.Count - 1
Dim r As DataRow = DirectCast(bs(i), DataRowView).Row
r("Kato") = "selected"
Next i
For i As Integer = 0 To bs.Count - 1
Dim r As DataRow = DirectCast(bs2(i), DataRowView).Row
r("Kato") = "Hallo"
Next i

Denn bei Haus soll in die neue Spalte Kato das Wort "selected" und bei Wetter soll in die neue Spalte Kato das Wort "Hallo"

Mukkes · 20. September 2016, 14:00

Hallo,

Habe mein Problem lösen können.

Verwende es nun so, sieht zwar nicht so elegant aus da man dies sicherlich noch etwas kombinieren könnte. Denn bei mehreren Filtern wird der Code sehr lange. Aber es erfüllt seinen Zweck

VB.NET-Quellcode

'Erster Filter anwenden ######################################
Dim bs As New BindingSource
bs.DataSource = dtout
'Datensatz-Filter setzen
bs.Filter = "Mark = 'Wetter' AND Art >= 1050 AND Art <= 1055 Or Mark = 'Haus' AND Art >= 232342 AND Art <= 232359"
'Gefilterte Datensätze bearbeiten
For i As Integer = 0 To bs.Count - 1
Dim r As DataRow = DirectCast(bs(i), DataRowView).Row
r("Kato") = "selected"
Next i
'Filter entfernen
bs.Filter = ""
'Zweiter Filter anwenden ######################################
Dim bs2 As New BindingSource
bs2.DataSource = dtout
'Datensatz-Filter setzen
bs2.Filter = "Mark = 'Baum' AND Art >= 2200 AND Art <= 2300 Or Mark = 'Wetter' AND Art >= 1102 AND Art <= 1133 Or Mark = 'Haus' AND Art >= 232330 AND Art <= 232340"
'Gefilterte Datensätze bearbeiten
For i As Integer = 0 To bs.Count - 1
Dim r As DataRow = DirectCast(bs2(i), DataRowView).Row
r("Kato") = "Hallo"
Next i
'Filter entfernen
bs2.Filter = ""

DataSet / CSV Spalte durchsuchen

DataSet / CSV Spalte durchsuchen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Mukkes schrieb:

VB1963 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben