Вывод содержания из HTML

arxlex · #1 04.11.2011, 09:15

Содержание 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 · #2 04.11.2011, 09:28

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

Код:

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 · #3 04.11.2011, 10:59

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

arxlex · #4 04.11.2011, 20:15

Цитата:

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

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

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

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

NumLock · #5 06.11.2011, 08:36

Код:

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 · #6 06.11.2011, 09:48

Цитата:

Сообщение от 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 · #7 06.11.2011, 13:37

еще, один вопросик. как вытащить значение из аттрибута data-property? например как сделать так чтобы каждые значения атрибутов в коде html нашли свое место в отдельный combobox-ах? например цвет(combobox1), размер(combobox2) и тд.

NumLock · #8 06.11.2011, 14:23

Код:

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

procedure TForm1.FormCreate(Sender: TObject);
var
  document: OleVariant;
  HTMLDocument: IHTMLDocument3;
  HTMLElementCollection: IHTMLElementCollection;
  i: Integer;
  HTMLElement: IHTMLElement;
  HTMLElementCollection2: IHTMLElementCollection;
  j: Integer;
  AComboBox: TComboBox;
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)+'--');
    if HTMLElement.getAttribute('data-property', 0)='Цвет' then AComboBox:=ComboBox1
    else if HTMLElement.getAttribute('data-property', 0)='Размер' then AComboBox:=ComboBox2
    else AComboBox:=nil;
    HTMLElementCollection2:=HTMLElement.children as IHTMLElementCollection;
    for j:=0 to HTMLElementCollection2.length-1 do
    begin
      if AComboBox<>nil then AComboBox.Items.Add((HTMLElementCollection2.item(j, 0) as IHTMLElement).innerText);
      Memo2.Lines.Add((HTMLElementCollection2.item(j, 0) as IHTMLElement).innerText);
    end;
  end;
end;

arxlex · #9 07.11.2011, 06:48

В ходе процесса я заметил что значения 'data-property' меняется, но не меняется сам класс:

Код:

<ul data-property="Цвет" class="tb-clearfix J_TSaleProp tb-img  ">

Я уже вам надоел наверное, но из ваших примеров я многое узнал. Небольшая просьба, можно пример как получить и проверить значение аттрибута class.

Я попробывал сделать так, но не получилось...

Код:

if HTMLElement.getAttribute('class', 0)='tb-clearfix J_TSaleProp tb-img  ' then AComboBox:=ComboBox1

Pyro · #10 07.11.2011, 12:54

есть более понятная обёртка над этим ole - Watin, но она .net, и документацию там читать/смотреть всеравно придётся

arxlex · #11 07.11.2011, 15:12

Цитата:

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

есть более понятная обёртка над этим ole - Watin, но она .net, и документацию там читать/смотреть всеравно придётся

а без .net нет никаких вариантов? например getElementByClassName?

arxlex · #12 08.11.2011, 09:42

Цитата:

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

а без .net нет никаких вариантов? например getElementByClassName?

Все я разобрался сам

Нужно было просто поменять "class" на "className". NumLock спасибо за ссылки

Цитата:

...HTMLElement.getAttribute('className', 0)='tb-clearfix J_TSaleProp tb-img '...

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	RSS лента	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Новости сайта Новости форума	Ссылки и Баннеры Donate О сайте Реклама Контакты