[Информация] парс дать код

[the34jove]

привет

есть текст

<a href="http://pikabu.ru/profile/Cattleya" style="">Cattleya</a> отправлено 1 минута назад&nbsp;

<a href="http://pikabu.ru/profile/Maxim" style="">Maxim</a> отправлено 1 минута назад&nbsp;

надо спарсить выделенное красным.
так что бы
парсилося первый ник и второй
дать мне код
я благодарность
спасибо

Не совсем достойно объяснил. Исправляюсь.

Я делаю парсер логинов из одного форума, потоки страницы всё получилось.
Осталось лишь спарсить из полученного текста.
В полученном тексте 100-200 штук таких :

<a href="http://pikabu.ru/profile/Cattleya" style="">Cattleya</a> отправлено 1 минута назад&nbsp;

Мне нужно, что бы поочерёдно спарсило каждый ник.
Ну хотя всё равно в каком виде, главное что бы я получил чистые ники, без мусора.
За помощь обещаю вознагрождение!
Жду ваших сообщений, заранее большое спасибо.

[metraz]

почитай про регулярные выражения

[the34jove]

Цитата: Сообщение от metraz почитай про регулярные выражения

неа, не хочу. можно мне код?

[Yukikaze]

неа, нельзя. Можешь начинать топать ногами и биться в истерике

[SНIFТ]

Цитата: Сообщение от Yukikaze неа, нельзя. Можешь начинать топать ногами и биться в истерике

Цитата: Сообщение от the34jove сасай

Дети !!! вот тебе сколько лет? Yukikaze , купил акаунт теперь выёживаешся ! или я конечно не прав что ты купил его вы упорно его качали хотя у меня есть пару мыслей как но все-же , к вам человек пришёл за помощью а вы так низко его унижаете с такими темпами вы скоро разгоните пользователей из жука вот всё , нужна иметь нормальные отношения к людям , не важно выше он или ниже по достижением , пс мне плевать если дальше будет моя репутация капать в низ! Но это полный бордель нормального четкого ответа от людей почти не увидишь.

[mad_cat]

function GetText(var s: string; s1, s2: string): string;
begin
  result := '';
  if (pos(s1, s) = 0) or (pos(s2, s) = 0) then exit;
  delete(s, 1, pos(s1, s) + length(s1) - 1);
  Result := Copy(s, 1, pos(s2, s) - 1);
end;

{......}
// txt -  полученный текст
//buf:string;
while  pos('http://pikabu.ru/profile',txt)<>0 do
begin
buf:=Gettext(txt,'http://pikabu.ru/profile/','"');
if Memo.Lines.IndexOf(buf)<0 then
Memo.Lines.Add(buf);
end;
{.....}

[Yukikaze]

SНIFТ, что я должен был ответить человеку которому предложили решение и он его отверг, потребовав код?
ЗЫ если сомневаешься в моей компетентности то можешь глянуть на десяток моих постов в этом разделе.

[the34jove]

Цитата: Сообщение от Yukikaze SНIFТ, что я должен был ответить человеку которому предложили решение и он его отверг, потребовав код? ЗЫ если сомневаешься в моей компетентности то можешь глянуть на десяток моих постов в этом разделе.

ВОТ ИМЕННО! ПРЕДЛОЖИЛИ. я отказался от предложения, потому что пришёл на этот форум за готовым кодом! Я заметил, что именно в этом разделе, у всех "программистов" отношение к новичкам как к говну..

Добавлено через 7 минут

Цитата: Сообщение от mad_cat function GetText(var s: string; s1, s2: string): string; begin result := ''; if (pos(s1, s) = 0) or (pos(s2, s) = 0) then exit; delete(s, 1, pos(s1, s) + length(s1) - 1); Result := Copy(s, 1, pos(s2, s) - 1); end; {......} // txt - полученный текст while pos('http://pikabu.ru/profile',txt)<>0 do Memo.Lines.Add(Gettext(txt,'http://pikabu.ru/profile/','"')); {.....}

пасяб.

[The_Cruiser]

function Pars(beg, frm, en: string): string;
var A, b: integer;
begin
  Result := '';
  if (Pos(beg, frm) = 0) or (Pos(en, frm) = 0) then Exit;
  if (beg = '') or (en = '') then Exit;
  A := Pos(beg, frm);
  if A = 0 then Exit
  else A := A + Length(beg);
  frm := Copy(frm, A, Length(frm) - A + 1);
  b := Pos(en, frm);
  if b > 0 then Result := Copy(frm, 1, b - 1);
end;

Идеальный вариант.
Pars('жожа', 'djfsjfaжожажожагоигогиifgj', 'гоги') = 'жожагои'

[VeTaL_UA]

Парниша, да ты офигел в конец, хочешь готового кода - иди лесом. А пока что лесом будет двухнедельный бан. Всегда ваш, VeTaL_UA