![]() |
FlowFact - Entwicklungstools |
![]() |
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 |