<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; VBScript: обработка CSS (Cascading Style Sheet)]]></title>
	<link rel="self" href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=2926&amp;type=atom" />
	<updated>2009-03-15T11:27:37Z</updated>
	<generator>PunBB</generator>
	<id>https://forum.script-coding.com/viewtopic.php?id=2926</id>
		<entry>
			<title type="html"><![CDATA[VBScript: обработка CSS (Cascading Style Sheet)]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=20706#p20706" />
			<content type="html"><![CDATA[<p>Бесплатный DLL компонент <a href="http://www.xstandard.com/en/documentation/xcss-parser/">CSS Parser Component</a> предназначен для преобразования CSS файлов (Cascading Style Sheet) в XML и обратно, что может быть удобным для их программной обработки. Скачать компонент можно скачать <a href="http://www.xstandard.com/en/downloads/?product=css-parser">здесь</a> (ссылка для скачивания высылается на e-mail). Дистрибутив (архив) компонента имеет размер порядка 75 Кб.</p><p>Компонент предоставляет два COM-сервера: &quot;XStandard.CSS2XML&quot; и &quot;XStandard.XML2CSS&quot;. Первый позволяет загрузить CSS из файла или текста, а затем сохранить полученный XML в файл или текст. Второй — с точностью до наоборот: загрузить XML из файла или текста, а затем сохранить полученный CSS в файл или текст. Пример загружает фрагмент CSS из текста (строковой переменной), преобразует его в XML, меняет один атрибут с помощью <a href="http://www.script-coding.com/XMLDOMscripts.html">MS XML Parser</a>, а затем преобразует изменённый XML обратно в CSS:<br /></p><div class="codebox"><pre><code>Set oCSS = CreateObject(&quot;XStandard.CSS2XML&quot;)
oCSS.Indent = True &#039; создаём отступы для наглядности XML
Set oXML = CreateObject(&quot;XStandard.XML2CSS&quot;)
Set oDoc = CreateObject(&quot;MSXML2.DOMDocument&quot;)
oDoc.async = False
&#039; преобразуем CSS в XML:
oCSS.LoadCSS &quot;h1 {color:red}&quot;
WScript.Echo oCSS.XML
&#039; загружаем XML в парсер
oDoc.LoadXML oCSS.XML
&#039; изменяем цвет
Set oNode = oDoc.selectSingleNode(&quot;/css/rule[selector = &#039;h1&#039;]/declaration[property = &#039;color&#039;]/value&quot;)
If Not oNode Is Nothing Then
    oNode.Text = &quot;green&quot;
End If
&#039; преобразуем XML в CSS:
oXML.LoadXML oDoc.documentElement.XML
WScript.Echo oXML.CSS</code></pre></div>]]></content>
			<author>
				<name><![CDATA[The gray Cardinal]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=2</uri>
			</author>
			<updated>2009-03-15T11:27:37Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=20706#p20706</id>
		</entry>
</feed>
