ReverseSpanIncluding

Söker fram delsträngar tex. ReverseSpanIncluding ("ACCESS.EXE", ".") ger ".EXE"

'Function ReverseSpanIncluding(Sträng, SökSträng)
'Plockar ut en delsträng fram till och med ett givet tecken
'men söker bakifrån till skillnad från SpanIncluding
Function ReverseSpanIncluding(S, sSök)
   S = Reverse(S)
   If Len(S) = 0 Then
      ReverseSpanIncluding = Empty
   Else
      ReverseSpanIncluding = Reverse(Left$(S, InStr(1, S, sSök)))
   End If
End Function