Удаление HTML тегов

Форумы Помощь по пакетуУдаление HTML тегов ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 118

Рейтинг: 0

#1: 2017-01-16 20:36:54 ЛС | профиль | цитата

Собственно вопрос есть файл в котором содержатся обычный текст и html теги. Проще говоря кусок веб страницы, так вот можно каким либо способом удалить все htm теги оставив только текст.

карма: 0

Google vip	#1.1контекстная реклама от партнеров

Ответов: 278

Рейтинг: 6

#2: 2017-01-16 21:08:22 ЛС | профиль | цитата

Можно с помощью компонента "множественная замена"

карма: 0

Ответов: 118

Рейтинг: 0

#3: 2017-01-16 21:16:45 ЛС | профиль | цитата

Не вариант требуется прописывать все теги,а это создаёт жение в области чуть пониже спины

карма: 0

Ответов: 278

Рейтинг: 6

#4: 2017-01-16 21:26:29 ЛС | профиль | цитата

Можно найти список например вот - http://gabdrahimov.ru/html-tegi-spravochnik
И сделать программу которая обработает список в нужный формат.
Потом полученный список скопировать куда нужно)

Может есть что то проще, но делать самому лучше чем ждать)

карма: 0

Ответов: 2059

Рейтинг: 131

#5: 2017-01-16 21:50:30 ЛС | профиль | цитата

Проще запустить из свой программы консольную утилиту http://www.cross-plus-a.ru/btext.html, а результат получить в свою программу(можно так http://forum.hiasm.com/topic/65677, или записать в файл.

карма: 6

Разработчик

Ответов: 26061

Рейтинг: 2120

#6: 2017-01-16 21:55:20 ЛС | профиль | цитата

Spectr20 писал(а):

Не вариант требуется прописывать все теги

А зачем, когда тег -- это <...>, те скобка в начале и в конце с текстом между ними. Проще применить вот это, и удалить все, что в скобках и сами скобки

код

Add(BlockFind,10668734,231,175)
{
 Delete=0
 StartBlock="<"
 EndBlock=">"
}

Редактировалось 1 раз(а), последний 2017-01-16 21:56:30

карма: 22

Ответов: 2059

Рейтинг: 131

#7: 2017-01-16 22:07:12 ЛС | профиль | цитата

А зачем, когда тег -- это <...>, те скобка в начале и в конце.

Этого недостаточно.
Допустим такой текст:

Нейронная сеть в ALGLIB представлена структурой MultiLayerPerceptron. Хотя эта структура имеет открытые поля, для работы с ней следует использовать исключительно подпрограммы ALGLIB, не обращаясь к полям напрямую. Работа с нейронными сетями осуществляется в такой последовательности:


<ol><li>Выбор архитектуры и инициализация структуры при помощи соответствующей функции.</li>
<li>Обучение нейронной сети при помощи одного из алгоритмов.</li>
<li>Использование обученной сети (применение к входным данным, сериализация и т.д.).</li>
</ol>

Нужен список тегов, которые следует обрабатывать, а не только ....

карма: 6

Разработчик

Ответов: 26061

Рейтинг: 2120

#8: 2017-01-16 22:09:28 ЛС | профиль | цитата

flint2 писал(а):

Этого недостаточно

ТС просит именно все. На что он просил, на то я и ответил

Spectr20 писал(а):

каким либо способом удалить все htm теги оставив только текст

Редактировалось 2 раз(а), последний 2017-01-16 22:10:08

карма: 22

Ответов: 2059

Рейтинг: 131

#9: 2017-01-16 22:14:28 ЛС | профиль | цитата

ТС просит именно все.

Но между тегами может быть и не текст.
Я понял, что надо получить именно текст.
Если не только текст, а просто теги уничтожить, тогда да.

Я думаю, что ему нужно сделать текстовые книжки, или статьи из интернета.

Редактировалось 1 раз(а), последний 2017-01-16 22:16:31

карма: 6

Ответов: 118

Рейтинг: 0

#10: 2017-01-16 23:19:34 ЛС | профиль | цитата

Не работает получается вот что


Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,21,105)
{
}
Add(Memo,9335361,462,70)
{
 Left=20
 Top=10
 Width=130
 Height=140
 Strings=#53:<font>Этот текст должен остаться в сахранности</font>|
}
Add(Memo,14965610,595,159)
{
 Left=170
 Top=10
 Width=130
 Height=140
}
Add(Button,4507266,294,154)
{
 Left=135
 Top=155
 link(onClick,6377356:doSearch,[])
}
Add(BlockFind,6377356,462,154)
{
 Delete=0
 UserReplace=0
 StartBlock="<"
 EndBlock=">"
 link(onSearch,14965610:doAdd,[(544,160)(544,165)])
 link(Text,9335361:Text,[])
}

карма: 0

Разработчик

Ответов: 26061

Рейтинг: 2120

#11: 2017-01-16 23:28:31 ЛС | профиль | цитата

Spectr20 писал(а):

Не работает получается вот что

Использовать надо точку не onSearch, а onEndSearch. И UseReplace надо поставить False

Редактировалось 1 раз(а), последний 2017-01-16 23:31:16

карма: 22

Ответов: 278

Рейтинг: 6

#12: 2017-01-16 23:29:08 ЛС | профиль | цитата


Add(MainForm,9334140,560,133)
{
}
Add(Memo,9335361,728,105)
{
 Left=20
 Top=10
 Width=130
 Height=140
 Strings=#53:<font>Этот текст должен остаться в сахранности</font>|
}
Add(Memo,14965610,910,196)
{
 Left=170
 Top=10
 Width=130
 Height=140
}
Add(Button,4507266,560,189)
{
 Left=135
 Top=155
 link(onClick,6377356:doSearch,[])
}
Add(BlockFind,6377356,728,189)
{
 Delete=0
 UserReplace=0
 StartBlock="<"
 EndBlock=">"
 link(onSearch,2948863:doStrCat,[(786,195)(786,111)])
 link(onEndSearch,1000808:doMultiReplace,[])
 link(Text,1613355:Var2,[])
}
Add(StrList,2290815,861,105)
{
}
Add(MultiReplace,1000808,854,196)
{
 Delimiter="!"
 link(onResult,14965610:doAdd,[])
 link(Text,1613355:Var3,[(860,166)])
 link(ReplaceList,2290815:Text,[])
}
Add(GetDataEx,1613355,728,161)
{
 link(Data,9335361:Text,[])
}
Add(StrCat,2948863,798,105)
{
 Str2="!;"
 link(onStrCat,2290815:doAdd,[])
}

[/spoiler]

карма: 0

Разработчик

Ответов: 26061

Рейтинг: 2120

#13: 2017-01-16 23:33:46 ЛС | профиль | цитата

igr, на кой черт такие сложности, когда все это делает один компонент, и обвеска там совсем не нужна

Код

Add(MainForm,6195630,504,133)
{
}
Add(Memo,9335361,567,119)
{
 Left=20
 Top=10
 Width=130
 Height=140
 Strings=#53:<font>Этот текст должен остаться в сохранности</font>|
}
Add(Memo,14965610,644,189)
{
 Left=170
 Top=10
 Width=130
 Height=140
}
Add(Button,4507266,497,203)
{
 Left=135
 Top=155
 link(onClick,6377356:doSearch,[])
}
Add(BlockFind,6377356,567,203)
{
 Delete=0
 StartBlock="<"
 EndBlock=">"
 link(onEndSearch,14965610:doText,[])
 link(Text,9335361:Text,[])
}

Редактировалось 4 раз(а), последний 2017-01-16 23:44:25

карма: 22

Ответов: 278

Рейтинг: 6

#14: 2017-01-16 23:40:10 ЛС | профиль | цитата

nesco, зачем ругаешься?

Это от незнания особенностей компонентов)

карма: 0

Разработчик

Ответов: 26061

Рейтинг: 2120

#15: 2017-01-16 23:47:00 ЛС | профиль | цитата

igr писал(а):

Это от незнания особенностей компонентов

Аааа, тады ой.

карма: 22

Форумы Помощь по пакетуУдаление HTML тегов ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)