[borockov]

Друзья, всем привет. У меня такой вопрос. Есть некая html страница, текст находящийся в этой странице должна программно заносится в БД, каким образом я поступаю.

Код:

memo1.lines.add(webbrowser1.oleobject.document.documentelement.innertext);

На этом этапе всё отлично, я получаю текст без тегов, теперь мне надо этот текст разбить на части, и добавить в БД.
Структура БД:
Страна: Номер патента: Статус: Заявка: Авторы: Патентообладатель: Адрес:
См. прикпреплённый файл. Таких документов около 500 шт. и хотелось бы что бы всё это дело происходило как то автоматизированно, помогите пожалуйста, советом, как лучше это сделать, идеей или кодом=) Заранее благодарен.

[Aristarh Dark]

Я бы парсил страничку на предмет нахождения нужных тэгов.

[borockov]

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

[Pyro]

моё имхо такое делать не дельфями,
а так смотришь какие элементы нужны, напрмер ctrl+shift+i в браузере, а дальше в цикле можно найти их по классу например

[borockov]

Pyro, я понял ход твоих мыслей вот смотри.

<td rowspan="2" style="width:67mm; text-align:center; font-weight:bold; line-height:4mm;">РОССИЙСКАЯ ФЕДЕРАЦИЯ<br>

Как отсюда вытащить "РОССИЙСКАЯ ФЕДЕРАЦИЯ"?

[Pyro]

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

Как отсюда вытащить "РОССИЙСКАЯ ФЕДЕРАЦИЯ"?

это постоянная тема на форуме, проще всего написать функцию, которая при помощи pos, delete оставит только текст от ... и до ...

[borockov]

А затем загнать к примеру этот текст в edit?

[borockov]

Так начну копать тогда в сторону этих функций! Спасибо!

[borockov]

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
s,g,find:string;
i:integer;
begin
s:='<td rowspan="2" style="width:67mm; text-align:center; font-weight:bold; line-height:4mm;">Российская федерация<br>';
g:=copy(s,pos('<td rowspan="2" style="width:67mm; text-align:center; font-weight:bold; line-height:4mm;">',s)+length('<td rowspan="2" style="width:67mm; text-align:center; font-weight:bold; line-height:4mm;">'),pos('<br>',s)-pos('<td rowspan="2" style="width:67mm; text-align:center; font-weight:bold; line-height:4mm;">',s)-length('<td rowspan="2" style="width:67mm; text-align:center; font-weight:bold; line-height:4mm;">'));
showmessage(g);
end;
end

Таким образом я получаю нужный мне результат. Но вот не могу понять, т.к у меня очень много документов, то вместо "Российская федерация" у меня может стоять любая страна,страна, как сделать так что бы вывести именно текст находящийся между тегами?

[M.A.D.M.A.N.]

Чувак, ты суров.

Используй регулярные выражения, ссылка на книгу в моей подписи.

[borockov]

Oк спасибо, попробую в эту сторону копать=))