[arxlex]

Содержание HTML:

Код:

...
<dl class="tb-prop tb-clearfix">
<dt>Цвет товара</dt>
<dd>
<ul data-property="Цвет" class="tb-clearfix J_TSaleProp tb-img  ">
<li data-value="1627207:28332" title="Чёрный" class="tb-txt"><a href="#" ><span>Чёрный</span></a></li>
<li data-value="1627207:3232483" title="Вишнёвый" class="tb-txt"><a href="#" ><span>Вишнёвый</span></a></li>
<li data-value="1627207:3232484" title="Белый" class="tb-txt"><a href="#" ><span>Белый</span></a></li>
<li data-value="1627207:90554" title="Жёлтый" class="tb-txt"><a href="#" ><span>Жёлтый</span></a></li></ul>
</dd>
</dl>
...
<dl class="tb-prop tb-clearfix">
<dt>Размер товара</dt>
<dd>
<ul data-property="Размер" class="tb-clearfix J_TSaleProp  ">
<li data-value="1630696:6536025"><a href="#"><span>XL</span></a></li>
<li data-value="1630696:3266779"><a href="#"><span>XXL</span></a></li>
<li data-value="1630696:3266781"><a href="#"><span>XXXL</span></a></li>
</ul>
</dd>
</dl>
...

Вопрос: как по отдельности получить содержание в ComboBox по свойству data-property?

Например:
ComboBox1(Цвета) и ComboBox2(Размер)

Как можно определить содержание <ul> по свойствам data-property="Цвет" и data-property="Размер", так как наверху и внизу кода в HTML есть множество <ul> с разными data-property="..."...

[arxlex]

Пробовал вот так:

Код:

var
i,n1: integer;
o1,ot1: OleVariant;
begin
  ComboBox1.Clear;
  o1:=WebBrowser1.OleObject.Document.getElementsByTagName('ul').item(0);
  ot1:=o1.getElementsByTagName('li');
  n1:=ot1.Length;
  if n1>0 then
  begin
    for i:=0 to n1-1 do
    begin
      self.ComboBox1.Items.Add(ot1.item(i).InnerText);
      ComboBox1.ItemIndex := 0;
    end;
  end;
end;

Но тут никак не получается получить содержание <ul> с помощью свойства data-property="Цвет"

[NumLock]

ну так проверяй значение атрибута data-property

[arxlex]

Сообщение от NumLock

ну так проверяй значение атрибута data-property

как остроумно... если бы я знал как это делается, я не стал бы создавать эту тему. Не смог бы пояснить, как это делать. Или показать это на примере... Плииз

П,С, я новичок в d+html

[NumLock]

Код:

uses
  MSHTML,

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
var
  document: OleVariant;
  HTMLDocument: IHTMLDocument3;
  HTMLElementCollection: IHTMLElementCollection;
  i: Integer;
  HTMLElement: IHTMLElement;
  HTMLElementCollection2: IHTMLElementCollection;
  j: Integer;
begin
  Memo1.Lines.LoadFromFile('Project1.htm');
  WebBrowser1.Navigate('about:blank');
  while WebBrowser1.ReadyState<READYSTATE_INTERACTIVE do
    Application.ProcessMessages;
  document:=WebBrowser1.Document;
  document.clear;
  document.open;
  document.write(Memo1.Text);
  document.close;
  HTMLDocument:=WebBrowser1.Document as IHTMLDocument3;
  HTMLElementCollection:=HTMLDocument.getElementsByTagName('ul');
  for i:=0 to HTMLElementCollection.length-1 do
  begin
    HTMLElement:=HTMLElementCollection.item(i, 0) as IHTMLElement;
    Memo2.Lines.Add('--'+HTMLElement.getAttribute('data-property', 0)+'--');
    HTMLElementCollection2:=HTMLElement.children as IHTMLElementCollection;
    for j:=0 to HTMLElementCollection2.length-1 do
      Memo2.Lines.Add((HTMLElementCollection2.item(j, 0) as IHTMLElement).innerText);
  end;
end;

http://data.cod.ru/130989
http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx

[arxlex]

Сообщение от NumLock

Код:

uses
  MSHTML,

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
var
  document: OleVariant;
  HTMLDocument: IHTMLDocument3;
  HTMLElementCollection: IHTMLElementCollection;
  i: Integer;
  HTMLElement: IHTMLElement;
  HTMLElementCollection2: IHTMLElementCollection;
  j: Integer;
begin
  Memo1.Lines.LoadFromFile('Project1.htm');
  WebBrowser1.Navigate('about:blank');
  while WebBrowser1.ReadyState<READYSTATE_INTERACTIVE do
    Application.ProcessMessages;
  document:=WebBrowser1.Document;
  document.clear;
  document.open;
  document.write(Memo1.Text);
  document.close;
  HTMLDocument:=WebBrowser1.Document as IHTMLDocument3;
  HTMLElementCollection:=HTMLDocument.getElementsByTagName('ul');
  for i:=0 to HTMLElementCollection.length-1 do
  begin
    HTMLElement:=HTMLElementCollection.item(i, 0) as IHTMLElement;
    Memo2.Lines.Add('--'+HTMLElement.getAttribute('data-property', 0)+'--');
    HTMLElementCollection2:=HTMLElement.children as IHTMLElementCollection;
    for j:=0 to HTMLElementCollection2.length-1 do
      Memo2.Lines.Add((HTMLElementCollection2.item(j, 0) as IHTMLElement).innerText);
  end;
end;

http://data.cod.ru/130989
http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx

Спасибо тебе огоромное! Ты мне очень помог! Очень полезный сайт=))))