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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.01.2012, 16:22
Аватар для mak-karpov
mak-karpov mak-karpov вне форума
Активный
 
Регистрация: 18.09.2008
Сообщения: 235
Версия Delphi: 2010 и 7
Репутация: 1242
По умолчанию Файлы с "." и проводник

Продолжение темы Dj_Phoenix'a:

Доработанная версия:
1) Несколько файлов
2) Любое расширение, а не только htaccess

Код (минимизированный):
Код:
program en;
uses Windows;
var i : integer;
procedure p(f : string);
var d, e : string; j, i: integer;
begin
  for i := 1 to Length(f) do if pos(f[i],'\/') <> 0 then j := i;
  d := Copy(f, 0, j); e := Copy(f, j + 1, MAXINT);
  MoveFile(PChar(f), PChar(d + '.' + e));
end;
begin
  for i := 1 to ParamCount do p(ParamStr(i));
end.

Программа дописывает точку перед именем файла (htaccess -> .htaccess)
Чтобы использовать её с папками, надо поместить Exe в %USERPROFILE%/SendTo

С Exe уложился в 20 кб.

UPD: Оригинал от DJ_Phoenix'а
__________________
Кнопка "+" - весы в правом верхнем углу сообщения...

Последний раз редактировалось mak-karpov, 03.01.2012 в 07:53.
Ответить с цитированием
Этот пользователь сказал Спасибо mak-karpov за это полезное сообщение:
DJ PhoeniX (02.01.2012)
  #2  
Старый 02.01.2012, 23:01
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Ссылка на мою версию была бы полезна
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #3  
Старый 03.01.2012, 09:02
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #4  
Старый 03.01.2012, 09:49
Аватар для mak-karpov
mak-karpov mak-karpov вне форума
Активный
 
Регистрация: 18.09.2008
Сообщения: 235
Версия Delphi: 2010 и 7
Репутация: 1242
По умолчанию

NumLock, да, но это надо:
1) открыть консоль
2) cd ..
3) ren ...

А тут выделил, ПКМ -> Отправить -> en.exe, и все
__________________
Кнопка "+" - весы в правом верхнем углу сообщения...
Ответить с цитированием
  #5  
Старый 03.01.2012, 10:08
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
echo "test" >> .htaccess
edit .htaccess
md .htaccess
т.е. можно с ".htaccess" и работать!
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #6  
Старый 03.01.2012, 13:45
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

NumLock, моя задумка изначально предполагает, что таких файлов надо создавать много. И для каждого открывать консоль или даже копировать путь - это уже время. Для этого я и написал тулзу, чтобы переименовывать файлы в 2 клика.
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #7  
Старый 03.01.2012, 13:55
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

на самом деле даже "Блокнот" (notepad.exe) прекрасно сохраняет в файл с именем ".htaccess". т.е. можно сразу насоздавать много файлов сразу же с именем ".htaccess" и работать с ними, чтобы потом не заниматься их переименованием вообще. и это будет на много быстрее, чем создавать файлы с одним именем, а потом их переименовывать. а консоль лишь для примера была.
__________________
Пишу программы за еду.
__________________

Последний раз редактировалось NumLock, 03.01.2012 в 13:57.
Ответить с цитированием
  #8  
Старый 03.01.2012, 14:11
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Мне лично удобнее сначала создать файл с нужным именем, а потом открыть его для редактирования. Да и вообще у меня написан свой код, который по хуку ловит событие создания/переименования файла, и, если имя = 'htaccess' / 'htpasswd', то переименовывает его в файл с точкой в начале. Так то
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #9  
Старый 03.01.2012, 14:22
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от DJ PhoeniX
Мне лично удобнее сначала создать файл с нужным именем, а потом открыть его для редактирования.
не, ну чисто по-русски: сделать одно, потом переделывать в другое
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #10  
Старый 03.01.2012, 14:23
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Привычка ещё с линуксов - сначала touch, потом nano/vi/gedit.
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter