Extract-Funktion für VB Extrahiert einen Teilstring aus einem Gesamtstring mit festen Wort-Trennzeichen unter Angabe der Wort-Position.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  16.261
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 22 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Die Split-Funktion aus VB (erst ab Version 6) ist eine feine Sache, wenn man einen String mit festen Trennzeichen in ein Array zerlegen muss.

Möchte man jedoch nur einen bestimmten Teilstring aus dem Gesamtstring extrahieren, müsste man bei Verwendung der Split-Funktion den Gesamtstring zunächst in ein Array zerlegen, um dann gezielt den gesuchten Teilstring zu ermitteln:

' 3. Teilstring ermitteln
Dim myString As String
Dim sWords() As String
 
myString = "DIES|IST|EIN|TEST"
sWords = Split(myString, "|")
 
MsgBox sWords(2) ' EIN

Einfacher wäre es, wenn man den Teilstring wie folgt extrahieren könnte:

MsgBox Extract(myString, "|", 3)

Doch leider gibt es in VB keine solche Extract-Funktion.
Ein Grund mehr also, um selbst wieder einmal eine neue "VB"-Funktion zu proggen

' Teilstring aus Gesamtstring extrahieren
Public Function Extract(ByVal sText As String, _
  ByVal sDelimiter As String, _
  ByVal nPos As Long)
 
  Dim i As Long
  Dim sPos As Long
  Dim ePos As Long
 
  ' Prüfen, ob String mit Trennzeichen endet und ggf. anfügen
  If Right$(sText, 1) <> sDelimiter Then _
    sText = sText & sDelimiter
 
  sPos = 0: ePos = 0
  For i = 1 To nPos
    ' Trennzeichen suchen
    ePos = InStr(sPos + 1, sText, sDelimiter)
    If ePos = 0 Then Exit For
 
    ' vorletzte Fundstelle als Start-Position merken
    If i < nPos Then sPos = ePos
  Next i
 
  ' Falls "nPos" gültig...
  If ePos > 0 Then
    ' ... gewünschten Teilstring extrahieren
    Extract = Mid$(sText, sPos + 1, ePos - sPos - 1)
  End If
End Function