Парсинг

Мне в голову пришла мысль спарсить анекдоты с сайта. Что бы вытащить несколько анекдотов будем работать с циклом, и удалять старый анекдот парсить новый и до тех пор, пока не закончится строка.

Заходим на страницу, смотрим между какими тегами будем парсить. 

1. <div class="text">
2. <table class="votingbox" border="0">

 Так мы нашли теги от куда мы будем брать наш текст, теперь напишем сам код.
Создадим функцию, назовем ParsingAnegdot объявим переменную GetTex в нее будет входит сам html код странице, результат будет типа String.

function TForm1.ParsingAnegdot(GetText: String): String;
begin

end;

Теперь нам осталось описать функцию чем мы сейчас и займемся.

Задачи и их решения.

В этом посте я буду кидать различные задачки, не буду плодить много постов так что буду просто редактировать и добавлять..

Pascal. Множества

Каждый из объектов множества имеет  какую то взаимосвязь. Выражения указываются в квадратные скобки, например ['a'..'z'] [1,3,4,5]. Множество на Pascal объявляется так set of - множество из. 

Зависание get запроса

Как убрать зависание get запроса?
В некоторых случаях компонент IdAntiFreeze убирает зависание get запроса, компонент находится на вкладке Indy Misc. Нужно просто добавить компонент.

Парсинг HTML

Как спарсить текст со страницы? Парсить будем стандартными функциями copy,pos. Сделаем get запрос, что бы получить html код страницы и начнем "парсить".