vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 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:35

Habe es im moment so:

'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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tabelle Spalteninhalt vergleichen5.617Vegas8506.10.15 23:00
Re: Tabelle Spalteninhalt vergleichen3.773Manfred X07.10.15 06:31
Re: Tabelle Spalteninhalt vergleichen3.131Sony8507.10.15 10:13
Re: Tabelle Spalteninhalt vergleichen3.171Manfred 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.221Sony8507.10.15 11:16
Re: Tabelle Spalteninhalt vergleichen3.172Manfred X07.10.15 12:02
Re: Tabelle Spalteninhalt vergleichen3.107Vegas8507.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.125Manfred X08.10.15 09:00
Re: Tabelle Spalteninhalt vergleichen3.057Vegas8508.10.15 09:20
Re: Tabelle Spalteninhalt vergleichen3.157Manfred X08.10.15 09:39
Re: Tabelle Spalteninhalt vergleichen3.132Vegas8508.10.15 10:35
Re: Tabelle Spalteninhalt vergleichen3.173Vegas8508.10.15 10:36
Re: Tabelle Spalteninhalt vergleichen3.220Manfred X08.10.15 11:37
Re: Tabelle Spalteninhalt vergleichen3.088Vegas8508.10.15 17:01
Re: Tabelle Spalteninhalt vergleichen3.122Vegas8509.10.15 08:43
Re: Tabelle Spalteninhalt vergleichen3.106Manfred 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