Парсинг html из текстового файла - Общие вопросы Delphi

demiancz · 02.05.2013, 16:51

Есть файл proba.txt а в этом файле код HTML из которого нужно выдрать определенный участок кода. Например все что между тегами <body></body>
Как это можно сделать? Я что то не пойму как открыть этот файл, потом спарсить что надо, а потом записать обратно в него и сохранить.
Через IdHTTP это все просто делается таким кодом:

Код:

var
  s: String;
begin
s := IdHTTP1.Get(Edit1.Text);
Delete(s,1,pos('<body>',s)+length('<body>')-1);
Delete(s,pos('</body>',s),length(s));
Memo1.Lines.Text:=s;
Memo1.Lines.SaveToFile('result.txt');

А вот как проделать нечто подобное без IdHTTP я не могу разобраться. Помогите пожалуйста.

s-andriano · 02.05.2013, 17:23

По сути idhttp нужен только для загрузки всего файла в строку. Загрузите его любым другим способом.

BDA · 02.05.2013, 17:26

Код:

var
  s: String;
begin
Memo1.Lines.LoadFromFile('proba.txt');
s:=Memo1.Text;
Delete(s,1,pos('<body>',s)+length('<body>')-1);
Delete(s,pos('</body>',s),length(s));
Memo1.Text:=s;
Memo1.Lines.SaveToFile('result.txt');

demiancz · 02.05.2013, 17:53

Спасибо огромное!

02.05.2013, 16:51	#1
demiancz Форумчанин Регистрация: 28.09.2010 Сообщений: 246	Парсинг html из текстового файла Есть файл proba.txt а в этом файле код HTML из которого нужно выдрать определенный участок кода. Например все что между тегами <body></body> Как это можно сделать? Я что то не пойму как открыть этот файл, потом спарсить что надо, а потом записать обратно в него и сохранить. Через IdHTTP это все просто делается таким кодом: Код: `var s: String; begin s := IdHTTP1.Get(Edit1.Text); Delete(s,1,pos('<body>',s)+length('<body>')-1); Delete(s,pos('</body>',s),length(s)); Memo1.Lines.Text:=s; Memo1.Lines.SaveToFile('result.txt');` А вот как проделать нечто подобное без IdHTTP я не могу разобраться. Помогите пожалуйста. Смотреть фильмы HD Фильмы для планшетов

02.05.2013, 17:26	#3
BDA МегаМодератор СуперМодератор Регистрация: 09.11.2010 Сообщений: 7,429	Код: `var s: String; begin Memo1.Lines.LoadFromFile('proba.txt'); s:=Memo1.Text; Delete(s,1,pos('<body>',s)+length('<body>')-1); Delete(s,pos('</body>',s),length(s)); Memo1.Text:=s; Memo1.Lines.SaveToFile('result.txt');` Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

02.05.2013, 17:53	#4
demiancz Форумчанин Регистрация: 28.09.2010 Сообщений: 246	Спасибо огромное! Смотреть фильмы HD Фильмы для планшетов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
парсинг Html	djetx	Общие вопросы Delphi	3	01.08.2011 18:56
Парсинг HTML	Che Guevara	PHP	4	21.07.2011 19:28
Парсинг HTML	russian-stalker	Общие вопросы C/C++	0	18.12.2010 11:25
парсинг Html	eldar	Общие вопросы Delphi	4	23.04.2009 20:42
HTML Парсинг	BaikalLord	Помощь студентам	5	15.12.2008 08:20

02.05.2013, 17:23	#2
s-andriano Старожил Регистрация: 08.04.2012 Сообщений: 3,229	По сути idhttp нужен только для загрузки всего файла в строку. Загрузите его любым другим способом.