VBScript: обработка CSS (Cascading Style Sheet)

null@example.com (The gray Cardinal) — Sun, 15 Mar 2009 11:27:37 +0000

Бесплатный DLL компонент CSS Parser Component предназначен для преобразования CSS файлов (Cascading Style Sheet) в XML и обратно, что может быть удобным для их программной обработки. Скачать компонент можно скачать здесь (ссылка для скачивания высылается на e-mail). Дистрибутив (архив) компонента имеет размер порядка 75 Кб.

Компонент предоставляет два COM-сервера: "XStandard.CSS2XML" и "XStandard.XML2CSS". Первый позволяет загрузить CSS из файла или текста, а затем сохранить полученный XML в файл или текст. Второй — с точностью до наоборот: загрузить XML из файла или текста, а затем сохранить полученный CSS в файл или текст. Пример загружает фрагмент CSS из текста (строковой переменной), преобразует его в XML, меняет один атрибут с помощью MS XML Parser, а затем преобразует изменённый XML обратно в CSS:

Set oCSS = CreateObject("XStandard.CSS2XML")
oCSS.Indent = True ' создаём отступы для наглядности XML
Set oXML = CreateObject("XStandard.XML2CSS")
Set oDoc = CreateObject("MSXML2.DOMDocument")
oDoc.async = False
' преобразуем CSS в XML:
oCSS.LoadCSS "h1 {color:red}"
WScript.Echo oCSS.XML
' загружаем XML в парсер
oDoc.LoadXML oCSS.XML
' изменяем цвет
Set oNode = oDoc.selectSingleNode("/css/rule[selector = 'h1']/declaration[property = 'color']/value")
If Not oNode Is Nothing Then
    oNode.Text = "green"
End If
' преобразуем XML в CSS:
oXML.LoadXML oDoc.documentElement.XML
WScript.Echo oXML.CSS

Серый форум — VBScript: обработка CSS (Cascading Style Sheet)

VBScript: обработка CSS (Cascading Style Sheet)