Урок 2 : Первый парсинг текста | Delphi | by waTS

Всем привет , с вами waTS и сегодня мы научимся парсить какой либо текст)
Что нам нужно?

Кидаем на форму :
MEmo1
Button1
Приступим к коду

Спойлер: КОД

var
Http:THTTPSend;
Html:TstringList;
Parsing:string;
begin
Http:=THTTPSend.Create; // Создаем переменную Http - с помощью его мы будем отправлять запросы
Html:=TStringList.Create; // Создаем переменную Html в ней будет храниться код HTML страници
if Http.HTTPMethod('GET','http://www.yandex.ru/') then begin // Условие Если Запрос пройден то :
html.LoadFromStream(http.Document); // Прогружаем Html код в переменную Html :D
html.Text:=utf8toansi(html.Text); // Перекодировка в UFT8
Parsing:=pars('link b-head-tabs__tab-link" id="tab-tv">',Html.Text,'</a></div>');// Парсинг
smemo1.Lines.Add(Parsing); // Вывод Парсенного ТЕкста
end else begin // Иначе выводим сообщение
ShowMessage('Ошибка');
end;

end;

Спойлер: Функция

function Pars(T_, ForS, _T: string): string;
var a, b: integer;
begin
Result:='';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then Result:=Copy(ForS, 1, b-1);
end;

Bloody Company 2014​

 

вангую, странник.

 

Можно еще использовать регулярные выражение,тоже не хуже этой функции

 

Посвятите незнающего.. - Для чего это нужно?:)

 

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

 

След урок будет по регулярным выражениям)

 

Спасибо большое за уроки.
Хоть кто-то нормально объясняет

 

Как по мне с "html.Text:=utf8toansi(html.Text); // Перекодировка в UFT8" utf8toansi означает перекодировку с утф8 в анси а не наоборот как ты написал, исправь в шапке.

 

В чем здесь ошибка?


исправил