---
title: "Vides Dynamisk listning av filer"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8409-vides-dynamisk-listning-av-filer/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "costodia"
published: "2001-03-04T14:15:00.000Z"
updated: "2001-03-05T17:25:00.000Z"
replies: 27
views: 476
page: 2
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/8409-vides-dynamisk-listning-av-filer"
---

# Vides Dynamisk listning av filer

_Sida 2 av 2._

## #21 — costodia, 2001-03-05T11:02Z

jag det kommer på sidan <http://www.costodia.com/data/filerna.asp> 
så här:

```
 Costodia Data - Arkiv
*****' regEx.Pattern = "
```

jag startadeom från noll och kopierade din kod igen för att försöka få sidan utan radbrytningar, men jag vet inget program som kan fixa att ta emot någonting jag klistrat in från IE, du har inte lust att lägga upp en textfil?

Om jag får funktionen att funka komme rjag och säkert många andra ha otroligt mycket nytta av den.

Permalänk: https://www.webforum.nu/p/260527

## #22 — nakoz, 2001-03-05T11:22Z

okej... de där verkar ruggit skumt, men jag får inte riktigt nån koppling i alla dina små kodsnuttar... kan du klistra in typ allt eller nåt, så är de lättare att hjälpa dig..

MVH

Permalänk: https://www.webforum.nu/p/260528

## #23 — costodia, 2001-03-05T11:22Z

Nu använder jag notetab från [www.notetab.com](http://www.notetab.com)  och det klarar radbrytningar, nu ser koden ut så här istället:

```
 <%
'***** Specifierar sökvägen till filerna, lokalt och via HTTP *****
http = "http://www.costodia.com/data"
lokal = Server.Mappath("\")
'***** Skapar FSO-objektet och hämtar in alla filer från sökvägen *****'
Set fso = CreateObject("scripting.FileSystemObject")
Set fsof = fso.GetFolder(lokal)
Set fsofi = fsof.files

'***** Skapar ett Regular Expression *****'
Set regEx = New RegExp
regEx.IgnoreCase = True 
regEx.Global = True

'***** Loopar igenom alla filer i katalogen *****'
For Each fil in fsofi

'***** Öppnar filen och lägger allt innehåll i variabelnn filecont *****'
Set filen = fso.OpenTextFile(lokal & "\" & fil.name)
filecont = filen.ReadAll

'***** Letar upp positionen för textsträngen <title> *****'
regEx.Pattern = "<title>"
Set Matches = regEx.Execute(filecont)
For each match1 in Matches
pos1 = Match1.FirstIndex+8
exit For
Next

'***** Letar upp positionen för textsträngen </title> *****'
regEx.Pattern = "</title>"
Set Matches2 = regEx.Execute(filecont)
For each match2 in Matches2
pos2 = Match2.FirstIndex
exit For
Next

'***** Bryter ut all text mellan <title> och </title> *****'
title_text = pos2 - pos1
title = Mid(filecont,pos1,title_text+1)

'***** Skriver ut en länk till filen med titeln som länknamn *****'
Response.write "<a href='" & http & "/" & fil.name & "'>" & title & "</a><br>"
Next
%>
```

kan det fortfarande vara någon radbrytning som är fel?

Permalänk: https://www.webforum.nu/p/260529

## #24 — Vide, 2001-03-05T11:59Z

Okej, har alla filer i mappen title-taggar? Det måste dom ha...

Permalänk: https://www.webforum.nu/p/260530

## #25 — costodia, 2001-03-05T16:42Z

nu har jag lagt in title på alla mina filer, samtliga är aspfiler, och det fungerar endå inte.
kan det vara någonting annat som är fel?

Permalänk: https://www.webforum.nu/p/260531

## #26 — Vide, 2001-03-05T16:47Z

Om denna filen ligger där också, så måste den också ha title-taggar före koden...

Permalänk: https://www.webforum.nu/p/260532

## #27 — costodia, 2001-03-05T17:11Z

Kalasbra, 
tack så jättemycket Vide, det är en otroligt bra funktion du har gjort.
Nu fick jag i och för sig ett annat probelm  som jag i och för sig inte tror ät relaterat till scriptet utan någon annan konstigt jag gjort men det har aldrig hänt förut.
jag får felmeddelnadet Microsoft OLE DB Provider for ODBC Drivers error '80004005'

\[Microsoft\]\[ODBC Microsoft Access Driver\] Operation must use an updateable query.

/goto.asp, line 16

i samtliga länksystem på costodia, utan att länksysystemen har någonting att göra med verann.

Permalänk: https://www.webforum.nu/p/260533

## #28 — @nders, 2001-03-05T17:25Z

japp, det beror på att mappen som databasen / databaserna ligger i har fel rättigheter.

mvh,

Permalänk: https://www.webforum.nu/p/260534

---

Tråden på webben: https://www.webforum.nu/amne/asp/8409-vides-dynamisk-listning-av-filer/page2  
Föregående sida: https://www.webforum.nu/amne/asp/8409-vides-dynamisk-listning-av-filer.md