---
title: "Hämta css fil läsa innehål och skriva ut enligt följande:"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/104766-hämta-css-fil-läsa-innehål-och-skriva-ut-enligt-följande"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Addeladde"
published: "2004-06-01T20:08:29.000Z"
updated: "2004-06-04T12:14:42.000Z"
replies: 1
views: 274
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/104766-hämta-css-fil-läsa-innehål-och-skriva-ut-enligt-följande"
---

# Hämta css fil läsa innehål och skriva ut enligt följande:

## #1 — Addeladde, 2004-06-01T20:08Z

Hej

Jag skulle vilja hämta innehållet i en css fil och validera den så att den är korrekt och om den är det så vill jag skriva ut innhållet på följande sätt:

```
oEdit1.arrStyle=[
[".Highlight",true,"Highlight","font-family:Arial;color: red;"],
[".ImportantWords",true,"Important Words","font-weight:bold;"],
["BODY",false,"","font-family:Verdana, Arial, Helvetica;font-size:x-small;"]
]
```

Någon som har lust och hjälpa mig med det?

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

## #2 — Addeladde, 2004-06-04T12:14Z

Löste det med följande kod:

```
<%
sString = ".Text" & vbcrlf &_
	"{" & vbcrlf &_
	"font-family: Verdana, Arial, Helvetica, sans-serif;" & vbcrlf &_
	"font-size: 10px;" & vbcrlf &_
	"font-style: normal;" & vbcrlf &_
	"font-weight: normal;" & vbcrlf &_
	"color: #000000;" & vbcrlf &_
	"text-decoration: none;	}" & vbcrlf &_
".Rubrik      " & vbcrlf &_
	"     {" & vbcrlf &_
	"font-family: Verdana, Arial, Helvetica, sans-serif;" & vbcrlf &_
	"font-size: 12px;" & vbcrlf &_
	"font-style: normal;" & vbcrlf &_
	"font-weight: bold;" & vbcrlf &_
	"color: #000000;" & vbcrlf &_
	"text-decoration: none;" & vbcrlf &_
	"}" & vbcrlf &_

".Fet {" & vbcrlf &_
	"font-family: Arial, Helvetica, sans-serif;" & vbcrlf &_
	"font-size: 11px;" & vbcrlf &_
	"font-style: normal;" & vbcrlf &_
	"font-weight: bold;" & vbcrlf &_
	"font-variant: normal;" & vbcrlf &_
	"color: #000000;" & vbcrlf &_
	"text-decoration: none;" & vbcrlf &_
"}"

function hamtaStilar(sString)
	Dim objRegExp
	Set objRegExp = New RegExp
	objRegExp.Global = True
	objRegExp.IgnoreCase = True 
	objRegExp.Pattern = "\.([\s\S]*?)\{([\s\S]*?)\}"
	'sString = objRegExp.Replace(sString & "", "["".$1"",true,""$1"",""$2""],")
	Set Matches = objRegExp.Execute(sString) 
	traffar = cINT(Matches.count)
	i = 1
	For Each Match in Matches
	  Stilar = Stilar & "[""."& TRIM(Match.SubMatches(0)) &""",true,"""& Trim(Match.SubMatches(0)) &""","""& Match.SubMatches(1) &"""]"
	  If i <> traffar Then
		Stilar = Stilar&","
	  End If
	  i = i + 1
	Next
	Set objRegExp = Nothing
	stilar = "["&Stilar&"]"
	hamtaStilar = stilar
End Function

response.write hamtaStilar(sString)
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/104766-hämta-css-fil-läsa-innehål-och-skriva-ut-enligt-följande