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

---

<!--#include file="../inc/navstuff.asp" -->
Söker fram delsträngar tex. LastSpanExcluding ("AB-122-23", "-") ger "AB-122-"<br>
<div class=code>
'Function LastSpanExcluding(S, sSök)<br>
'Plockar ut en delsträng fram till och med det <br>
'sista förekomsten av ett givet tecken<br>
Function LastSpanExcluding(S, sSök)<br>
   S = Reverse(S)<br>
   If Len(S) = 0 Or InStr(1, S, sSök) = 0 Then<br>
      LastSpanExcluding = Empty<br>
   Else<br>
      LastSpanExcluding = Reverse(Right$(S, Len(S) - InStr(1, S, sSök)))<br>
   End If<br>
End Function</div>
<!--#include file="../inc/footer.asp" -->