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

AddeladdeMedlem sedan jan. 20013 406 inlägg

Frågan1 juni 2004 20:08#1

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?

AddeladdeMedlem sedan jan. 20013 406 inlägg

4 juni 2004 12:14#2

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)