Avatar billede hundevennen Nybegynder
22. september 2006 - 13:02 Der er 7 kommentarer og
1 løsning

filnavn uden extension??

jeg vil gerne udskrive et filnavn uden extension, - altså noget med

response.write right(g_ofile.namefilnavn,4)
det er worddokumenter jeg skal ha listet uden .doc
Avatar billede madeindk Nybegynder
22. september 2006 - 13:06 #1
<%
strFil = "mitdokument.doc"
strFil2 = right(strFil, 4)

Response.Write(strFil2)
%>
Avatar billede Slettet bruger
22. september 2006 - 13:15 #2
øh... viser den ovenstående måde ikke netop extension, madeindk?

hvad med de her to metoder?

<%
filnavn = "mitdokument.doc"
strfilnavn = split(filnavn,".")
vistfilnavn = strfilnavn(0)
%>

- eller også denne her:

<%
filnavn = "mitdokument.doc"
left(filnavn,(len(filnavn)-4))
%>

disse to skulle gerne give det samme...

\Dan
Avatar billede madeindk Nybegynder
22. september 2006 - 13:30 #3
Argh jo, jeg tåger vist lige lidt her. Sorry ;-)
Avatar billede hundevennen Nybegynder
28. september 2006 - 14:39 #4
Dannielsen jeg har forsøgt mig, men det vil ikke rigtig.
Jeg bruger det stykke script -  og vil gerne ha der hvor g_oFile.name står lavet om, så jeg kun får filnavnet uden .doc

Dim UPLOAD_PATH


        UPLOAD_PATH    = Server.MapPath(".")

    Dim g_oFso, g_oFolder, g_oFile
        Set g_oFso    = Server.CreateObject("Scripting.FileSystemObject")
        Set g_oFolder    = g_oFso.getFolder(UPLOAD_PATH)

    If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
        Dim g_oUpload
            Set g_oUpload    = get_upload_files()

        Dim fpos, fcontent
            fcontent    = g_oUpload("upload").Item("content")
        Set g_oFile    = g_oFso.CreateTextFile(UPLOAD_PATH & "\" & extract_filename(g_oUpload("upload").Item("filename")))
        For fpos = 1 to LenB(fcontent)
            g_oFile.Write chr(AscB(MidB(fcontent, fpos, 1)))
        Next
        g_oFile.Close: Set g_oFile    = Nothing
       
        Response.Redirect Request.ServerVariables("SCRIPT_NAME")
    End If
   
    Response.Write "<html><body><table class='plan'>"
   
    Response.Write "<tr><td><font size='+1'><font color=""#0000FF"">" & g_ofolder.name & "</font></font></td></tr><tr><td><hr></td></tr>"
    For Each g_oFile In g_oFolder.Files
    if right(g_oFile.name,3) = "asp" then
    Response.write ""
    else
      Response.Write "<tr><td><a href=""" & g_oFile.name & """ target=_blank>" & g_oFile.name & "</a></td></tr>"
    end if
    Next
    Response.Write "<tr><td><hr></td></tr>"
   
    Response.Write "</table></body></html>"
   

%>
Avatar billede hundevennen Nybegynder
28. september 2006 - 15:02 #5
det er denne linie der skal gøres noget ved

Response.Write "<tr><td><a href=""" & g_oFile.name & """ target=_blank>" & g_oFile.name & "</a></td></tr>"
Avatar billede hundevennen Nybegynder
28. september 2006 - 15:08 #6
har fundet ud af det

Response.Write "<tr><td><a href=""" & g_oFile.name & """ target=_blank>" & left(g_oFile.name,(len(g_o.File.name)-4)) & "</a></td></tr>"
Avatar billede hundevennen Nybegynder
28. september 2006 - 15:08 #7
så kom lige med et svar
Avatar billede Slettet bruger
30. september 2006 - 16:36 #8
hehe ok!

- det var godt du selv fandt ud af det... for det lærer man jo mest af... ;-)

- her et svar for point.

\Dan
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester