vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 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: Manfred X
Datum: 07.10.15 12:02

Völlig uneinheitliche Spalteninhalte erfordern Handarbeit.

Hier eine Routine, die die erste Ziffernfolge ermittelt und zurückgibt, die in
einer Zeichenfolge zu finden ist.
Dabei kann (optional) der null-basierte Startindex der Suche und die Länge des zu
durchsuchenden Abschnitts der Zeichenfolge angegeben werden.
Läßt sich dort keine Ziffer(nfolge) finden, wird ein leerer String zurückgegeben.
    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
Dieser Routine kann man den Inhalt der Variable "Field" (siehe oben) übergeben.
numberpart = FindFirstNumber(field)

Wenn allerdings mehrere Ziffernabschnitte (z.B. H0) vorkommen,
muß man den letzten Parameter auswerten (Rückgabe) und ab dieser
Position erneut suchen (StartIndex).
Beispiel:
   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"
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.124Manfred 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.131Vegas8508.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.087Vegas8508.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