в Memo2 находиться HTML код страницы, в котором нужный текст прописан так:
<p class="MsoNormal">Нужный текст</p>
использую код:
while pos('<p class="MsoNormal">',text)<>0 do
begin
str:=copy(text,pos('<p class="MsoNormal">',text)+21,pos('</p>',text)-1);
delete(text,1,pos('</p>',text));
Memo1.Lines.Add(str);
//text- строковая переменная, которой присвоено значение " Memo2.Lines.Text"
в результате работы программы в Memo1 выводиться:
Нужный текст</p> Не нужный код
<
Нужный текст2</p>
Ненужный код
<p class="MsoNormal"
Нужный текст3</p>
Ненужный код
<p class="MsoNormal"
Нужный текст4</p>
Исходные данные :
<p class="MsoNormal">Нужный текст</p> Не нужный код
<p class="MsoNormal">Нужный текст2</p>
Ненужный код
<p class="MsoNormal">Нужный текст3</p>
Ненужный код
<p class="MsoNormal">Нужный текст4</p>
Как можно можно сделать так что бы содержимое Memo1 было таким:
Нужный текст
Нужный текст2
Нужный текст3
Нужный текст4
Заранее спасибо!
Примечание:
R34 - спасибо огромное!
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.