split filnavn ved punktum

if right(filnavn,3) = "xls" then response.write "Excel"
if right(filnavn,3) = "doc" then response.write "Word"

vil du have hele koden eller er det bare selve opslitningen af filnavnet du er ude efter.

Det kan i det mindste gøres med split-funktionen

extension = split(filnavn, ".")(1)

Split() funktionen kan bare skabe problemer, hvis der er . i filnavnet. Ved godt at der ikke er mange der bruge . i filnavnet, men det kan desværre forkomme :o)

Hvis listen ellers er en streng hvor hver fil står på egen linie, kan du lave hele moletjavsen med flg.:

arrFilliste = split(filliste, vbCrLf)
for i = 0 to ubound(arrFilliste)
  filExt = split(arrFilliste(i), ".")(1)
  response.write("<img src=""" & filExt & ".gif"">" & arrFilliste(i) & "<br>")
next

forudsat at filliste har flg. indhold:

filnavn1.xls
filnavn2.doc
filnavn3.doc
...


Så skal du have nogle giffer liggende som hedder doc.gif og xls.gif.

fennec >> det har du egentlig ret i, så jeg vil da ændre mit forslag til

arrFilliste = split(filliste, vbCrLf)
for i = 0 to ubound(arrFilliste)
  arrFilParts = split(arrFilliste(i), ".")
  filExt = arrFilParts(ubound(arrFilParts))
  response.write("<img src=""" & filExt & ".gif"">" & arrFilliste(i) & "<br>")
next

...hvis der var nogen som skulle have den "perverse" idé at bruge extension der var længere end 3 tegn (jeg er klar over at den ikke er relevant her, men vil da nævne .html) :)

Vi er ihvertfald på rette vej her.

Problemet er bare jeg ikke nødvendigvis ved hvad filnavnet er..
De kan hedde filnavn1.xls eller nogetheltandet.xls

Så uanset hvad filnavnet er, skal den dele ved punktum

Det gør den også :)

formatet var mere myntet på linieskiftene

Herunder er et udsnit af koden.
Jeg henter filerne fra en Access database.
Kan jeg få jer til at tilpasse/indsætte jeres forslag?

<%
While Not rsFiles.EOF
%>

<table width="100%" border="0" cellspacing="0" cellpadding="5">
  <tr>
    <td width="10"><b><% place = place+1 %><%=place%>.</b></td>
    <td><a href="files.asp?f_id=<% =rsFiles("id")%>" class="headline_big"><% =rsFiles("filename") %></a>
    </td>
  </tr>
</table>
<%
rsFiles.Movenext
Wend
%>

<%
While Not rsFiles.EOF
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
  <tr>
    <td width="10"><b><% place = place+1 %><%=place%>.</b></td>
    <td><a href="files.asp?f_id=<% =rsFiles("id")%>" class="headline_big"><%= rsFiles("filename") %><%
    if right(rsFiles("filename")) = "doc" then Response.write "<img src=""word.gif"">"
    if right(rsFiles("filename")) = "xls" then Response.write "<img src=""excel.gif"">"
    %></a>
    </td>
  </tr>
</table>
<%
rsFiles.Movenext
Wend
%>

Ahaa... :)

Tak for hjælpen til jer begge.

Velbekomme :)