Rubrik: Variablen/Strings · String-Operationen | VB-Versionen: VB4, VB5, VB6 | 12.05.04 |
Extract-Funktion für VB Extrahiert einen Teilstring aus einem Gesamtstring mit festen Wort-Trennzeichen unter Angabe der Wort-Position. | ||
Autor: Dieter Otter | Bewertung: | Views: 15.764 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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