|
парс дать код - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
15.03.2013, 12:18
|
#1
|
|
|
|
Разведчик
|
Регистрация: 14.03.2013
Сообщений: 0
Популярность: -18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
парс дать код
привет
есть текст
<a href="http://pikabu.ru/profile/Cattleya" style="">Cattleya</a> отправлено 1 минута назад
<a href="http://pikabu.ru/profile/Maxim" style="">Maxim</a> отправлено 1 минута назад
надо спарсить выделенное красным.
так что бы
парсилося первый ник и второй
дать мне код
я благодарность
спасибо
Не совсем достойно объяснил. Исправляюсь.
Я делаю парсер логинов из одного форума, потоки страницы всё получилось.
Осталось лишь спарсить из полученного текста.
В полученном тексте 100-200 штук таких :
<a href="http://pikabu.ru/profile/Cattleya" style="">Cattleya</a> отправлено 1 минута назад
Мне нужно, что бы поочерёдно спарсило каждый ник.
Ну хотя всё равно в каком виде, главное что бы я получил чистые ники, без мусора.
За помощь обещаю вознагрождение!
Жду ваших сообщений, заранее большое спасибо.
Последний раз редактировалось the34jove; 15.03.2013 в 12:31.
|
|
|
15.03.2013, 13:08
|
#2
|
|
|
|
Старший сержант
|
Регистрация: 25.12.2011
Сообщений: 191
Популярность: 5259
Сказал(а) спасибо: 31
Поблагодарили 235 раз(а) в 135 сообщениях
|
Re: парс дать код
почитай про регулярные выражения
|
|
|
15.03.2013, 14:43
|
#3
|
|
|
|
Разведчик
|
Регистрация: 14.03.2013
Сообщений: 0
Популярность: -18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: парс дать код
|
|
|
15.03.2013, 16:52
|
#4
|
|
|
|
Сержант
|
Регистрация: 01.10.2011
Сообщений: 128
Популярность: 5723
Сказал(а) спасибо: 25
Поблагодарили 174 раз(а) в 105 сообщениях
|
Re: парс дать код
неа, нельзя. Можешь начинать топать ногами и биться в истерике
________________
Talk is cheap. Show me the code
— Linus Torvalds
|
|
|
Пользователь сказал cпасибо:
|
|
15.03.2013, 18:51
|
#5
|
|
|
|
Разведчик
|
Регистрация: 04.01.2013
Сообщений: 49
Популярность: 212
Сказал(а) спасибо: 22
Поблагодарили 12 раз(а) в 10 сообщениях
|
Re: парс дать код
Последний раз редактировалось SНIFТ; 15.03.2013 в 18:53.
|
|
|
15.03.2013, 19:52
|
#6
|
|
|
|
Разведчик
|
Регистрация: 22.11.2012
Сообщений: 2
Популярность: 464
Сказал(а) спасибо: 0
Поблагодарили 22 раз(а) в 13 сообщениях
|
Re: парс дать код
Код:
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;
{.....}
Последний раз редактировалось mad_cat; 16.03.2013 в 19:18.
|
|
|
15.03.2013, 20:56
|
#7
|
|
|
|
Сержант
|
Регистрация: 01.10.2011
Сообщений: 128
Популярность: 5723
Сказал(а) спасибо: 25
Поблагодарили 174 раз(а) в 105 сообщениях
|
Re: парс дать код
SНIFТ, что я должен был ответить человеку которому предложили решение и он его отверг, потребовав код?
ЗЫ если сомневаешься в моей компетентности то можешь глянуть на десяток моих постов в этом разделе.
________________
Talk is cheap. Show me the code
— Linus Torvalds
|
|
|
16.03.2013, 18:56
|
#8
|
|
|
|
Разведчик
|
Регистрация: 14.03.2013
Сообщений: 0
Популярность: -18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: парс дать код
|
Цитата: |
|
|
|
|
|
|
|
|
|
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('http://pikabu.ru/profile',txt)<>0 do
Memo.Lines.Add(Gettext(txt,'http://pikabu.ru/profile/','"'));
{.....}
|
|
|
|
|
|
пасяб.
Последний раз редактировалось the34jove; 16.03.2013 в 19:03.
Причина: Добавлено сообщение
|
|
|
16.03.2013, 20:34
|
#9
|
|
|
|
Старший сержант
|
Регистрация: 26.09.2010
Сообщений: 225
Популярность: 4868
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 220
Поблагодарили 1,080 раз(а) в 208 сообщениях
|
Re: парс дать код
Код:
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', 'гоги') = 'жожагои'
|
|
|
16.03.2013, 20:59
|
#10
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: парс дать код
Парниша, да ты офигел в конец, хочешь готового кода - иди лесом. А пока что лесом будет двухнедельный бан. Всегда ваш, VeTaL_UA
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
Пользователь сказал cпасибо:
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
[Куплю] Фул,на ру 5 марс.
|
диная |
Dark Orbit |
3 |
20.01.2013 09:31 |
[Продам] Ру2 Марс
|
4e6ypekTm |
Dark Orbit |
0 |
25.11.2012 17:19 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 18:03.
|
|