Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Расформатировка текста

Автор: SkyAngel 18.9.2009, 18:23

Здравствуйте, программисты. Возможно тема уже изъедена, но очевидно не верно формировал запрос.
В общем суть проблемы такова: я получаю исходный код страницы (для примера - travian.ru). Однако там получаю такого рода текст (из GETа)

Код


...</td>'#$A#9#9#9'</tr>'#$A#9#9#9'<tr>
'#$A#9#9#9#9'<th> Народ:</th>'#$A#9#9#9#9'
<td>Римляне</td>'#$A#9#9#9'</tr>'#$A#9#9#9'
<tr>'#$A#9#9#9#9'<th> Альянс:</th>'#$A#9#9#9#9'
<td>-</td>'#$A#9#9#9'</tr>'#9#9#9#$A#9#9#9'<tr>
'#$A#9#9#9# 9'<th>Деревни:</th>'#$A#9#9#9#9'<td>
1</td>'#$A#9#9#9'</tr>'#$A#9#9#9'<tr>'#$A#9#9#9#9'
<th> Население:</th>'#$A#9#9#9#9'<td>115</td>'#$A#9#9#9'
</tr><tr>'#$A#9#9#9#9#9'<th>Возраст:</th>'#$A#9#9#9#9#9'
<td>18</td>'#$A#9#9#9#9'</tr><tr>'#$A#9#9#9#9#9'<th>Откуда:
</th>'#$A#9#9#9#9#9'<td>Минск</td>'#$A#9#9#9#9'</tr><tr>
'#$A#9#9#9#9'<td colspan="2" class="empty"></td>'#$A#9#9#9'
</tr>'#$A#9#9#9'<tr>'#$A#9#9#9#9'<td colspan="2"> 
<a href="spieler.php?s=1">&raquo;...

Собственно проблема в том, что пытаясь просто найти все лишние символы и удалить их - не находит некоторых символов. Мне известно, что это управляющие символы (Enter,Tab,etc.), но убрать их не могу =(. Надеюсь на вашу, эксперты, помощь.

Автор: Amphiluke 18.9.2009, 19:14

StringReplace() с флагом [rfReplaceAll] во последнем параметре не помогает?

Автор: Akella 18.9.2009, 19:21

Цитата(SkyAngel @ 18.9.2009, 18:23

)

проблема в том, что пытаясь просто найти все лишние символы и удалить их - не находит некоторых символов.

Ошибка в 17 строке (с)

Автор: SkyAngel 18.9.2009, 19:30

Цитата(Amphiluke @ 18.9.2009, 19:14

)

StringReplace() с флагом [rfReplaceAll] во последнем параметре не помогает?

Нет. Уже пробовал.

Цитата(Akella @ 18.9.2009, 19:21

)

Ошибка в 17 строке (с)

Извини? В какой 17-ой строке? Я не прикладывал кода программы =) . Это выдержка из исходного кода страницы. И строка длинную я разбил для более читаемого вида.

Автор: Romikgy 18.9.2009, 19:39

Цитата(SkyAngel @ 18.9.2009, 18:30

)

Нет. Уже пробовал.

а покажи как?

Цитата(SkyAngel @ 18.9.2009, 18:30

)

Извини? В какой 17-ой строке? Я не прикладывал кода программы =)

во в той какую не выложил ....

Автор: Amphiluke 18.9.2009, 19:40

Цитата(SkyAngel @ 18.9.2009, 19:30

)

Нет. Уже пробовал.

Я тоже. Работает.

Цитата(SkyAngel @ 18.9.2009, 19:30

)

Извини? В какой 17-ой строке?

=)))))

Автор: Keeper89 18.9.2009, 19:41

Это была штука шутка, если ты не понял smile

Автор: SkyAngel 18.9.2009, 20:15

Цитата(Keeper89 @ 18.9.2009, 19:41

)

Это была штука

крутая штука =))

Цитата(Amphiluke @ 18.9.2009, 19:40

)

Я тоже. Работает.

Ты прав =). Ошибка глупая - лишние кавычки стояли…
Всем спасибо.
Тему пока что не закрываю, но помечаю как решённую. Возможно есть и другой способ. Это ведь какая-то категория символов....

Автор: Keeper89 18.9.2009, 22:25

Я честно говоря без кода не вижу откуда появляются эти символы.
Вот так все прилично и без символов грузится в Memo:

Код


  Memo1.Text := Utf8ToAnsi(idHTTP1.Get('http://travian.ru'));

Автор: Akella 18.9.2009, 22:38

Цитата(SkyAngel @ 18.9.2009, 19:30

)

Извини? В какой 17-ой строке? Я не прикладывал кода программы =)

Будешь общаться на форумах - поймёшь. А может и нет smile

Добавлено через 1 минуту и 9 секунд

Цитата(SkyAngel @ 18.9.2009, 20:15

)

Тему пока что не закрываю, но помечаю как решённую.

А ты и не закроешь smile