Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.02.2011, 22:27
Аватар для ALexandr555
ALexandr555 ALexandr555 вне форума
Специалист
 
Регистрация: 09.10.2010
Адрес: Тольятти
Сообщения: 803
Версия Delphi: Delphi 7
Репутация: 2064
По умолчанию Вырезать Enter и пробелы

Цитата:
-9&deg;


&nbsp;
есть вот такой текст мне нужно у него вырезать серединку что бы было так
Цитата:
-9&deg;
&nbsp;

Код:
text:=StringReplace(text,' '+#13#10+' '+#13#10+' ','',[rfReplaceAll]);
так пробовал не выходит, в чем проблема?
Ответить с цитированием
  #2  
Старый 10.02.2011, 23:44
Asinkrit Asinkrit вне форума
Местный
 
Регистрация: 29.10.2009
Сообщения: 446
Репутация: 271
По умолчанию

Лично я не вижу в тексте данных комбинацию пробел+ВК+пробел+ВК+пробел, попробуй так:
Код:
text:=StringReplace(text,#10#13#10#13,'',[rfReplaceAll]);
Ответить с цитированием
  #3  
Старый 11.02.2011, 00:00
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

Учитывая еще пробелы получиться:
Код:
  text:=Trim(StringReplace(text,#10#13,'',[rfReplaceAll]));
__________________
Помогаю за Спасибо
Ответить с цитированием
  #4  
Старый 11.02.2011, 10:30
Аватар для ALexandr555
ALexandr555 ALexandr555 вне форума
Специалист
 
Регистрация: 09.10.2010
Адрес: Тольятти
Сообщения: 803
Версия Delphi: Delphi 7
Репутация: 2064
По умолчанию

просто тут не видно...

в архиве гляньте исходный код у html там видны пробелы
Вложения
Тип файла: zip 5_tmp.zip (142 байт, 1 просмотров)

Последний раз редактировалось ALexandr555, 11.02.2011 в 10:35.
Ответить с цитированием
  #5  
Старый 11.02.2011, 10:51
Аватар для ALexandr555
ALexandr555 ALexandr555 вне форума
Специалист
 
Регистрация: 09.10.2010
Адрес: Тольятти
Сообщения: 803
Версия Delphi: Delphi 7
Репутация: 2064
По умолчанию

Код:
RegExp.Expression := '(&deg;.*?&nbsp;)';
 RegExp.Exec;
 text:=StringReplace(text,RegExp.Match[1],'',[rfReplaceAll]);

вот как я решил сделать
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:23.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025