Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.07.2011, 16:08   #1
taurii
Пользователь
 
Регистрация: 05.07.2011
Сообщений: 24
По умолчанию Как удалить перенос строки?

Собственно программа парсит текст с вебстраницы и записывает его в переменную строкового типа, но в тексе присутствуют символы переноса строки нужно их удалить... для того чтобы быть уверенным я сначала перевел посимвольно текст в коды символов inttostr(ord(q1)) получилось следующее

Цитата:
г=>227
о=>238
.=>46

=10
Л=203
и=232
н=237
е=229
а=224
видно, что код символа переноса равен "10" после это сделал условие
Код:
title1:='';
       
       for i:=0 to Length(title) do    begin
       q1:=title[i];
       if inttostr(ord(q1))<>'10' then
      title1:=title1+title[i];
       end;
       Writeln(f,title1);
но в файл все равно записывает текст с абзацами... как удалить эти абзацы?
тоесть сейчас
переменная title имеет такое содержание
строка1
строка2
строка3


а должна иметь вот такое содержание
строка1 строка2 строка3
taurii вне форума Ответить с цитированием
Старый 22.07.2011, 16:12   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
title.Text:=StringReplace(title.Text,#10#13,' ',[rfreplaceall])
Подходит?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.07.2011, 16:19   #3
taurii
Пользователь
 
Регистрация: 05.07.2011
Сообщений: 24
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Код:
title.Text:=StringReplace(title.Text,#10#13,' ',[rfreplaceall])
Подходит?
неа, всеравно записывает с абзацами... вот для наглядности прикрепляю файл, в нем теперь много абзацев, а должно быть 4, тоесть:
строка 1 = Заголовок
строка 2 = текст
строка 3 = заголовок
строка 4 = текст
Вложения
Тип файла: txt pars22.07.2011.txt (8.2 Кб, 152 просмотров)
taurii вне форума Ответить с цитированием
Старый 22.07.2011, 17:59   #4
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

Код:
 title:=memo1.lines.text;
while Pos(#10,title)>0 do
Delete(title,pos(#10,title),1);
while Pos(#13,title)>0 do
Delete(title,pos(#13,title),1);
while Pos('</p>«',title)>0 do
Insert(#10,title,Pos('</p>«',title)+4);
while Pos('»<p>',title)>0 do
Insert(#10,title,Pos('»<p>',title)+1);
memo1.lines.text:=title;
Издивательски, но зато работает...
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Старый 22.07.2011, 18:14   #5
taurii
Пользователь
 
Регистрация: 05.07.2011
Сообщений: 24
По умолчанию

да работает, спасибо, а вот если там будет больше переходов на нвою строку будт тоже работать? не глюкнит?

Последний раз редактировалось mihali4; 03.11.2011 в 15:57.
taurii вне форума Ответить с цитированием
Старый 22.07.2011, 22:36   #6
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

надеюсь нет главное чтобы были символы <p>, <\p>, «, » тогда все гуд..
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Старый 07.09.2017, 07:35   #7
Dorina18
Новичок
Джуниор
 
Регистрация: 07.09.2017
Сообщений: 1
По умолчанию

Я, наверное, поздно, но вместо этого
Цитата:
Сообщение от taurii Посмотреть сообщение
if inttostr(ord(q1))<>'10' then
вот это:
if inttostr(ord(q1))<>#10 then
Dorina18 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как удалить выбранные строки в Mysql Tvv7-7-7 PHP 15 24.01.2011 22:37
Как удалить лишние пробелы из строки? MyLastHit Общие вопросы Delphi 26 11.08.2010 21:44
Как удалить строки и столбцы в массиве ЛесенОК Свободное общение 1 31.01.2009 18:35
Как удалить слово из строки? Ellita Общие вопросы C/C++ 7 19.09.2007 15:43
Как удалить пустые строки в WORD? KUNAR Microsoft Office Word 2 04.09.2007 20:56