'Datarelation 
            Dim dr As New DataRelation("Artikel", ds.Tables(0).Columns("SP_2"), _
              ds.Tables(1).Columns("SP_13"), False)
 
            ds.Relations.Add(dr)
 
            'Spalten in Ausgabedatei erstellen
            dtout = New cDataTableCSV
            dtout.Columns.Add("SP_0") : dtout.Columns.Add("SP_1")
            dtout.Columns.Add("SP_2")
            dtout.Rows.Add({"Action", "ItemID", "EndCode"})
            Try
                'Schleife über csv1-Zeilen (=Parent)
                For Each prow As DataRow In ds.Tables(0).Rows
                    'Suchkriterium in csv1
                    If DirectCast(prow("SP_10"), String) = "out of stock" Then
                        'per Relation zugeordnete Childrow in csv2 
                        For Each crow As DataRow In prow.GetChildRows(dr)
                            'Ausgabedatensatz aufbauen
                            Dim orow As DataRow = dtout.NewRow
                            orow("SP_0") = "End"
                            orow("SP_1") = crow("SP_0")
                            orow("SP_2") = "NotAvailable"
                            dtout.Rows.Add(orow)
 
                        Next crow
                    End If
                Next prow

Private Function CreateNumberColumn(ByVal dt As cDataTableCSV, _
    ByVal ColumnEndswithNumber As String) As String
 
    Dim ColumnWithNumber As String = ""
 
    If Not dt.Columns.Contains(ColumnEndswithNumber) Then
       Throw New ArgumentException _
       ("Die Spalte " & ColumnEndswithNumber & _
         " ist nicht in der Tabelle vorhanden")
    End If
 
    dt.AddColumn() 'Spalte in Tabelle anfügen
    'Name der neuen Spalte abfragen
    ColumnWithNumber = dt.Columns(dt.Columns.Count - 1).ColumnName
 
    'Hilfsvariable
    Dim field As String, parts() As String, numberpart As String
    Dim number As Integer
 
    For Each row As DataRow In dt.Rows
 
       field = row(ColumnEndswithNumber).ToString() 'Feldinhalt abfragen
       parts = field.Split(" "c) 'Feldinhalt am Trennzeichen aufspalten 
       numberpart = parts(parts.Length - 1) 'Letzter Abschnitt (=Nummer)
 
       'Prüfen, ob der letzte Teilstring als Integer darstellbar ist
       If Integer.TryParse(numberpart, number) Then
          'Nummer in der neuen Spalte als Zeichenfolge eintragen
          row(ColumnWithNumber) = number.ToString
       Else
          'keine Ziffernfolge im letzten Teilstring !!!
          row(ColumnWithNumber) = DBNull.Value 
       End If
    Next row
 
    'Name der neuen Spalte zurückgeben
    Return ColumnWithNumber
End Function

     'Die beiden CSV-Dateien laden 
     ds.Tables.Add(LoadCSV("C:\daten\csv1.csv"))
     ds.Tables.Add(LoadCSV("C:\daten\csv2.csv"))
 
     If Not ds.Tables.Count = 2 Then
        MessageBox.Show("Eine Datei konnte nicht gelesen werden")
        Exit Sub
     End If
 
     'Neue Spalten erstellen und Zeilen mit dem Teilstring (=Nummer) füllen 
     Dim columnwithnumber1 As String = _
       CreateNumberColumn(DirectCast(ds.Tables(0), cDataTableCSV), "SP_13")
 
     Dim columnwithnumber2 As String = _
       CreateNumberColumn(DirectCast(ds.Tables(1), cDataTableCSV), "SP_2")
 
     'Datarelation für die neuen Spalten anpassen 
     Dim dr As New DataRelation _
       ("Artikel", ds.Tables(0).Columns(columnwithnumber1), _
         ds.Tables(1).Columns(columnwithnumber2))
 
     ds.Relations.Add(dr)

    Private Function FindFirstNumber(ByVal text As String, _
                    Optional ByVal startindex As Integer = 0, _
                    Optional ByVal length As Integer = -1, _
                    Optional ByRef positionbehind As Integer = -1) As String
 
        positionbehind = -1
 
        If String.IsNullOrEmpty(text) Then Return ""
        If startindex < 0 Or startindex >= text.Length Then Return ""
 
        Dim lastindex As Integer
        If length < 0 Then
            lastindex = text.Length - 1
        Else
            lastindex = Math.Min(text.Length - 1, startindex + length - 1)
        End If
 
        Dim num As New System.Text.StringBuilder
 
        For i As Integer = startindex To lastindex
 
            If Char.IsDigit(text(i)) Then
                num.Append(text(i))
            ElseIf num.Length > 0 Then
                If i < text.Length - 1 Then positionbehind = i
                Exit For
            End If
        Next i
 
        Return num.ToString
    End Function

   Dim field As String = "asasdasd H0 weqwewqe  345 asdsd"
 
   Dim startindex As Integer = 0, positionbehind As Integer = -1
   Dim numberpart As String
 
   Do
       numberpart = FindFirstNumber(field, startindex, , positionbehind)
       startindex = positionbehind
   Loop While startindex > 0 And numberpart = "0"

"Märklin 1.FC Märklin Jahreswagen 2011. Spur H0 - Art.Nr. 48611"
"Märklin Nahverkehrswagen-Set ""Silberlinge"".  Spur 1 - Art.Nr. 58343"
"Fleischmann Schnellzugwagen 1./2. Klasse Spur N - Art.Nr. 8079"
"Märklin 2 x Diesellokomotive. MaK Typ DE 1002, HGK Spur H0 - Art.Nr. 37630"
"Roco 2-teiliges Set Reisezugwagen der CP Spur H0 - Art.Nr. 64036"
"Roco Schlafwagen T2S der DB Spur H0 - Art.Nr. 64751"
"Herpa  Bauwagen 2-achs ""Max Wild"" - Art.Nr. 076357"
"Herpa  VW UP! 2-türig ""Johanniter Rheinhessen"" - Art.Nr. 090438"
"Märklin 2er-Set Spundwandwagen Gbs 256 der DB gealtert Spur H0 - Art.Nr. 47312"
"Roco D-Zugwagen 2.Klasse DB Spur H0 - Art.Nr. 44740"
"Pola 2 Jaeger Spur G - Art.Nr. 331953"
"Fleischmann Mittelwagen, 2.Klasse der D AG Spur N - Art.Nr. 7463"
"Fleischmann ICE 2 Wagen 2. Klasse Spur N - Art.Nr. 7494"
"Märklin  2206 Gleis ger. 168,9 mm"
"Faller 180500 Straßen- und Geländebau-Spach"
"Faller 180538 Straßenlampen-Set"
"Faller 180575 Grillplatz"
"Faller 180577 Abenteuerspielplatz"
"Faller 180589 Holz-Sortiment"

'bei Faller den zweiten Abschnitt als Art.Nr. verwenden
If field.startswith("Faller") then 
    numberpart = parts(1)  
ElseIf row.Startswith(" .....")
    ............
End If

If Field.contains("Art.Nr.") then
   numberpart = parts(parts.length-1) 'hinter Art.Nr. am Ende
Else
   numberpart = parts(1) 'hinter Markennamen, der am Anfang steht
End If

'Artikel löschen Teil ##################################################
 
 
    'CSV1 Öffnen ##############################################################
 
    Private Sub csv1_Click(sender As Object, e As EventArgs) Handles csv1.Click
 
        Dim file_open_google As New OpenFileDialog
        file_open_google.Filter = "csv-dateien|*.csv"
        file_open_google.AddExtension = True
 
        ds.Reset()
 
        If file_open_google.ShowDialog = DialogResult.OK Then
 
            ds.Tables.Add(LoadCSV(file_open_google.FileName))
 
        End If
 
    End Sub
 
    Private Function CreateNumberColumn(ByVal dt As cDataTableCSV,
    ByVal ColumnEndswithNumber As String) As String
 
        Dim ColumnWithNumber As String = ""
 
        If Not dt.Columns.Contains(ColumnEndswithNumber) Then
            Throw New ArgumentException("Die Spalte " & ColumnEndswithNumber & _
              " ist nicht in der Tabelle vorhanden")
        End If
 
        dt.AddColumn() 'Spalte in Tabelle anfügen
        'Name der neuen Spalte abfragen
        ColumnWithNumber = dt.Columns(dt.Columns.Count - 1).ColumnName
 
        'Hilfsvariable
        Dim field As String, parts() As String, numberpart As String
        Dim number As Integer
 
        For Each row As DataRow In dt.Rows
 
            field = row(ColumnEndswithNumber).ToString() 'Feldinhalt abfragen
            parts = field.Split(" "c) 'Feldinhalt am Trennzeichen aufspalten 
 
            'numberpart = parts(parts.Length - 1) 'Letzter Abschnitt (=Nummer)
            'numberpart = FindFirstNumber(field)
 
            If field.Contains("Art.Nr.") Then
                numberpart = parts(parts.Length - 1) 'hinter Art.Nr. am Ende
            Else
                numberpart = parts(1) 'hinter Markennamen, der am Anfang steht
            End If
 
            'Prüfen, ob der letzte Teilstring als Integer darstellbar ist
            If Integer.TryParse(numberpart, number) Then
                'Nummer in der neuen Spalte als Zeichenfolge eintragen
                row(ColumnWithNumber) = number.ToString
            Else
                'keine Ziffernfolge im letzten Teilstring !!!
                row(ColumnWithNumber) = DBNull.Value
            End If
 
        Next row
 
        'Name der neuen Spalte zurückgeben
        Return ColumnWithNumber
    End Function
 
    Private Function FindFirstNumber(ByVal text As String,
                    Optional ByVal startindex As Integer = 0,
                    Optional ByVal length As Integer = -1,
                    Optional ByRef positionbehind As Integer = -1) As String
 
        positionbehind = -1
 
        If String.IsNullOrEmpty(text) Then Return ""
        If startindex < 0 Or startindex >= text.Length Then Return ""
 
        Dim lastindex As Integer
        If length < 0 Then
            lastindex = text.Length - 1
        Else
            lastindex = Math.Min(text.Length - 1, startindex + length - 1)
        End If
 
        Dim num As New System.Text.StringBuilder
 
        For i As Integer = startindex To lastindex
 
            If Char.IsDigit(text(i)) Then
                num.Append(text(i))
            ElseIf num.Length > 0 Then
                If i < text.Length - 1 Then positionbehind = i
                Exit For
            End If
        Next i
 
        Return num.ToString
    End Function

   'CSV2 Öffnen ##############################################################
 
    Private Sub csv2_Click(sender As Object, e As EventArgs) Handles csv2.Click
 
        Dim file_open_ebay As New OpenFileDialog
        file_open_ebay.Filter = "csv-dateien|*.csv"
        file_open_ebay.AddExtension = True
 
        If file_open_ebay.ShowDialog = DialogResult.OK Then
            'CSV-Files lesen
 
            ds.Tables.Add(LoadCSV(file_open_ebay.FileName))
 
 
            If Not ds.Tables.Count = 2 Then
                MessageBox.Show("Eine Datei konnte nicht gelesen werden")
                Exit Sub
            End If
 
            'Datarelation 
            'Dim dr As New DataRelation("Artikel", ds.Tables(0).Columns( 
            ' "SP_2"), ds.Tables(1).Columns("SP_13"), False)
 
 
            Dim field As String = "asasdasd H0 weqwewqe  345"
 
            'bei Faller den zweiten Abschnitt als Art.Nr. verwenden
 
            Dim startindex As Integer = 0, positionbehind As Integer = -1
            Dim numberpart As String
 
            Do
                numberpart = FindFirstNumber(field, startindex, , _
                  positionbehind)
                startindex = positionbehind
            Loop While startindex > 0 And numberpart = "0"
 
 
            'Neue Spalten erstellen und Zeilen mit dem Teilstring (=Nummer) 
            ' füllen 
            Dim columnwithnumber1 As String = CreateNumberColumn(DirectCast( _
              ds.Tables(0), cDataTableCSV), "SP_2")
 
            Dim columnwithnumber2 As String = CreateNumberColumn(DirectCast( _
              ds.Tables(1), cDataTableCSV), "SP_13")
 
            'Datarelation 
            Dim dr As New DataRelation("Artikel", ds.Tables(0).Columns( _
              columnwithnumber1), ds.Tables(1).Columns(columnwithnumber2), _
              False)
 
            ds.Relations.Add(dr)
 
            'Spalten in Ausgabedatei erstellen
            dtout = New cDataTableCSV
            dtout.Columns.Add("SP_0") : dtout.Columns.Add("SP_1")
            dtout.Columns.Add("SP_2") : dtout.Columns.Add("SP_3")
            dtout.Columns.Add("SP_4")
            dtout.Rows.Add({"Action", "ItemID", "EndCode"})
            Try
                'Schleife über csv1-Zeilen (=Parent)
                For Each prow As DataRow In ds.Tables(0).Rows
                    'Suchkriterium in csv1 nur Artikel die als Stückzahl 0 
                    ' haben.
                    If DirectCast(prow("SP_4"), String) = "0" Then
                        'per Relation zugeordnete Childrow in csv2 
                        For Each crow As DataRow In prow.GetChildRows(dr)
                            'Ausgabedatensatz aufbauen
                            Dim orow As DataRow = dtout.NewRow
                            orow("SP_0") = "End"
                            orow("SP_1") = crow("SP_0")
                            orow("SP_2") = "NotAvailable"
                            orow("SP_3") = crow("SP_13") 'Titel
                            orow("SP_4") = prow("SP_4") 'Anzahl der Artikel
                            dtout.Rows.Add(orow)
 
                        Next crow
                    End If
                Next prow
            Catch ex As Exception
                MessageBox.Show("Abbruch - Fehler: " & ex.Message)
                Exit Sub
            End Try
 
            DataGridView3.DataSource = dtout
            DataGridView3.Columns(0).Width = 383
            DataGridView3.Columns(1).Width = 383
            DataGridView3.Columns(2).Width = 383
            DataGridView3.Columns(3).Width = 383
            DataGridView3.Columns(4).Width = 383
        End If
    End Sub
 
    'Speichern Funktion  
    ' ##############################################################
 
    Private Sub csv_safe_Click(sender As Object, e As EventArgs) Handles _
      csv_safe.Click
 
        ProgressBar2.Value = 0
        Label10.Text = "0 %"
 
        SaveFileDialog2.Filter = "Artikel (*.csv)|*.csv"
 
        If SaveFileDialog2.ShowDialog() = DialogResult.OK Then
 
            Timer3.Start()
        End If
 
    End Sub
 
    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles _
      Timer3.Tick
 
        ProgressBar2.Increment(1)
 
        If ProgressBar2.Value = 100 Then
 
            Timer3.Stop()
 
            If Not dtout.SaveFile(SaveFileDialog2.FileName, ";"c) Then
 
                MessageBox.Show("Fehler beim Schreiben der Datei")
            Else
 
                MessageBox.Show _
            (dtout.Rows.Count.ToString & " Artikel sind zu löschen")
            End If
 
        Else
 
            ProgressBar2.Value = ProgressBar2.Value + 1
 
        End If
 
        Label10.Text = ProgressBar2.Value & (" %")
 
    End Sub

If Parts.Length >= 3 Then
   'Numparts extrahieren
   'Spalte füllen 
Else
   'Meldung und die ungeeignete Datei-Zeile protokollieren oder 
   'oder sie als Messagebox zeigen
End If

orow("SP_00") = row("SP_8") 'Wertangabe in Spalte 8 z.b 85,69
orow("SP_01") = "1,0"

SP_00      SP_01
569,25     1,0
254        1,0
58         0,0
698,27     1,0
33,33      0,0
70         1,0

'1.Schritt: den Wert in der Zelle als String lesen
Dim val As String = row("SP_8").ToString
 
'2.Schritt: eine Dezimalzahl-Variable erstellen
Dim dec As Decimal
 
'3.Schritt: Versuch, den String in die Dezimalvariable als Zahl einzutragen
If Decimal.TryParse(val, dec) Then
   '4. Schritt: Bedingung prüfen = Ausprägung der Dezimalzahl 
   If dec => 70 Then
       orow("SP_01") = "1,0" 'Zuweisung des gew. Wertes als String
   Else
       orow("SP_01") = "0,0"
   End If
Else
    'Bedingung: Der Zellinhalt ist nicht numerisch
     orow("SP_1") = "" 'Leerstring oder Missing-Kennung zuweisen
End If

If field.Contains(textbox1.text) 
Then numberpart = parts(parts.Length - 1) 'hinter Art.Nr. am Ende 
Else 
numberpart = parts(0) 'Markennamen, der am Anfang steht
End If

Private Function CreateNumberColumn(ByVal dt As cDataTableCSV, _
    ByVal ColumnEndswithNumber As String) As String
 
    Dim ColumnWithNumber As String = ""
 
    If Not dt.Columns.Contains(ColumnEndswithNumber) Then
       Throw New ArgumentException _
       ("Die Spalte " & ColumnEndswithNumber & _
         " ist nicht in der Tabelle vorhanden")
    End If
 
    dt.AddColumn() 'Spalte in Tabelle anfügen
    'Name der neuen Spalte abfragen
    ColumnWithNumber = dt.Columns(dt.Columns.Count - 1).ColumnName
 
    'Hilfsvariable
    Dim field As String, parts() As String, numberpart As String
    Dim number As Integer
 
    For Each row As DataRow In dt.Rows
 
       field = row(ColumnEndswithNumber).ToString() 'Feldinhalt abfragen
       parts = field.Split(" "c) 'Feldinhalt am Trennzeichen aufspalten 
 
       'Annahme: Artikelnummer steht im letzten Abschnitt
       numberpart = parts(parts.Length - 1) 'Letzter Abschnitt (=Nummer)
 
       'Prüfen, ob der letzte Teilstring als Integer darstellbar ist
       If Integer.TryParse(numberpart, number) Then
          'Annahme: Markenname steht im ersten Abschnitt
          'Markenname_ArtikelNummer in der neuen Spalte eintragen
          row(ColumnWithNumber) = parts(0) & "_" & number.ToString
       Else
          'keine Ziffernfolge im letzten Teilstring !!!
          row(ColumnWithNumber) = DBNull.Value 
       End If
    Next row
 
    'Name der neuen Spalte zurückgeben
    Return ColumnWithNumber
End Function

   Private Function CreateNumberColumn(ByVal dt As cDataTableCSV, ByVal _
     ColumnEndswithNumber As String) As String
 
        Dim ColumnWithNumber As String = ""
 
 
        If Not dt.Columns.Contains(ColumnEndswithNumber) Then
            Throw New ArgumentException("Die Spalte " & ColumnEndswithNumber & _
              " ist nicht in der Tabelle vorhanden")
        End If
 
        dt.AddColumn()
        dt.AddColumn()
        dt.AddColumn() 'Spalte in Tabelle anfügen
        'Name der neuen Spalte abfragen
        ColumnWithNumber = dt.Columns(dt.Columns.Count - 1).ColumnName
 
        'Hilfsvariable
        Dim field As String, parts() As String, numberpart As String
        Dim number As Integer
 
        For Each row As DataRow In dt.Rows
 
            field = row(ColumnEndswithNumber).ToString() 'Feldinhalt abfragen
            parts = field.Split(" "c) 'Feldinhalt am Trennzeichen aufspalten 
 
            'Annahme: Artikelnummer steht im letzten Abschnitt
            numberpart = parts(parts.Length - 1) 'Letzter Abschnitt (=Nummer)
 
            'Prüfen, ob der letzte Teilstring als Integer darstellbar ist
            If Integer.TryParse(numberpart, number) Then
                'Annahme: Markenname steht im ersten Abschnitt
                'Markenname_ArtikelNummer in der neuen Spalte eintragen
                row(ColumnWithNumber) = parts(0) & " " & number.ToString
                row(ColumnWithNumber) = "hallo"  'Wird bei der ausgabe 
                ' angezeigt in SP_3.
                row(ColumnWithNumber) = parts(1) 'Wird bei der ausgabe nicht 
                ' angezeigt in SP_3.
            Else
                'keine Ziffernfolge im letzten Teilstring !!!
                row(ColumnWithNumber) = DBNull.Value
            End If
        Next row
 
        'Name der neuen Spalte zurückgeben
        Return ColumnWithNumber
 
        dt.AddColumn() 'Spalte in Tabelle anfügen
        'Name der neuen Spalte abfragen
        ColumnWithNumber = dt.Columns(dt.Columns.Count - 1).ColumnName
 
    End Function