StringReplace

[arriah]

Опять обращаюсь с вопросами

Есть у меня фукция которая ищет подстроку между двумя символами или словами

Пытаюсь распарсить некую HTML страницу, исходный кот получаю или через tchromium или httpsend - Это неважно, исходник есть.

Далее мне надо удалить все скрипты из кода

Код: Выделить всё

var
srcHTML:TstringList;
str:string;
.....
srcHTML:=TStringList.Create;
srcHTML.Text:=тут получаем исходный код
str:=srcHTML.Text;
str:=StringReplace(str,FindStr(str,'<script','</script>'),'',[rfReplaceAll, rfIgnoreCase]);


Все работает нормально, все между тэгами <script></script> - удаляются, включая сами тэги

Но загвоздка в том, что находится строка

Код: Выделить всё

<script>(adsbygoogle = window.adsbygoogle || []).push({});</script>

вот она никак не хочет удаляться через StringReplace. Хотя через мою функцию FindStr - она ее находит.
проверял просто выводом в мемо, всех скриптов. выводятся все которые есть в исходнике включая тэги <script>. Удаляются тоже все.. а вот вышеприведенная строка, ну никак не хочет...

[vitaly_l]

вот она никак не хочет удаляться через StringReplace. Хотя через мою функцию FindStr - она ее находит.
проверял просто выводом в мемо, всех скриптов. выводятся все которые есть в исходнике включая тэги <script>. Удаляются тоже все.. а вот вышеприведенная строка, ну никак не хочет...

Ищите банально ручками удаляя по одной букве, там есть какой-то символ (или много), которые отрубают StringReplace. Как только найдёте, то удаляйте эти символы другой функцией, до того как делаете StringReplace. Либо, после прохода StringReplace - делайте контрольный проход вашей FindStr

[beria]

StringReplace

Сам буквально недавно с этим столкнулся и вообще забил на StringReplace ибо тормоз. свою процедуру написал и не парюсь. Сначала сделайте прогон для формирования массива вхождений подстроки или вообще любых маркеров кои нужны, к примеру SGML мнемоники. А потом уж по этому массиву формируйте выходную строку как хотите. Скорость работы и универсальность - две большие разницы получились.
Также можете посмотреть описание семейства стандартных процедур FindMatchesBoyerMooreCaseSensitive. Тот же поиск, только сильно оптимизированный для больших строк по алгоритму Байера-Мура

[arriah]

вот она никак не хочет удаляться через StringReplace. Хотя через мою функцию FindStr - она ее находит.
проверял просто выводом в мемо, всех скриптов. выводятся все которые есть в исходнике включая тэги <script>. Удаляются тоже все.. а вот вышеприведенная строка, ну никак не хочет...

Ищите банально ручками удаляя по одной букве, там есть какой-то символ (или много), которые отрубают StringReplace. Как только найдёте, то удаляйте эти символы другой функцией, до того как делаете StringReplace. Либо, после прохода StringReplace - делайте контрольный проход вашей FindStr

Интересно...

сделал дважды вызов:

Код: Выделить всё

str:=StringReplace(str,FindStr(str,'<script','</script>'),'',[rfReplaceAll, rfIgnoreCase]);
str:=StringReplace(str,FindStr(str,'<script','</script>'),'',[rfReplaceAll, rfIgnoreCase]);


и все удалилось. Вобще ничего не понимаю...

[olegy123]

str:=StringReplace(str,FindStr(str,'<script','</script>'),'',[rfReplaceAll, rfIgnoreCase]);

так она не будет удалятся ...'<script' замещается на '</script>' в тексте.. rfReplaceAll - все нахождения '<script' будут заменены на '</script>'
rfIgnoreCase - плевать на высоту букв..

[arriah]

так она не будет удалятся ...'<script' замещается на '</script>' в тексте..

Это с чего вдруг? Моя функция находит все что между <script и </scrip> и далее Replace должен по все тексту заменить найденую подстроку на "пусто", то есть удалить.