Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Парсинг строк 
:(
    Опции темы
Anakin
  Дата 18.10.2011, 14:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



Добрый день.
Начал осваивать парсинг html
и возник вопрос.
Значит делаю авторизацию на сайте
Получаю данные запросом Get

теперь нужно данные пропарсить, нашел код на форуме но что то я не понимаю его.
Если можно кто то распишите действие кода что бы мне в дальнейшем было понятно.
Я понимаю вопрос возможно туповат но уж какой есть.
Заранее Огромное спасибо.

Код

St:=frmMain.HTTP.Get('http://www.tutsait.ru/browse.php');
Delete(St,1,pos('<font color=#770000>',St)+length('<font color=#770000>')-1);
Delete(St,pos('</font>',St),length(St));


Вот это понятно:
Код

St:=frmMain.HTTP.Get('http://www.tutsait.ru/browse.php');

Берём данные с сайта

Но вот не могу понять дальше 2 строки которые делаю поиск в полученом результате и присваивают его переменной St

Если можно распишите пошагаво.
PM MAIL   Вверх
Keeper89
Дата 18.10.2011, 15:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



Описать что делает функция удаления в строке?
Если что происходит по смыслу, то код бредовый.

Добавлено через 1 минуту и 47 секунд
А что вообще надо сделать? 


--------------------
PM MAIL WWW   Вверх
Anakin
Дата 18.10.2011, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



Я захожу на Торрент сайт и надо забрать от туда инфу о данных пользователя типа: Рацио,Отдано,Скачано и новые поступления торрентов.
Это программа которая отслеживает новые поступление на торренте и оповещает о том что есть новые поступления.
Так вот я сделал это путём копирования и подставления своих данных, но я не понял как код работает,а я проста хочу понять как он работает.

Код

Procedure TfrmLogin.Ratio;
var
St:WideString;
begin
try
St:=frmMain.HTTP.Get('http://www.torrentsmd.eu/');
Delete(St,1,pos('<font color=#770000>',St)+length('<font color=#770000>')-1);
Delete(St,pos('</font>',St),length(St));
//ShowMessage(St);
frmMain.lbl_ratio.Caption:=(St);
except
on e:Exception do
end;


Тоесть мне надо расшифровать вот эти две строки:
Код

Delete(St,1,pos('<font color=#770000>',St)+length('<font color=#770000>')-1);
Delete(St,pos('</font>',St),length(St));

PM MAIL   Вверх
MacTep
Дата 24.10.2011, 00:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4



Во-первых, зря тема находится в разделе "Сети". Тут ничего такого по сетям абсолютно.
Во-вторых, что делают функции delete и pos можно узнать погуглив немного (например, вот тут почитать http://www.delphibasics.ru/Pos.php, http://www.delphibasics.ru/Delete.php).
В-третьих, видимо у автора чужой код и он пытается в нем разобраться. А по незнанию, очень слабо это получается smile) Я так понял, что в строке обрезаются теги форматирования, чтобы осталась только сама смысловая часть текста, а тэгов не было бы.


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Данкинг
Дата 24.10.2011, 00:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Цитата(MacTep @  24.10.2011,  01:07 Найти цитируемый пост)
Я так понял, что в строке обрезаются теги форматирования

Если так, то не проще StringReplace использовать? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
MetalFan
Дата 26.10.2011, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128



Цитата(Данкинг @  24.10.2011,  00:36 Найти цитируемый пост)
то не проще StringReplace использовать?

Или регулярные выражения)


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0502 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.