работа с данными из таблицы HTML

[Kachirus]

Доброе время суток.

Пред история:
Работаю в сфере телекоммуникаций. Приходится сталкиваться с обработкой данных которые собирают программы в автоматическом режиме. Данные выкладываются на сайт в форме таблицы HTML. Объем информации большой (более 500 строк и 20 столбцов). Ну очень необходима программка которая все будет делать в автоматическом режиме.

Ну а теперь собственно вопрос:
Перелапатил интернет и нигде не нашел исходного кода который бы выдергивал данные из таблицы HTML и работал бы с ними....

Я от Вас его не требую, подскажите в каком направлении двигаться.....

Спасибо...

[Пепел Феникса]

парсинг, примеров масса.
так же если там xhtml, то можно как xml разобрать.

[Arsenx777]

А именно? че вы хатите вытаскивать с сайтов? html что ли? или таблицы?

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

Доброе время суток.
Ну а теперь собственно вопрос:
Перелапатил интернет и нигде не нашел исходного кода который бы выдергивал данные из таблицы HTML и работал бы с ними....

Вопрос какойто непонятный...

[dacorp]

d.acorp@mail.ru Готов помочь.

[Kachirus]

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

А именно? че вы хатите вытаскивать с сайтов? html что ли? или таблицы?



Вопрос какойто непонятный...

Почему не понятный... Вроде все доходчиво объяснил... "код который бы выдергивал данные из таблицы HTML и работал бы с ними...." По сути нужно таблицу с сайта загрузить в базу данных....

Вот страничка с таблицей....http://depositfiles.com/files/81zmmwvqk

[Kachirus]

исходник нашел, под себя переделал (пока без базы)
Вот проблемка другая появилась..... цифры которые подсвечены цветом в таблице берутся вместе с тегом цвета....
Как это дело исправить?
Вод код.....

procedure TForm1.Button3Click(Sender: TObject);
var cn,cnrows,cncols, i,j, k:integer; vTags:OleVariant; s:string;
       Node,RowNode, ColNode:TTreeNode; vCols:OleVariant;
begin
      tvTables.Items.Clear;
      vTags:=WebBrowser1.OleObject.Document.getElementsByTagName('Table');
      cn:=vTags.length;

      for i:=0 to cn-1 do
      begin
         s:='';
         if vTags.Item(i).id<>'' then s:=s+' id='+vTags.Item(i).id;
         Node:=tvTables.Items.Add(nil,'Table '+IntToStr(i));
         cnrows:=vTags.Item(i).rows.length;
         for j:=0 to cnrows-1 do
         begin
             RowNode:=tvTables.Items.AddChild(Node,'ñòðîêà '+IntToStr(j));
             vCols:=vTags.Item(i).rows.item(j).getElementsByTagName('TD');
             cncols:=vCols.length;
             for k:=0 to cncols-1 do
             begin
                  ColNode:=tvTables.Items.AddChild(RowNode,'ñòîëáåö '+IntToStr(k));
                  s:=vCols.Item(k).innerHTML;
                  tvTables.Items.AddChild(ColNode,s);
             end;
          end;
       end;
end;

Сидел, разбирался... Выявил закономерность... данный тег <FONT color=#808080>0</FONT> встречается на нулевых значениях...
Попробовал исправить программку, но ничего не выходит.. Что я не так делаю????

procedure TForm1.Button3Click(Sender: TObject);
var cn,cnrows,cncols, i,j, k:integer; vTags:OleVariant; s:String;
       Node,RowNode, ColNode:TTreeNode; vCols:OleVariant;
begin
      tvTables.Items.Clear;
      vTags:=WebBrowser1.OleObject.Document.getElementsByTagName('Table');
      cn:=vTags.length;

     for i:=0 to cn-1 do
      begin
         s:='';
         if vTags.Item(i).id<>'' then s:=s+' id='+vTags.Item(i).id;
         Node:=tvTables.Items.Add(nil,'Table '+IntToStr(i));
         cnrows:=vTags.Item(i).rows.length;
         for j:=0 to cnrows-1 do
         begin
             RowNode:=tvTables.Items.AddChild(Node,'Строка '+IntToStr(j));
             vCols:=vTags.Item(i).rows.item(j).getElementsByTagName('TD');
             cncols:=vCols.length;
             for k:=0 to cncols-1 do
             begin
                  ColNode:=tvTables.Items.AddChild(RowNode,'Столбец '+IntToStr(k));
                  if vCols.Item(k).innerHTML='<FONT color=#808080>0</FONT>'
                  then
                  begin
                  s:='0';
                  tvTables.Items.AddChild(ColNode,s);
                  end
                  else
s:=vCols.Item(k).innerHTML                  
tvTables.Items.AddChild(ColNode,s);
                  end;
          end;
       end;
end;

[dacorp]

procedure TForm1.Button3Click(Sender: TObject);
var cn,cnrows,cncols, i,j, k:integer; vTags:OleVariant; s:String;
       Node,RowNode, ColNode:TTreeNode; vCols:OleVariant;
begin
      tvTables.Items.Clear;
      vTags:=WebBrowser1.OleObject.Document.getElementsByTagName('Table');
      cn:=vTags.length;

     for i:=0 to cn-1 do
      begin
         s:='';
         if vTags.Item(i).id<>'' then s:=s+' id='+vTags.Item(i).id;
         Node:=tvTables.Items.Add(nil,'Table '+IntToStr(i));
         cnrows:=vTags.Item(i).rows.length;
         for j:=0 to cnrows-1 do
         begin
             RowNode:=tvTables.Items.AddChild(Node,'Строка '+IntToStr(j));
             vCols:=vTags.Item(i).rows.item(j).getElementsByTagName('TD');
             cncols:=vCols.length;
             for k:=0 to cncols-1 do
             begin
                  ColNode:=tvTables.Items.AddChild(RowNode,'Столбец '+IntToStr(k));
                  if vCols.Item(k).innerHTML='<FONT color=#808080>0</FONT>'
                  then s:='0' else s:=vCols.Item(k).innerHTML;                  
                  tvTables.Items.AddChild(ColNode,s);
             end;
          end;
       end;
end;

[Kachirus]

Тема приостановлена, с парсером разобрался...)))

[Kachirus]

доброго времени суток... После продолжительного отсутствия вновь занялся своей программкой....
пока проверял, настраивал, записывал в БД с локальной папки (сохраненная страница) все гуд... Все работает....
Но как только припер на работу исходник, прописал путь к серверу - все начало накрываться медным тазом.
Работать программка та работает, но вот вместе с данными начинает в БД заливать тег </FONT>. Подскажите как исправить.....

procedure TForm1.Button3Click(Sender: TObject);
var cn,cnrows,cncols,  a, i, j, k :integer; vTags:OleVariant;  s:String;
       Node,RowNode, ColNode:TTreeNode;  vCols:OleVariant;
begin
      tvTables.Items.Clear;
      vTags:=WebBrowser1.OleObject.Document.getElementsByTagName('Table');
      cn:=vTags.length;

      //нужно перебрать все строки и столбцы таблицы
      for i:=0 to cn-1 do
      begin
         s:='';
         if vTags.Item(i).id<>'' then s:=s+' id='+vTags.Item(i).id;
         cnrows:=vTags.Item(i).rows.length;
         for j:=1 to cnrows-1 do
         begin
             Table1.Append;
             Table1.FieldByName('Data').AsDateTime:=DateTimePicker3.Date;
             RowNode:=tvTables.Items.AddChild(Node,'строка '+IntToStr(j));
             vCols:=vTags.Item(i).rows.item(j).getElementsByTagName('TD');
             cncols:=vCols.length;
             for k:=1 to cncols-1 do
             begin
                  ColNode:=tvTables.Items.AddChild(RowNode,'столбец '+IntToStr(k));
                  if vCols.Item(k).innerHTML='<FONT color=#808080>0</FONT>'
                  then s:='0'
                  else s:=vCols.Item(k).innerHTML;
                  tvTables.Items.AddChild(ColNode,s);
                  if k<21 then Table1.Fields[k].Value:=s;
             end;
          end;
        end;

[Kachirus]

Посидел, порылся нашел что-то но не совсем корректно работает....
Раньше без удаления получал результат например такой: 12345</FONT>
После применения удаления результат такой: 12345>
Подскажите как избавиться от скобки в конце????

procedure TForm1.Button3Click(Sender: TObject);
var cn,cnrows,cncols,  a, i, j, k :integer; vTags:OleVariant;  str, str1, s:String;
       Node,RowNode, ColNode:TTreeNode;  vCols:OleVariant;
begin
      tvTables.Items.Clear;
      vTags:=WebBrowser1.OleObject.Document.getElementsByTagName('Table');
      cn:=vTags.length;

      for i:=0 to cn-1 do
      begin
         s:='';
         if vTags.Item(i).id<>'' then s:=s+' id='+vTags.Item(i).id;
         cnrows:=vTags.Item(i).rows.length;
         for j:=1 to cnrows-1 do
         begin
             Table1.Append;
             Table1.FieldByName('Data').AsDateTime:=DateTimePicker3.Date;
             RowNode:=tvTables.Items.AddChild(Node,'ñòðîêà '+IntToStr(j));
             vCols:=vTags.Item(i).rows.item(j).getElementsByTagName('TD');
             cncols:=vCols.length;
             for k:=1 to cncols-1 do
             begin
                  ColNode:=tvTables.Items.AddChild(RowNode,'ñòîëáåö '+IntToStr(k));
                  if vCols.Item(k).innerHTML='<FONT color=#808080>0</FONT>'
                  then s:='0'
                  else s:=vCols.Item(k).innerHTML;
                  str1:=s;
                  if pos('>',str1)<>0 then
                    begin
                    Delete(str1, pos('<',str1),Length(str1)-pos('<',str1));
                    end;
                    s:=str1;
                  tvTables.Items.AddChild(ColNode,s);
                  if k<21 then Table1.Fields[k].Value:=s;
             end;
          end;
       end;
end;