FlowFact - Entwicklungstools

zurück

Function - StrList_DeleteFirst
Stringliste - Erstes Element löschen

Eine Stringliste ist eine durch Delimiter (Trennzeichen) getrennte Zeichenkette. Diese Funktion löscht das erste Element aus der Liste (varBuffer) und liefert es zurück.
Beispiel: varBuffer="Aachen|Hamburg|Köln"; Rückgabe="Aachen"; varBuffer (Nachher) = "Hamburg|Köln"
  Function StrList_DeleteFirst(ByRef varBuffer As Variant, Optional ByVal strDelim As String = "|") As String  
 


varBuffer: Stringliste als Variant
strDelim: Trennzeichen


Public Function StrList_DeleteFirst(ByRef varBuffer As Variant, Optional ByVal strDelim As String = "|") As String
    Dim p As Long
    Dim strBuffer As String

    strBuffer = CStr(varBuffer)
    p = InStr(strBuffer, strDelim)
    If p = 0 Then
      StrList_DeleteFirst = strBuffer
      varBuffer = ""
    Else
      StrList_DeleteFirst = Mid(strBuffer, 1, p - 1)
      varBuffer = Mid(strBuffer, p + Len(strDelim))
    End If
End Function