територия мемо и хтмл.а живущего в нём

[IvaniuS]

извините меня пожалуйста я поиском ползоваться умею нашёл но так и ничего не понял скоко перечитывал сам поражаюсь отдыхать уже пора наверное .Вот что мне надо я достаю хтмл и записую в мемо потом убираю низ и верх остаёться таблица (но на хтмле) что надо написать чтобы найти текст между "<b>"81.45 и "</b>" скопировать его и вставить к примеру в бд (вставить я сумею)потом продолжить ещё такую строчку искать и тоже копирывать и тоже в ставить в бд и т.д. обьясните подробно или дайте код (лучше ко и обьяснение))))

[IvaniuS]

где-то нашёл исходник там ищется от пробела до @ и до проблела а мне надо от <b> до </b> и тто что внутри скопировать

[VVM]

Вот как вариант (но тут оба тега должны быть в одной строке):

procedure Scan(Since, Till: string); //Since - первый тег, Till - второй;
var
  I, s, e: integer;
begin
  s := 0;
  e := 0;
  for I := 0 to Memo1.Lines.Count - 1 do
  begin
    s := pos(Since, Memo1.Lines.Strings[i]);
    e := pos(Till, Memo1.Lines.Strings[i]);
    if (s <> 0) and (e <> 0) then
    begin
      ListBox1.Items.Add(copy(Memo1.Lines.Strings[i],
        s + length(Since), e - s - length(Till) - 1));
      s := 0;
      e := 0;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Scan('<b>', '</b>');
end;

[AlexRastr]

Можно сделать так:

var
i, j: integer;
tag_table: OleVariant;
begin
tag_table := WebBrowser1.OleObject.Document.all. tags('b).item(0);

for i := 0 to (tag_table.Rows.Length - 1) do
begin
for j := 0 to (tag_table.Rows.Item(i).Cells.Lengt h - 1) do
begin
Memo1.Lines.Add(tag_table.Rows.Item (i).Cells.Item(j).InnerText);
end;
end;

[IvaniuS]

спасибо как проверю забам вопросы я понемаю если у меня несколько мемо то можно поставить цикл и задать условие как
if (s <> 0) and (e <> 0) and (I < 7)then begin
i:=i+1;
if i=1 then begin
ListBox1.Items.Add(copy(Memo1.Lines .Strings[i],
s + length(Since), e - s - length(Till) - 1));
end;
if i=2 then begin
ListBox2.Items.Add(copy(Memo1.Lines .Strings[i],
s + length(Since), e - s - length(Till) - 1));
end;
s := 0;
e := 0;
end else
i:=i-6;
и т.д.
терь ещё 1 вопрос как все что в листбоксе, все столбци скопировать или експортировать в фаил??? (лучше скопировать пусть даже в буфер просто потом в екслеь вставлять я то потом додумаю главное как все скопить или по 1???)

[IvaniuS]

VVM а можно отвязать её от регистра а то у меня иногда вот так </B> или авто замену придумать?

[IvaniuS]

да и и у мня числа некоторые между б и \б с точками то что после точки он не видит(

[Квэнди]

Проще поищите по ключевым словам парсеры html в гугле

[VVM]

я понемаю если у меня несколько мемо то можно поставить цикл и задать условие как ...

Я бы просто прогнал эту процедуру по всем МЕМО отдельно =)

терь ещё 1 вопрос как все что в листбоксе, все столбци скопировать или експортировать в фаил??? (лучше скопировать пусть даже в буфер просто потом в екслеь вставлять я то потом додумаю главное как все скопить или по 1???)

ListBox1.Items.SaveToFile('C:\List.txt'); // вроде так.

VVM а можно отвязать её от регистра а то у меня иногда вот так </B> или авто замену придумать?

procedure Scan1(Since, altSince, Till, altTill: string);
var
  I, s, e: integer;
begin
  s := 0;
  e := 0;
  for I := 0 to Memo1.Lines.Count - 1 do
  begin
    s := pos(Since, Memo1.Lines.Strings[i]);
    if s = 0 then
      s := pos(altSince, Memo1.Lines.Strings[i]);      
    e := pos(Till, Memo1.Lines.Strings[i]);
    if e = 0 then
      e := pos(altTill, Memo1.Lines.Strings[i]);
    if (s <> 0) and (e <> 0) then
    begin
      ListBox1.Items.Add(copy(Memo1.Lines.Strings[i],
        s + length(Since), e - s - length(Till) - 1));
      s := 0;
      e := 0;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Scan1('<b>', '<B>', '</b>', '</B>');
end;

да и и у мня числа некоторые между б и \б с точками то что после точки он не видит(

Процедура видит вставку между тегами как подстроку. Какой там символ - не имеет значения.

[IvaniuS]

слушай спасибо разобрался в коде почти, всё норм уже немного переделал, короче так: у меня всеравно после последней точки между б и \б нету чисел та и букав ну например : это в коде "<b>76.85</B>" а это он выдаёт и в мемо и в лист боксе : "76." я работаю с числами и точность нужна может всётаки есть решение я уже пробую щас от б до точки и до \б вот так ну посмотрим отпишусь потом