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

---

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