Форум по 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

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


Как делаю я:

Код:
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;
Ответить с цитированием
  #2  
Старый 22.04.2012, 16:01
ildvild ildvild вне форума
Прохожий
 
Регистрация: 12.10.2010
Адрес: Уфа
Сообщения: 31
Версия Delphi: 7, 2007, 2010
Репутация: 10
По умолчанию

Посмотри какая кодировка используется на сайте и сохраняй в той же.
Ответить с цитированием
  #3  
Старый 22.04.2012, 23:16
xo6a xo6a вне форума
Прохожий
 
Регистрация: 30.10.2008
Адрес: Ижевск
Сообщения: 11
Репутация: 10
По умолчанию

Цитата:
Сообщение от ildvild
Посмотри какая кодировка используется на сайте и сохраняй в той же.
как указать кодировку сохранения? пример?
Ответить с цитированием
  #4  
Старый 23.04.2012, 08:51
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Восклицание

сохранять сразу в файл:
Цитата:
IdHTTP1.Get(Edit1.Text, TFileStream.Create('', fmCreate));
грубо говоря
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #5  
Старый 23.04.2012, 11:41
xo6a xo6a вне форума
Прохожий
 
Регистрация: 30.10.2008
Адрес: Ижевск
Сообщения: 11
Репутация: 10
По умолчанию

Цитата:
Сообщение от NumLock
сохранять сразу в файл:

грубо говоря

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

Проблема была не в сохранении а в формате html

нужно было просто указать мета данные в уже сохраненом файле
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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