Källkoden för /anders.enges/vb/vbtips5.asp

---

<!--#include file="../inc/navstuff.asp" -->
Söker fram delsträngar tex. ReverseSpanExcluding ("ACCESS.EXE", ".") ger "EXE"<br>
<div class=code>
'Function ReverseSpanExcluding(Sträng, SökSträng)<br>
'Plockar ut en delsträng fram till ett givet tecken<br>
'men söker bakifrån till skillnad från SpanExcluding<br>
Function ReverseSpanExcluding(S, sSök)<br>
   S = Reverse(S)<br>
   If Len(S) = 0 Then<br>
      ReverseSpanExcluding = Empty<br>
   Else<br>
      ReverseSpanExcluding = Reverse(Left$(S, InStr(1, S, sSök) - 1))<br>
   End If<br>
End Function</div>
<!--#include file="../inc/footer.asp" -->