Спасибо. Всё, разобрался.
| Код |
t:=0;
BlockStart:=Pos('class="table1"',LowerCase(s));
if BlockStart > 0 then
begin
BlockEnd:=PosEx('</tr>',LowerCase(s),BlockStart);
for i:=0 to 40 do begin
inc(t);
BlockStart:=PosEx('<td>',LowerCase(s),BlockEnd);
BlockEnd:=PosEx('</td>',LowerCase(s),BlockStart);
if t=2 then
begin
today:=copy(s,BlockStart+length('<td>'),BlockEnd-BlockStart-length('<td>'));
end;
if t=6 then
begin
uniq:=copy(s,BlockStart+length('<td>'),BlockEnd-BlockStart-length('<td>'));
label3.Caption:=today+' (uniq: '+uniq+')';
end;
///////////////////////////////////////////////////////////////////////////////
if t=10 then
begin
today:=copy(s,BlockStart+length('<td>'),BlockEnd-BlockStart-length('<td>'));
end;
if t=14 then
begin
uniq:=copy(s,BlockStart+length('<td>'),BlockEnd-BlockStart-length('<td>'));
label6.Caption:=today+' (uniq: '+uniq+')';
end;
///////////////////////////////////////////////////////////////////////////////
if t=26 then
begin
today:=copy(s,BlockStart+length('<td>'),BlockEnd-BlockStart-length('<td>'));
end;
if t=30 then
begin
uniq:=copy(s,BlockStart+length('<td>'),BlockEnd-BlockStart-length('<td>'));
label9.Caption:=today+' (uniq: '+uniq+')';
end;
///////////////////////////////////////////////////////////////////////////////
if t=34 then
begin
today:=copy(s,BlockStart+length('<td>'),BlockEnd-BlockStart-length('<td>'));
end;
if t=38 then
begin
uniq:=copy(s,BlockStart+length('<td>'),BlockEnd-BlockStart-length('<td>'));
label10.Caption:=today+' (uniq: '+uniq+')';
end;
///////////////////////////////////////////////////////////////////////////////
end;
|
|