LastSpanExcluding

Söker fram delsträngar tex. LastSpanExcluding ("AB-122-23", "-") ger "AB-122-"

'Function LastSpanExcluding(S, sSök)
'Plockar ut en delsträng fram till och med det
'sista förekomsten av ett givet tecken
Function LastSpanExcluding(S, sSök)
   S = Reverse(S)
   If Len(S) = 0 Or InStr(1, S, sSök) = 0 Then
      LastSpanExcluding = Empty
   Else
      LastSpanExcluding = Reverse(Right$(S, Len(S) - InStr(1, S, sSök)))
   End If
End Function