Split, left og alt muligt pis

er det bare at choppe lidt af strengen af ?


<%
streng=left(C:\\Inetpub\\wwwroot\\andet\\noget, 18)
%>
blahhhhhhh
<%=streng%>

vil returnere

C:\\Inetpub\\wwwroot

det jeg lige har skrevet til dig burde virke, men når jeg tester brokker min comp sig over \"\\\"
så den må du selv klare...

ok det er fredag , og jeg er meget træt, jeg glemte quotes´ne...


<%
dim c
dim streng

c = \"C:/Inetpub/wwwroot/andet/noget\"

streng=left(c, 18)
%>

<%=streng%>


vil returnere

C:\\Inetpub\\wwwroot

Øhm nej.. der kan for så vidt også godt stå C:\\bent\\frank\\ole - altså skal splitte ved \\...

Du ved at du skal cutte efter wwwroot

Function CutString(tStr,CutStr)
  Dim Pos
  Pos = InStr(UCase(tStr),\"\\\"&Ucase(CutStr)&\"\\\")
  If Pos > 0 Then
    CutString = Left(tStr,Pos + Len(CutStr) + 1)
  End If
End Function

dinStr = \"c:\\inetpub\\wwwroot\\noget\\andet\\\"
Response.Write CutString(dinStr,\"wwwroot\")

NB. dinstr skal slutte med \\

Ved at checke på \\wwwroot\\ er du sikker på at ikke cutter med f.eks. wwwroot2

thanx dude