vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Tabelle Spalteninhalt vergleichen 
Autor: Vegas85
Datum: 08.10.15 10:36

   '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
Hier noch ein Bild von der Form:



Da ist bestimmt einiges noch zu verbessern
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tabelle Spalteninhalt vergleichen5.616Vegas8506.10.15 23:00
Re: Tabelle Spalteninhalt vergleichen3.772Manfred X07.10.15 06:31
Re: Tabelle Spalteninhalt vergleichen3.130Sony8507.10.15 10:13
Re: Tabelle Spalteninhalt vergleichen3.170Manfred X07.10.15 10:37
Re: Tabelle Spalteninhalt vergleichen3.085Vegas8507.10.15 08:53
Re: Tabelle Spalteninhalt vergleichen3.116Manfred X07.10.15 09:34
Re: Tabelle Spalteninhalt vergleichen3.220Sony8507.10.15 11:16
Re: Tabelle Spalteninhalt vergleichen3.170Manfred X07.10.15 12:02
Re: Tabelle Spalteninhalt vergleichen3.106Vegas8507.10.15 22:44
Re: Tabelle Spalteninhalt vergleichen3.099Manfred X08.10.15 06:24
Re: Tabelle Spalteninhalt vergleichen3.112Vegas8508.10.15 08:35
Re: Tabelle Spalteninhalt vergleichen3.124Manfred X08.10.15 09:00
Re: Tabelle Spalteninhalt vergleichen3.056Vegas8508.10.15 09:20
Re: Tabelle Spalteninhalt vergleichen3.157Manfred X08.10.15 09:39
Re: Tabelle Spalteninhalt vergleichen3.131Vegas8508.10.15 10:35
Re: Tabelle Spalteninhalt vergleichen3.172Vegas8508.10.15 10:36
Re: Tabelle Spalteninhalt vergleichen3.219Manfred X08.10.15 11:37
Re: Tabelle Spalteninhalt vergleichen3.087Vegas8508.10.15 17:01
Re: Tabelle Spalteninhalt vergleichen3.121Vegas8509.10.15 08:43
Re: Tabelle Spalteninhalt vergleichen3.105Manfred X09.10.15 09:36
Re: Tabelle Spalteninhalt vergleichen3.061Vegas8509.10.15 18:55
Re: Tabelle Spalteninhalt vergleichen3.012Vegas8509.10.15 23:37
Re: Tabelle Spalteninhalt vergleichen3.032Vegas8515.10.15 00:15
Re: Tabelle Spalteninhalt vergleichen3.047Manfred X15.10.15 06:28
Re: Tabelle Spalteninhalt vergleichen3.021Vegas8515.10.15 08:33
Re: Tabelle Spalteninhalt vergleichen3.028Manfred X15.10.15 08:41
Re: Tabelle Spalteninhalt vergleichen3.013Vegas8515.10.15 22:07
Re: Tabelle Spalteninhalt vergleichen3.143Manfred X16.10.15 06:31
Re: Tabelle Spalteninhalt vergleichen2.963Vegas8521.09.16 21:15

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel