парсинг Html - Общие вопросы Delphi

eldar · 23.04.2009, 16:41

Допустим есть html код

Код HTML:

<html>
<head>
<title>Сайт с фреймом</title>
</head>

<frameset rows="*,106" frameborder=1 bordercolor=black framespacing=0>
<frame name="frame" src="http://сайт/gates.php" noresize scrolling=auto id="website_frame" title="jgFNRtUwHy">
<frame name="site_eldP813q" src="http://site.ru/surf_frame.php" noresize scrolling=no>
</frameset>
-274686065</html>

Вопрос в одном как в Edite вывести это значение title="jgFNRtUwHy"

Sazary · 23.04.2009, 16:58

Если правильно понял, то как вариант:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
s : ansistring;
k1,k2,k3 : integer;
begin
s := Memo1.Text;
k1 := pos('website_frame',s);
k2 := pos('title',copy(s,k1,length(s)));
k2 := k1 + k2 + 6;
k3 := pos('"',copy(s,k2,length(s)));
Edit1.Text := copy(s,k2,k3-1);
end;

(html-код в Мемо).

Altera · 23.04.2009, 19:45

Интересно, это единственный способ парсинга, я имею ввиду именно при помощи pos. Нет там функции, которая, не как pos, ищет во всей строке, а начиная с какова-то символа, например с 10-ого???

Sazary · 23.04.2009, 19:52

Цитата:

Сообщение от Altera

Интересно, это единственный способ парсинга, я имею ввиду именно при помощи pos. Нет там функции, которая, не как pos, ищет во всей строке, а начиная с какова-то символа, например с 10-ого???

Есть ) Только еще никогда не пользовался. Надо бы начинать..

Код:

Function PosEx(Const SubStr, S: String; Offset: Cardinal = 1): Integer;

eldar · 23.04.2009, 20:42

Sazary спасибо это то что нужно)

23.04.2009, 16:58	#2
Sazary В тени Старожил Регистрация: 19.12.2008 Сообщений: 5,788	Если правильно понял, то как вариант: Код: `procedure TForm1.Button1Click(Sender: TObject); var s : ansistring; k1,k2,k3 : integer; begin s := Memo1.Text; k1 := pos('website_frame',s); k2 := pos('title',copy(s,k1,length(s))); k2 := k1 + k2 + 6; k3 := pos('"',copy(s,k2,length(s))); Edit1.Text := copy(s,k2,k3-1); end;` (html-код в Мемо). Вполне очевидно, чтобы что-то понять, необходимо книги читать. Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]

23.04.2009, 20:42	#5
eldar Форумчанин Регистрация: 04.08.2008 Сообщений: 154	Sazary спасибо это то что нужно) http://www.dowlands.sk6.ru/

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Парсинг строки	beemoto	Общие вопросы Delphi	18	12.04.2009 18:52
Парсинг страницы	Terikon	Общие вопросы Delphi	3	04.04.2009 00:32
парсинг страницы	seoanalyzer	Общие вопросы Delphi	3	13.02.2009 12:50
Парсинг HTML страницы	OkeaH	Работа с сетью в Delphi	1	19.01.2009 09:17
HTML Парсинг	BaikalLord	Помощь студентам	5	15.12.2008 08:20

23.04.2009, 19:45	#3
Altera Старожил Регистрация: 29.01.2008 Сообщений: 2,406	Интересно, это единственный способ парсинга, я имею ввиду именно при помощи pos. Нет там функции, которая, не как pos, ищет во всей строке, а начиная с какова-то символа, например с 10-ого???