ABOUT Visual Basic Programmieren Programmierung Download Downloads Tips & Tricks Tipps & Tricks Know-How Praxis VB VBA Visual Basic for Applications VBS VBScript Scripting Windows ActiveX COM OLE API ComputerPC Microsoft Office Microsoft Office 97 Office 2000 Access Word Winword Excel Outlook Addins ASP Active Server Pages COMAddIns ActiveX-Controls OCX UserControl UserDocument Komponenten DLL EXE
Diese Seite wurde zuletzt aktualisiert am 06.04.2001

Diese Seite wurde zuletzt aktualisiert am 06.04.2001
Aktuell im ABOUT Visual Basic-MagazinGrundlagenwissen und TechnologienKnow How, Tipps und Tricks rund um Visual BasicActiveX-Komponenten, Controls, Klassen und mehr...AddIns für die Visual Basic-IDE und die VBA-IDEVBA-Programmierung in MS-Office und anderen AnwendungenScripting-Praxis für den Windows Scripting Host und das Scripting-ControlTools, Komponenten und Dienstleistungen des MarktesRessourcen für Programmierer (Bücher, Job-Börse)Dies&Das...

Themen und Stichwörter im ABOUT Visual Basic-Magazin
Code, Beispiele, Komponenten, Tools im Überblick, Shareware, Freeware
Ihre Service-Seite, Termine, Job-Börse
Melden Sie sich an, um in den vollen Genuss des ABOUT Visual Basic-Magazins zu kommen!
Informationen zum ABOUT Visual Basic-Magazin, Kontakt und Impressum

Zurück...

Teile-weise abräumen

Zurück...


Anzeige

(-hg) mailto:hg_getstringpart@aboutvb.de

Mit der Funktion Split können Sie ab Visual Basic 6 einen String zerlegen, der mehrere durch einen Trenn-String voneinander getrennte Teile enthält. Wenn Sie jedoch nicht alle Teile benötigen, sondern nur jeweils den ersten oder letzten Teil, wäre die Verwendung dieser Funktion (oder auch eines Ersatzes für VB-Versionen vor VB 6) zu (zeit)aufwändig. Hierfür genügt eine eigene Funktion, die den ersten bzw. letzten Teil ausliest und ihn gegebenenfalls einschließlich des Trenn-Strings entfernt.

Sie übergeben der Funktion GetStringPart den vorhandenen Gesamt-String und den Trenn-String. Im optionalen Parameter FromRight (Voreinstellung: False) legen Sie fest, ob der letzte Teil ausgelesen bzw. entfernt werden soll. Im letzten, ebenfalls optionalen Parameter StripPart legen Sie fest, ob der ausgelesen Teil entfernt werden soll, oder ob der übergebene String unangetastet bleiben soll (Voreinstellung: True).

Public Function GetStringPart(Str As String, Separator As String, _
 Optional ByVal FromRight As Boolean, _
 Optional ByVal StripPart As Boolean = True) As String

  Dim nPos As Long
  
  If Len(Str) Then
    If FromRight Then
      nPos = InStrRev(Str, Separator)
      If nPos Then
        GetStringPart = Mid$(Str, nPos + Len(Separator))
        If StripPart Then
          Str = Left$(Str, nPos - 1)
        End If
      Else
        GetStringPart = Str
        If StripPart Then
          Str = ""
        End If
      End If
    Else
      nPos = InStr(Str, Separator)
      If nPos Then
        GetStringPart = Left$(Str, nPos - 1)
        If StripPart Then
          Str = Mid$(Str, nPos + Len(Separator))
        End If
      Else
        GetStringPart = Str
        If StripPart Then
          Str = ""
        End If
      End If
    End If
  End If
End Function

Da die zur Bestimmung des ersten rechtsseitigen Vorkommens des Trenn-Strings benötigte Funktion InStrRev auch erst seit VB 6 zur Verfügung steht, können Sie unter VB 5 die folgende Funktion verwenden. Am besten belassen Sie diese im gleichen Standard-Modul und als "Private" deklariert, damit sie nicht mit einer gegebenenfalls anderweitig vorhanden Ersatz-Implementierung in Konflikt gerät:

Private Function InStrRev(Str As String, Separator As String) _
 As Long

  Dim l As Long
  Dim nLenSeparator As Long

  nLenSeparator = Len(Separator)
  For l = Len(Str) To 1 Step -1
    If Mid$(Str, l, nLenSeparator) = Separator Then
      InStrRev = l
      Exit Function
    End If
  Next 'l
End Function

Diese Funktion ist im zu diesem Artikel herunterladbaren Modul modGetStringPart.bas auskommentiert - unter VB 6 können Sie sie auch ganz löschen.


Modul modGetStringPart (modGetStringPart.bas - ca. 1,7 KB)


Artikel
Zum Download-Bereich dieses Artikel
Mail an den Autor dieses Artikels

KnowHow
Zur KnowHow-Übersicht

KnowHow-Themen
Themen - Allgemeines
Themen - Entwicklungsumgebung (VB-IDE)
Themen - Forms
Themen - Steuerelemente (Controls)
Themen - Grafik
Themen - Dateien
Themen - UserControls
Themen - Einsteiger-Tipps
Themen - Wussten Sie...?

Übersicht nach Titeln in alphabetischer Reihenfolge
Übersicht nach Erscheinungsdatum

Schnellsuche




Zum Seitenanfang

Copyright © 1999 - 2017 Harald M. Genauck, ip-pro gmbh  /  Impressum

Zum Seitenanfang

Zurück...

Zurück...

Download Internet Explorer