|
Botva online pars - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
29.11.2011, 21:18
|
#1
|
|
|
|
Сержант
|
Регистрация: 03.04.2011
Сообщений: 128
Популярность: 5379
Сказал(а) спасибо: 137
Поблагодарили 209 раз(а) в 111 сообщениях
|
Botva online pars
|
|
|
29.11.2011, 22:06
|
#2
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Botva online pars
Вот:
Код:
function GetLVL(s:string):string;
begin
result:=Copy(s,Pos('<td class="c2 left">Уровень </td>',s)+40,2);
end;
Использовать так:
Код:
var
s:string;
begin
s:=IdHTTP1.Get('http://botva.ru/'); //сайт указан неверно
Label1.Caption:=GetLVL(s);
HTTP.Free;
end;
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: 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.
|
|
|
29.11.2011, 22:09
|
#3
|
|
|
|
Рыцарь-защитник
|
Регистрация: 14.06.2010
Сообщений: 584
Популярность: 6626
Сказал(а) спасибо: 86
Поблагодарили 847 раз(а) в 266 сообщениях
|
Re: Botva online pars
если там только русский язык, то можно заюзать ф-цию Pars(before,string,end); из интернета (сам ее активно использую)
Pars('<td class="c2 left">Уровень </td>'+#13#10+'<td>',Input,'</td>'+#13#10+'<td colspan="2">');
или же регулярным выраженем, к сожалению их я немного подзабыл, но рекомендую прогу RegexBuddy для составления регулярок.
слишком далеко пасишь имхо. достаточно с слова "Уровень"
|
|
|
29.11.2011, 22:13
|
#4
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Botva online pars
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: 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пасибо:
|
|
29.11.2011, 22:15
|
#5
|
|
|
|
Рыцарь-защитник
|
Регистрация: 14.06.2010
Сообщений: 584
Популярность: 6626
Сказал(а) спасибо: 86
Поблагодарили 847 раз(а) в 266 сообщениях
|
Re: Botva online pars
|
Цитата: |
|
|
|
|
|
|
|
|
|
Слово уровень повторяется в исходном коду два раза, так что как раз
|
|
|
|
|
|
не знал, но регулярка вернее всего, правда она проц сожрет) особенно при из изобилии)))
хотя в твоей ф-ции мне всегда один человек говори "фигня в логике!"
для исключения ошибки лучше по другому немного:
Код:
var
p:integer;
begin
p:=;
result:='Fail';
if p>0 then
result:=Copy(s,Pos('<td class="c2 left">Уровень </td>',s)+40,2);
end;
Последний раз редактировалось Mebius; 29.11.2011 в 22:17.
|
|
|
2 пользователя(ей) сказали cпасибо:
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
[Помогите!] Botva online
|
blad56 |
Вопросы и ответы, обсуждения |
6 |
15.11.2011 15:45 |
[Программа] Pars Helper by Igrandr
|
cunt85 |
Garena |
8 |
12.03.2011 20:40 |
[Программа] Pars Helper 2.0
|
cunt85 |
Garena |
9 |
21.01.2011 16:18 |
botva-online.ru
|
Camikadze |
Свободное обсуждение |
3 |
14.05.2009 07:06 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 07:25.
|
|