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

---

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