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

Delphi Sources



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

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 22.04.2012, 15:09
xo6a xo6a вне форума
Прохожий
 
Регистрация: 30.10.2008
Адрес: Ижевск
Сообщения: 11
Репутация: 10
По умолчанию Как взять текст с сайта без ошибок?

Проблема такая:
есть сайт (урл)
в тексте сайта есть кусок текста, который нужно сохранить в файл.
я это делаю нижеследующим образом но апострофы и другие спец символы сохраняются с ошибками

Примеры:

имеем на сайте / сохранили в файл
1)
Canada’s participation
Canada’s participation
2)
une base d’opérations avancée du district
une base d’opérations avancée du district

Как сделать так чтобы "кусок" сохранялся нормально?


Как делаю я:

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  grab_info:string;
begin
      url:='http://www.siteurl.ru/';
      grab_info:=IdHTTP1.Get(url);
//функция вырезает текст из нужного тега
      grab_info:=Pars('class="photo-desc">',grab_info,'</div>'); 
      SaveFileName:='info.html';
      AssignFile (f,SaveFileName);
      Rewrite(f);
      WriteLn(f,grab_info);
      CloseFile(f);
end;
Ответить с цитированием
 


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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