Fjerne sti fra filnavn?

Noget i den her stil:

Function GetFileName(FullPath)
PosF = 0
For Pos = Len(FullPath) To 1 Step -1
  Select Case Mid(FullPath, Pos, 1)
  Case \"/\", \"\\\": PosF = Pos + 1: Pos = 0
  End Select
Next
If PosF = 0 Then PosF = 1
GetFileName = Mid(FullPath, PosF)
picturePath = \"\" & Mid(FullPath, PosF)
End Function

arh her linien:
picturePath = \"\" & Mid(FullPath, PosF)

skulle ikke med:

Function GetFileName(FullPath)
PosF = 0
For Pos = Len(FullPath) To 1 Step -1
  Select Case Mid(FullPath, Pos, 1)
  Case \"/\", \"\\\": PosF = Pos + 1: Pos = 0
  End Select
Next
If PosF = 0 Then PosF = 1
GetFileName = Mid(FullPath, PosF)
End Function

eagleeye >> hvorfor ikke benytte innebygde funksjoner i VBScript ??

picPath = \"c:\\windows\\skrivebord\\mit-billede.jpg\"
startIndex = InStrRev( picPath, \"\\\" ) + 1
fileName = MID( picPath, startIndex )

/nute

Jo det kan man. Hvis det \\ i stien. Jeg tænkte at det måke også kunne forkomme / som skille tegn.

men det er nok ikke så sansynligt...

Når du skriver længere text mener du så sådan her?
text=\"Se billede c:\\windows\\billeder\\imge1.jpg det er pænt.\"

windows skriver lokasjoner på disk med backslash (\\), men hvis denne \"funksjon\" skal kunne håndtere URL\'er i tilleg, så kan man jo bare modifisere litt:

picPath = \"c:\\windows\\skrivebord\\mit-billede.jpg\"

picName = findImgName( picPath )

function findImgName( byVal picPath )
  startIndex = -1
  picName = null
  if( LEN( picPath ) > 0 ) then
    if( InStr(\"/\") > 0 ) then
      startIndex = InStrRev( picPath, \"/\" ) + 1
    else
      if( InStr(\"\\\") > 0 ) then
        startIndex = InStrRev( picPath, \"\\\" ) + 1
      end if
    end if
  end if
  if( startIndex > -1 ) then
    picName = MID( picPath, startIndex )
  end if
  findImgName = picName
end function

/nute

Ja, med længere text mener jeg
text=\"Se billede c:\\windows\\billeder\\imge1.jpg det er pænt.\"

Og efter funktionen er kørt, skal der så stå
text=\"Se billede imge1.jpg det er pænt.\"

text = \"Se billede c:\\windows\\billeder\\imge1.jpg det er pænt.\"

text = GetFileName(text)

og på nuværende tidspnkt, ville text være ligmed: \"Se billede imge1.jpg det er pænt.\"

Nå har jeg antatt at alle stier til bilder er på lokaldisk (altså i format drev:\\folder\\folder ...), så kan man skrive funksjonen jeg allerede har skrevet om til en generisk replace funksjon:

picPath = \"Se billede c:\\windows\\billeder\\imge1.jpg det er pænt.\"

picName = findImgName( picPath )

response.write picName

function findImgName( byVal picPath )
  Dim replaceStr, tmpArr, startIndex, returnStr
    tmpArr = SPLIT( picPath, \" \" )
    replaceStr = null
    returnStr  = null
    for i = 0 to UBOUND( tmpArr )
      if( InStr( tmpArr(i), \"\\\" ) > 0 ) then
          replaceStr = MID( tmpArr(i), 1, InStrRev( tmpArr(i), \"\\\" ) )
            exit for
        end if
    next
  if( NOT IsNull(replaceStr) ) then
    returnStr = replace( picPath, replaceStr, \"\" )
  end if
  findImgName = returnStr
end function

/nute

Her er en function som laver text=\"Se billede c:\\windows\\billeder\\imge1.jpg det er pænt.\"
om til text=\"Se billede imge1.jpg det er pænt.\"

Function pathRemove(strInput)
  Set objRegPath = New RegExp
  objRegPath.Global = True
  objRegPath.IgnoreCase = True
  objRegPath.Pattern = \"\\w:\\S*\\\\([\\w]+.[\\w]+)\"
  strOutput = objRegPath.Replace(strInput, \"  $1 \")
  Set objRegPath = Nothing
  pathRemove = strOutput
End Function

eagleeye >> så skal man sørge for at VBScript versjon 5 kjører på serveren. Da er det heller bedre å benytte seg av JScript som har RegExp object innebygget fra tidligere versjoner.

/nute

nute>> Ja men det antager jeg også findes på de forskellige web-hoteller. Jeg har det til at virke på en Window98 computer, så tror jeg også det virker på stort set alt andet.

det skal bare kunne kører på en af scannets.dk servere...
Jeg tester det når jeg kommer hjem... (sent iaften)

Er du kommet hjem ;)