Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Замена пробелов на %20, вроде просто? 
V
    Опции темы
VAMPiRE69
Дата 1.7.2006, 14:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Подскажите пожалуйста, задача простейшая:

есть UpFileName: string, в котором содержится название файла, например 'my best song.mp3'.
Мне надо замерить все пробелы на символ %20, чтобы получилось 'my%20best%20song.mp3'.
Пробовал с помощью цикла и pos но что-то у меня не получается!

Спасибо заранее большое! 
PM MAIL   Вверх
Palladin
Дата 1.7.2006, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Код

var
s:string;
............
for i:=1 to length(UpFileName) do 
begin
if UpFileName[i]='  '  then 
begin
s[i]:='%';
i:=i+1;
s[i]:='2';
i:=i+1;
s[i]:='0';
end
else
s[i]:=UpFileName[i];
end;
....................



P.S. Можеь и неработает, не проверял smile 


 


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Poseidon
Дата 1.7.2006, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Цитата(RooR @  1.7.2006,  15:06 Найти цитируемый пост)
P.S. Можеь и неработает, не проверял
 Да оно и с первого взгляда видно, что не работает smile Хотя бы то, что ты в цикле i делаешь i:=i+1; Хотя и без этого не работает smile А вообще это погоже на попытку изобрести велосипед


Код
StringReplace(UpFileName, ' ' ,'%20' , [rfReplaceAll])



 


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
volvo877
Дата 1.7.2006, 16:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116
VAMPiRE69,
про StringReplace не слышал никогда?  smile  

Oops, опоздал smile 

Это сообщение отредактировал(а) volvo877 - 1.7.2006, 16:47
PM MAIL   Вверх
Palladin
Дата 1.7.2006, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Код

StringReplace(UpFileName, ' ' ,'%20' , [rfReplaceAll]) 


хер*ссе smile  smile  smile 

Это тут я так понимаю первый параметр строка в которой ищем, второй что ищем, третий что вставляем, а четвёртый это тпа смотреть всю строку???? smile 


P.S. Блин народ вы откуда такие умные нарисовались smile  пасейдон закинь в личку мне, те документы, по которым ты учился!


А в своём примере я просто забыл коечто сделать!

Код

procedure TForm1.Button1Click(Sender: TObject);
var
s:string[255];
UpFileName:string;
i,k:integer;
begin
i:=1;
UpFileName:=edit1.text;
for k:=1 to length(UpFileName) do
begin
if r[k]=' '  then
begin
s[i]:='%';
i:=i+1;
s[i]:='2';
i:=i+1;
s[i]:='0';
i:=i+1;
end
else
s[i]:=UpFileName[k];
i:=i+1;
end;
edit2.text:=s;
end;




Ах да за изобритение вилосипеда(с 5 колёсами) плюс мнеsmile)))))))) Работает я проверил 


P.S. Где ж ты был раньше со своим stringreplace, я этот вилосипед раз 20 изобретал на лабахsmile))) 

Это сообщение отредактировал(а) RooR - 1.7.2006, 18:25


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
VAMPiRE69
Дата 2.7.2006, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Poseidon, volvo877 спасибо, действительно не знал о существовании StringReplace! работает!
RooR, спасибо и тебе за старания =)))))  
PM MAIL   Вверх
Mechanic
Дата 2.7.2006, 21:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7
Можно чуть-чуть по теме? smile

UrlEscape, UrlEscapeSpaces, UrlCanonicalize ? 
--------------------
Tell me the extensions of the files You backup and I'll tell You who You are..  ©Mch  
PM   Вверх
Palladin
Дата 2.7.2006, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
UrlEscape, UrlEscapeSpaces, UrlCanonicalize 

Механик,а что это??? 


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Mechanic
Дата 2.7.2006, 22:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7
Цитата(RooR @  2.7.2006,  22:48 Найти цитируемый пост)
Механик,а что это???

Это функи из "Shell Path Handling Functions".
Цитата(MSDN said)

Shell Path Handling Functions
--------------------------------------------------------------------------------
This section describes the Microsoft® Windows® Shell path handling functions. The programming elements explained in this documentation are exported by Shlwapi.dll and defined in Shlwapi.h and Shlwapi.lib.

Там исчо много всяких вкусностей. smile 
--------------------
Tell me the extensions of the files You backup and I'll tell You who You are..  ©Mch  
PM   Вверх
Poseidon
Дата 2.7.2006, 23:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Mechanic, не вижу смысла подключать дополнительную библиотеку ради того, что делается простой заменой 


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Yanis
Дата 2.7.2006, 23:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Цитата(Poseidon @  3.7.2006,  00:04 Найти цитируемый пост)
Mechanic, не вижу смысла подключать дополнительную библиотеку ради того, что делается простой заменой

Просто есть и другие символы помимо пробела, которые могут содержаться в имени файла. Вот они "^&`{}][". 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Palladin
Дата 2.7.2006, 23:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
И что с этого, что если название будет содержать ^&`{}][ то stringreplace или мой " велосипед" не справится smile  


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0617 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.