Replace = Fjern alt inden x

Hedder det altid up_gfx ?

Så kan du lave noget med inStr og tilføje disse to linjer.:

index = inStr(1, what, "up_gfx/")
if index > 0 then what = mid(what, index)

Det er måske bedre at bruge inStrRev hvis der kan være to foldere som hedder up_gfx:

index = inStrRev(what, "up_gfx/")
if index > 0 then what = mid(what, index)

<%
function replaceIt(what)

MyArray = Split(what, "/")
For i = 0 To UBound(MyArray)
if MyArray(i) = "up_gfx" then

response.write i & "<br>"
for n = i+1 to UBound(MyArray)
if n = UBound(MyArray) then
str2 = str2 & MyArray(n)
else
str2 = str2 & MyArray(n) & "/"
end if
next

end if
next
what = str2
    what = Replace(what, """", "'")
    what = Replace(what, "\", "/")
    what = Replace(what, "\\", "/")
    replaceIt = what
end function

%>

Måske en lidt kringlet måde at gøre det på, men det virker (i hvert fald før jeg satte det sammmen med den function, har ikke testet med den også)...

Der er vidst ingen grund til at få den til at udskrive hvor i arrayet forekomsten var. Desuden skal det der retter de forskellige backslash osv. rettes til før der kan splittes til array, så derfor skal det i stedet være:

<%
response.write(replaceIt(str))


function replaceIt(what)

    what = Replace(what, """", "'")
    what = Replace(what, "\\", "/")
    what = Replace(what, "\", "/")
       

MyArray = Split(what, "/")
For i = 0 To UBound(MyArray)
if MyArray(i) = "up_gfx" then

for n = i+1 to UBound(MyArray)
if n = UBound(MyArray) then
str2 = str2 & MyArray(n)
else
str2 = str2 & MyArray(n) & "/"
end if
next

end if
next

replaceIt = str2
end function


%>

Tak skal I ha' - begge virker mere eller mindre efter hensigten.