Парсинг нужной информации

[Sazary]

Судя по содержимому мемо, там два матча (Аахен-Санкт-Паули и Оденсе-Мидюлленд). Почему тогда на скрине выше так много всего?

В общем, рабочий вариант:

procedure TForm1.Button1Click(Sender: TObject);
var
i,k,a,b:integer;
begin
i := 0;
st:=memo1.Lines.text;
k := 1;

while true do
 begin
 a := posEx('<b id=r>1)',st,k);
 if a=0 then break;
 b := posEx('</b> ',st,a);
 kom1 := copy(st,a+10,b-a-10);  // первая команда
 k := b;
 a := posEx('<b>',st,k);
 b := posEx('</b>',st,a);
 win1 := copy(st,a+3,b-a-3); // первое число
 win1 := Trim(win1);

 k := b+4;
 b := posEx('<b>',st,k);
 inf := copy(st,k,b-k);
 inf := Trim(inf);
 a := pos(' ',inf);
 nich := copy(inf,1,a);
 win2 := copy(inf,a,length(inf));
 win2 := Trim(win2);

 a := posEx('<b id=r>2)',st,k);
 b := posEx('</b>',st,a);
 kom2 := copy(st,a+10,b-a-10);  // вторая команда
 k := b;

 inc(i);
 if i>1 then StringGrid1.RowCount := i+1;
 StringGrid1.Cells[1,i]:=kom1+ ' - '+kom2;
 StringGrid1.Cells[2,i]:=win1;
 StringGrid1.Cells[3,i]:=nich;
 StringGrid1.Cells[4,i]:=win2;
 end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
StringGrid1.ColWidths[1]:=90;
StringGrid1.ColWidths[2]:=40;
StringGrid1.ColWidths[3]:=40;
StringGrid1.ColWidths[4]:=40;
StringGrid1.RowCount := 2;
end;

[Lemo]

Удалить строку, ячейки 1-й колонки привышают 100 символов
Данная процедура удаляет только 1 клик = - 1 ненужная строка, а мне нужно что бы все как то за 1 клик удалилось....

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=1 to Stringgrid1.RowCount-1 do
If length(Stringgrid1.cells[1,i])>100 then Tgr(StringGrid1).DeleteRow(i);
end;

[Sazary]

А вот это что такое?

Tgr(StringGrid1).DeleteRow(i);

Вот так попробуйте:

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
i:=1;
while i<StringGrid1.RowCount do
 begin
 If length(Stringgrid1.cells[1,i])>100 then 
  begin
  Tgr(StringGrid1).DeleteRow(i);
  dec(i);
  end;
 inc(i);
 end;
end;

[Lemo]

Работает...
А как вот брать текст не с мемо а с файла(текстового)
Делал вот так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,StrUtils, Grids, sButton, sEdit, sMemo;

type
Tgr=class(Grids.TCustomGrid)
end;
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  kom1,kom2,win1,win2,nich,inf,st:String;
  f:textfile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,k,a,b:integer;
begin
i := 0;
k := 1;

AssignFile(f,'MyFile.txt');
reset(f);
while not eof(f) do
 begin
 Readln(f,st);
 a := posEx('<b id=r>1)',st,k);
 if a=0 then break;
 b := posEx('</b> ',st,a);
 kom1 := copy(st,a+10,b-a-10);  // первая команда
 k := b;
 a := posEx('<b>',st,k);
 b := posEx('</b>',st,a);
 win1 := copy(st,a+3,b-a-3); // первое число
 win1 := Trim(win1);

 k := b+4;
 b := posEx('<b>',st,k);
 inf := copy(st,k,b-k);
 inf := Trim(inf);
 a := pos(' ',inf);
 nich := copy(inf,1,a);
 win2 := copy(inf,a,length(inf));
 win2 := Trim(win2);

 a := posEx('<b id=r>2)',st,k);
 b := posEx('</b>',st,a);
 kom2 := copy(st,a+10,b-a-10);  // вторая команда
 k := b;

 inc(i);
 if i>1 then StringGrid1.RowCount := i+1;
 StringGrid1.Cells[1,i]:=kom1+ ' - '+kom2;
 StringGrid1.Cells[2,i]:=win1;
 StringGrid1.Cells[3,i]:=nich;
 StringGrid1.Cells[4,i]:=win2;


 end;
  CloseFile(f);

 i:=1;
while i<StringGrid1.RowCount do
 begin
 If length(Stringgrid1.cells[1,i])>100 then
  begin
  Tgr(StringGrid1).DeleteRow(i);
  dec(i);
  end;
 inc(i);
 end;
 
end;


procedure TForm1.FormActivate(Sender: TObject);

begin
StringGrid1.ColWidths[1]:=150;
StringGrid1.ColWidths[2]:=40;
StringGrid1.ColWidths[3]:=40;
StringGrid1.ColWidths[4]:=40;




end;


end.

на сколько понял, я не продвигаюся по строкам файла или хз!

[Sazary]

Сделайте лучше вот так:

var
list : TStringList;
...............
...............
...............
list := TstringList.Create;
list.LoadFromFile('test.txt');
st := list.Text;
list.Free;
...............
...............
..............

[Lemo]

<TBODY class=row1><TR><td>19/08<br>21:45<td class=l>Левски (BGR)<br>Дебрецен (HUN)<td><b >0</b><BR><b >0</b><td><A onClick="return m(this)" href=/ id="r39_130_LIg3r5zUOHSAZxTpgwDD">1.30</a><BR><A onClick="return m(this)" href=/ id="r39_330_BvWI5VobAjG4l2nUzj78">3.30</a><td>&nbsp;<BR>&nbsp;<td><b >2.5</b><td><A onClick="return m(this)" href=/ id="r39_210_m21zWNMctcRA^uT9rlDT">2.10</a><td><A onClick="return m(this)" href=/ id="r39_168_UbfUaSZIoAIW5ffUPb68">1.68</a><td><A onClick="return m(this)" href=/ id="r39_170_FrSX1G.GTNqjJItjbzMF">1.70</a><td><A onClick="return m(this)" href=/ id="r39_345_2fTIEZpVmS19BstKnBMf">3.45</a><td><A onClick="return m(this)" href=/ id="r39_480_P.6AnRK^BsW0NXtrjAMV">4.80</a><td><A onClick="return m(this)" href=/ id="r39_114_5GuWBrQHn2QyNoU9jyET">1.14</a><td><A onClick="return m(this)" href=/ id="r39_127_8w4yOXIevQMVzKhClBx.">1.27</a><td><A onClick="return m(this)" href=/ id="r39_205_L930rENb^LFDXMdkhDuN">2.05</a><td><b >1.5</b><BR><b >1.0</b><td><A onClick="return m(this)" href=/ id="r39_190_DsrR3nFaa2Aldw61Yxfc">1.90</a><BR><A onClick="return m(this)" href=/ id="r39_266_OpGh8U9gUbF4l2nUzj78">2.66</a><td><A onClick="return m(this)" href=/ id="r39_180_AJbG66R7nkI7qlVp_uFD">1.80</a><BR><A onClick="return m(this)" href=/ id="r39_142_uAh3shC16Gz5wa7QAjnd">1.42</a></TR>

Красным отмечено то, что я уже без проблем запарсил!
Сиреневым - возникли проблемы, так как ети хеши не постоянны, низнаю на что опереться =((
Жду совета

[Sazary]

Для наглядности немного по-другому запишем эту строку:

<TBODY class=row1><TR><td>19/08<br>21:45<td class=l>Левски (BGR)<br>Дебрецен (HUN)<td><b >0</b><BR><b >0</b><td>
<A onClick="return m(this)" href=/ id="r39_130_LIg3r5zUOHSAZxTpgwDD">1.30</a><BR>
<A onClick="return m(this)" href=/ id="r39_330_BvWI5VobAjG4l2nUzj78">3.30</a><td>&nbsp;<BR>&nbsp;<td><b >2.5</b><td>
<A onClick="return m(this)" href=/ id="r39_210_m21zWNMctcRA^uT9rlDT">2.10</a><td>
<A onClick="return m(this)" href=/ id="r39_168_UbfUaSZIoAIW5ffUPb68">1.68</a><td>
<A onClick="return m(this)" href=/ id="r39_170_FrSX1G.GTNqjJItjbzMF">1.70</a><td>
<A onClick="return m(this)" href=/ id="r39_345_2fTIEZpVmS19BstKnBMf">3.45</a><td>
<A onClick="return m(this)" href=/ id="r39_480_P.6AnRK^BsW0NXtrjAMV">4.80</a><td>
<A onClick="return m(this)" href=/ id="r39_114_5GuWBrQHn2QyNoU9jyET">1.14</a><td>
<A onClick="return m(this)" href=/ id="r39_127_8w4yOXIevQMVzKhClBx.">1.27</a><td>
<A onClick="return m(this)" href=/ id="r39_205_L930rENb^LFDXMdkhDuN">2.05</a><td><b >1.5</b><BR><b >1.0</b><td>
<A onClick="return m(this)" href=/ id="r39_190_DsrR3nFaa2Aldw61Yxfc">1.90</a><BR>
<A onClick="return m(this)" href=/ id="r39_266_OpGh8U9gUbF4l2nUzj78">2.66</a><td>
<A onClick="return m(this)" href=/ id="r39_180_AJbG66R7nkI7qlVp_uFD">1.80</a><BR>
<A onClick="return m(this)" href=/ id="r39_142_uAh3shC16Gz5wa7QAjnd">1.42</a></TR>

как видно, у строк очень много общего и хеши - единственное, что их отличает.

Заводим счетчик.
1) Ищем первое:

<A onClick="return m(this)"

Увеличиваем счетчик.
2) Ищем следующее

<A onClick="return m(this)"

снова увеличиваем.

3) Если счетчик = 5, то мы дошли до нужной строки (где 1.70).
Начиная с этой позиции ищем символы ">. Эту позицию запишем, например, в Позиция1.
Теперь начиная с (Позиция1+2) ищем символы </a>. Э
то Позиция2.
Берем все, что между (Позиция1+2) и Позиция2 - это нужное нам число 1.70.

Теперь возвращаемся к шагу 2) и снова ищем

<A onClick="return m(this)"

Далее повторяем шаг 3 - получаем значение 3.45.

Снова шаг 2) -> шаг 3) -> получили значение 4.80.

Вот и все.

[Lemo]

Завтра попробую => отпишуся!
ЗЫ:спс.