---
title: "Lista fram från .Css fil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/87488-lista-fram-från-css-fil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "UnConed"
published: "2003-10-02T15:00:31.000Z"
updated: "2003-10-02T17:22:14.000Z"
replies: 4
views: 230
page: 1
pages: 1
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/87488-lista-fram-från-css-fil"
---

# Lista fram från .Css fil

## #1 — UnConed, 2003-10-02T15:00Z

Hejsan, jag undrar om någon vet hur man
kan lista fram vilka styles som finns i en .css fil?
Låt säga att jag har en sida som heter TaFram.asp
och en css fil som heter Style.css.
Och nu vill jag ta fram alla olika styles jag har i den där Style.css filen
till min TaFram.asp fil, och lista upp dem i en dropdownbox..
Någon som har nått bra tips, eller ett script som gör detta?

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

## #2 — Sebbe, 2003-10-02T16:06Z

Typ såhär?

```
<select name="css">
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("style.css"))
strCSS = objTS.ReadAll
objTS.Close : Set objTS = Nothing
Set objFSO = Nothing

Set RegExp = New RegExp

With RegExp
  .Global = True
  .IgnoreCase = True
  .Pattern = "[^\{]*\{[^\}]*\}"
End With

Set objMatches = RegExp.Execute(strCSS)

For Each Match In objMatches
  RegExp.Pattern = "\{[^\}]*\}"
  strCSS = strCSS & "||" & RegExp.Replace(Match.Value, "")
Next

Set objMatches = Nothing : Set RegExp = Nothing

arrCSS = Split(strCSS, "||")

For i = 1 To UBound(arrCSS)
  Response.Write("<option>" & arrCSS(i) & "</option>" & vbCrLf)
Next
%>
</select>
```

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

## #3 — UnConed, 2003-10-02T16:09Z

Yup, precis :)
Tack tack!

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

## #4 — Melea, 2003-10-02T16:37Z

Den där koden skriver även ut kommentarer i css koden.

Skulle kunna gå att lösa genom att enbart tillåta a-z och . som första tecken.

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

## #5 — Sebbe, 2003-10-02T17:22Z

> **Melea skrev:**
>
> Den där koden skriver även ut kommentarer i css koden.
> 
> Skulle kunna gå att lösa genom att enbart tillåta a-z och . som första tecken.

Och om han vill ha hjälp med det då? ;)

**/red** Äsch, koden blev fel. Återkommer snart igen. ;)
**/red2** Såja!

```
<select name="css">
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("style.css"))
strCSS = objTS.ReadAll
objTS.Close : Set objTS = Nothing
Set objFSO = Nothing

Set RegExp = New RegExp

With RegExp
  .Global = True
  .IgnoreCase = True
  .Pattern = "[a-zA-Z0-9\.\#]{1}[^\{]*\{[^\}]*\}"
End With

Set objMatches = RegExp.Execute(strCSS)

For Each Match In objMatches
  RegExp.Pattern = "\{[^\}]*\}"
  strCSS = strCSS & "||" & RegExp.Replace(Match.Value, "")
Next

Set objMatches = Nothing : Set RegExp = Nothing

arrCSS = Split(strCSS, "||")

For i = 1 To UBound(arrCSS)
  Response.Write("<option>" & arrCSS(i) & "</option>" & vbCrLf)
Next
%>
</select>
```

 :p

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/87488-lista-fram-från-css-fil