31. august 2007 - 13:04Der er
4 kommentarer og 1 løsning
String : returnerer alt til højre for nummer 2 i / tegn
Har et dynamisk "skift-mappe" script der trækker filnavn ud af HTTP_REFERER. Nu ville jeg gerne have mappenavnet med også så result bliver : mappe & "/" & filnavn istedet for bare filnavn? Nedenfor er det script jeg bruger ..hvordan finder man nummer 2 "/" tegn fra højre og gør alt til højre for det til en string?
url = request.servervariables("HTTP_REFERER") result = mid(url,InStrRev(url,"/")+1)
function getFileAndFolder(fData) dim fAmount, fChar, fReturn fReturn = "" for f=1 to len(fData) fChar = mid(fData,len(fData)+1-f,1) if fChar = "/" then fAmount = fAmount + 1 if fAmount = 2 then exit for fReturn = fChar & fReturn next getFileFolder = fReturn end function
url = request.servervariables("HTTP_REFERER") result = getFileFolder(url)
function getFileAndFolder(fData) dim fAmount, fChar, fReturn fReturn = "" fAmount = 0 for f=1 to len(fData) fChar = mid(fData,len(fData)+1-f,1) if fChar = "/" then fAmount = fAmount + 1 if fAmount = 2 then exit for fReturn = fChar & fReturn next getFileFolder = fReturn end function
Og et "And" i return kaldet: function getFileAndFolder(fData) dim fAmount, fChar, fReturn fReturn = "" fAmount = 0 for f=1 to len(fData) fChar = mid(fData,len(fData)+1-f,1) if fChar = "/" then fAmount = fAmount + 1 if fAmount = 2 then exit for fReturn = fChar & fReturn next getFileAndFolder = fReturn end function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
