<a href="[Ссылки могут видеть только зарегистрированные и активированные пользователи]" style="">Cattleya</a> отправлено 1 минута назад
<a href="[Ссылки могут видеть только зарегистрированные и активированные пользователи]" style="">Maxim</a> отправлено 1 минута назад
надо спарсить выделенное красным.
так что бы
парсилося первый ник и второй
дать мне код
я благодарность
спасибо
Не совсем достойно объяснил. Исправляюсь.
Я делаю парсер логинов из одного форума, потоки страницы всё получилось.
Осталось лишь спарсить из полученного текста.
В полученном тексте 100-200 штук таких :
<a href="[Ссылки могут видеть только зарегистрированные и активированные пользователи]" style="">Cattleya</a> отправлено 1 минута назад
Мне нужно, что бы поочерёдно спарсило каждый ник.
Ну хотя всё равно в каком виде, главное что бы я получил чистые ники, без мусора.
За помощь обещаю вознагрождение!
Жду ваших сообщений, заранее большое спасибо.
metraz
15.03.2013, 13:08
почитай про регулярные выражения
the34jove
15.03.2013, 14:43
почитай про регулярные выражения
неа, не хочу. можно мне код?
Yukikaze
15.03.2013, 16:52
неа, нельзя. Можешь начинать топать ногами и биться в истерике
SНIFТ
15.03.2013, 18:51
неа, нельзя. Можешь начинать топать ногами и биться в истерике
сасай
Дети !!! вот тебе сколько лет? Yukikaze , купил акаунт теперь выёживаешся ! или я конечно не прав что ты купил его вы упорно его качали хотя у меня есть пару мыслей как но все-же , к вам человек пришёл за помощью а вы так низко его унижаете с такими темпами вы скоро разгоните пользователей из жука вот всё , нужна иметь нормальные отношения к людям , не важно выше он или ниже по достижением , пс мне плевать если дальше будет моя репутация капать в низ! Но это полный бордель нормального четкого ответа от людей почти не увидишь.
mad_cat
15.03.2013, 19:52
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('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',txt)<>0 do
begin
buf:=Gettext(txt,'[Ссылки могут видеть только зарегистрированные и активированные пользователи]','"');
if Memo.Lines.IndexOf(buf)<0 then
Memo.Lines.Add(buf);
end;
{.....}
Yukikaze
15.03.2013, 20:56
SНIFТ, что я должен был ответить человеку которому предложили решение и он его отверг, потребовав код?
ЗЫ если сомневаешься в моей компетентности то можешь глянуть на десяток моих постов в этом разделе.
the34jove
16.03.2013, 18:56
SНIFТ, что я должен был ответить человеку которому предложили решение и он его отверг, потребовав код?
ЗЫ если сомневаешься в моей компетентности то можешь глянуть на десяток моих постов в этом разделе.
ВОТ ИМЕННО! ПРЕДЛОЖИЛИ. я отказался от предложения, потому что пришёл на этот форум за готовым кодом! Я заметил, что именно в этом разделе, у всех "программистов" отношение к новичкам как к говну..
Добавлено через 7 минут
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('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',txt)<>0 do
Memo.Lines.Add(Gettext(txt,'[Ссылки могут видеть только зарегистрированные и активированные пользователи]','"'));
{.....}
пасяб.
The_Cruiser
16.03.2013, 20:34
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;