Есть два отдельных файла *.html и *.css,
как можно, (желательно средствами vb) внедрить файл стилей в документ html?
нужно избавиться от файла стилей, при этом не нарушив разметку страницы.
<html
xmlns:w="http://schemas.microsoft.com/office/word/2003/wordml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:msxsl="urn:schemas-microsoft-com:xslt"
xmlns:w10="urn:schemas-microsoft-com:office:word"
xmlns:sl="http://schemas.microsoft.com/schemaLibrary/2003/core"
xmlns:WX="http://schemas.microsoft.com/office/word/2003/auxHint"
xmlns:aml="http://schemas.microsoft.com/aml/2001/core"
xmlns:wx="http://schemas.microsoft.com/office/word/2003/auxHint"
xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882"
xmlns:myutils="http://mycoolplace.com">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
<link rel="stylesheet" type="text/css" href="style.css" />
<Style>
@page Section1
{size:595.3pt 841.9pt;
margin:28.35pt 56.7pt 28.35pt 70.85pt;
mso-header-margin:0pt;
mso-footer-margin:0pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
</Style>
</head>
...
iGrok писал(а):Меджу </Style> и </head> воткнуть ещё одну пару <style></style> и вставить между ними содержимое файла style.css.
После чего удалить <link rel="stylesheet" type="text/css" href="style.css" />.
kibernetics писал(а):IGrok, а может поможешь разобраться с XMLDOM (DOMDocument), вот на примере этого задания, как с помощью DOM'a обработать мой html?
kibernetics писал(а):ну, найти тег <link>< />, удалить его.
найти <head>, вставить перед ним мой кусок css.
Dim dd As New DOMDocument, n As IXMLDOMNode, p As IXMLDOMNode
dd.Load ("path_and_filename")
Set n = dd.selectSingleNode("/html/head/link") 'найти <link .../>
Debug.Print n.Attributes.getNamedItem("href").Text 'узнать путь к файлу стилей
Set p = n.parentNode 'выбрать родителя - это будет <head>
p.removeChild n 'удалить <link .../> из родителя
Set n = dd.selectSingleNode("/html/head/Style").cloneNode(False) 'Сделать копию <Style></Style>
n.Text = ".test {width: 100%}" 'Заменить её текст на свой (сюда нужно вставить содержимое файла)
p.appendChild n 'Добавить созданную ветку к <head>
dd.save "new_path_and_filename" 'Записать всё в новый файл.
Сейчас этот форум просматривают: AhrefsBot и гости: 52