26.12.2006, 21:43
|
|
Участник форума
Регистрация: 16.12.2005
Сообщений: 146
С нами:
10736573
Репутация:
114
|
|
Вот.должно помочь http://www.mytempdir.com/1135328
Спасибо. Но плиз, объясни, как сделать, чтобы он в одной строке искал несколько раз?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
s : string;
begin
For i := 0 to memo1.Lines.Count - 1 do begin
s := memo1.Lines.Strings[i];
if pos('<td class="name"><a href',s) <> 0 then begin
s := copy(s,pos('<td class="name"><a href=',s)+26,length(s));
s := copy(s,0,pos('">',s)-1);
memo2.Lines.Add(s);
end;
end;
end;
Потому что он находит первую ссылки и выводит, а мне надо несколько из каждой строки. (((
|
|
|