| Код |
procedure TForm1.Parse();
var
HtmlDocument: IHtmlDocument2;
HtmlCollection: IHtmlElementCollection;
HtmlElement: IHtmlElement;
I: Integer;
value : OleVariant;
keywords : OleVariant;
Flag : boolean;
begin
keywords := '';
Flag := false;
HtmlDocument := WebBrowser1.Document as IHtmlDocument2;
HtmlCollection := HtmlDocument.all;
//set attributes for tags
for I := 0 to HtmlCollection.Length - 1 do begin
HtmlElement := HtmlCollection.Item(i, 0) as IHtmlElement;
if HtmlElement.tagName = 'IMG' then begin
value := Alts.Strings[random(Alts.Count-1)]; //getRendomAlt
//value := '2222';
keywords := keywords + value + ', ';
HtmlElement.setAttribute('alt',value,0);
end;
end;
//set meta keywords
HtmlCollection := HtmlCollection.Tags('META') as IHTMLElementCollection;
for I := 0 to HtmlCollection.Length - 1 do begin
HtmlElement := HtmlCollection.Item(i, 0) as IHTMLElement;
if HtmlElement.getAttribute('name',0) = 'keywords' then
begin
HtmlElement.setAttribute('content',keywords,0);
Flag := true;
end;
end;
//save modifed file
SaveFile(Flag, keywords);
end;
|
Вот после такого, в хтмл коде вообще ни чего бывает не остаётся, тоесть если хтмл полностью правильный то всё прекрасно работает, но если это дапустим шаблоны под шаблонизатор с тэгами и атрибутами шаблонизатора, то он просто их все удаляет и всё, и даже если не модифить не чего, а просто пробежатся по ним и всё ! на выходи я получаю чистый код (((
КАК избавится от такой медвежей услуги IE ?
Очень нужно |