VPF::Преобразование % - Форум программистов

Ak47t

Дата 25.8.2005, 19:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 25.7.2005

Репутация: нет
Всего: нет

Короч сталкнулся с такой проблемой smile

.
Как из фтп Адреса

Цитата

'ftp://AK47t%40dsl.takas.lt:[email protected]/Incoming/misc/-=Games=-/Worms%204%20Mayhem%20/'

Зделать строку нормального вида

Цитата

'ftp://[email protected]:[email protected]/Incoming/misc/-=Games=-/Worms4Mayhem/'

Что-бы небыло всяких 20% 40% и т.д. smile

Pakshin A. S.

Дата 25.8.2005, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Может и есть уже готовая функция, но можно и русками:
1) Составим массив-константу соответсвий

Код


 strs: array [1..2] of array [1..2] of string = )
('%20', ''),
('%40', '@'));

2) И декодируем:

Код


procedure Decode(var s : string);
var
 i:integer;
begin
 for i:=1 to 2 do
  s:=ReplaceString(s, strs[i,1], strs[i,2], [rfReplcaAll]); // мог и с параметрами немного напутать
end;

Смысл такой...

Ak47t

Дата 25.8.2005, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 25.7.2005

Репутация: нет
Всего: нет

Мда хорошо если там два типа символов. А если больше .
smile

Мож кто знает получше способ.
Например как определить какой символ будет %24.

Pakshin A. S.

Дата 25.8.2005, 22:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Это же с html берется? тогда взять и написать

Код


<html>

<!--заголовок прописать-->

<body>
%20<br>
%40<br>
</body>
</html>

Также и программно моно сгенерить данный файл...

Snowy

Дата 26.8.2005, 08:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Банально %20 = символу с кодом $20 = chr(32) = пробел.
Просто пробегаем по строке и заменяем все %-комбинации по данному принципу.

Ak47t

Дата 26.8.2005, 17:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 25.7.2005

Репутация: нет
Всего: нет

[quote]Просто пробегаем по строке и заменяем все %-комбинации по данному принципу. /quote]
можно чють подробней. smile

_hunter

Дата 26.8.2005, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

for i = 1 to str.length() - 3 do
if ( str.substring(i, 3) = '%20' ) then begin
str[i] = ' ';
str.delete(i+1, 2);

примерно так...

--------------------

Tempora mutantur, et nos mutamur in illis...

Ak47t

Дата 27.8.2005, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 25.7.2005

Репутация: нет
Всего: нет

str.substring - Как такую операцию зделать. smile

Я не профи, напиши поточнее. smile

Pakshin A. S.

Дата 27.8.2005, 16:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Си-гибрид, однако...

Он он дуюлирует мой метод с StringReplace:

Код


s:=StringReplace(s, '%20', '', [rfReplaceAll]);

По-моему так короче писать...

Ak47t

Дата 27.8.2005, 16:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 25.7.2005

Репутация: нет
Всего: нет

Спасиба за помощ

Цитата

Pakshin A. S.

Добавлено @ 17:00
Тема закрыта smile

Гость_oberon

Дата 17.10.2005, 21:30 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

TidURI.URLdecode(string)-всё сделает

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »