|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Переименовать файл |
|
[решено] Переименовать файл
|
Новый участник Сообщения: 31 |
Профиль | Отправить PM | Цитировать
Помогите пожалуйста как реализовать такое переименовывание файла.
выбраный файл переименовывается и задаётся по следующему формату: текущая дата+не повторяемый за день цифра или буква (1-0, a-z), пример файлы 1209h, 0110k, 0110f, 01109. |
|
Отправлено: 14:00, 05-01-2010 |
Новый участник Сообщения: 31
|
Профиль | Отправить PM | Цитировать выбирается файл который переименовывается в зависимости от текущей даты. Имя файла формируется из следующих данных день, месяц, год + один произвольный неповтояющийся символ (из строки 0123465789аbcdefghijklmnopqrstuvwxyz) чтобы названия файлов были разные. За определённую дату можно переименовать только ограниченное число файлов (это ограничивается количеством символов из строки 0123465789аbcdefghijklmnopqrstuvwxyz), тоесть после смене даты можно снова переименовывать файлы.
После переименования через некоторое время файл будет удалён. |
Последний раз редактировалось cra5h_, 05-01-2010 в 18:01. Отправлено: 17:47, 05-01-2010 | #11 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать $sReg_Path = "HKCU\Software\" & @ScriptName $sKey_Name = "Folder Sufix" $sDate_Sufix = @MDAY & @MON & @YEAR $sChars = "0123465789аbcdefghijklmnopqrstuvwxyz_" & $sDate_Sufix $sRead_Chars = RegRead($sReg_Path, $sKey_Name) $iError = @error If $sRead_Chars == "_" & $sDate_Sufix Then Exit If $iError <> 0 Or Not StringRegExp($sRead_Chars, "[0-9a-z]+_\Q" & $sDate_Sufix & "\E$") Then $sRead_Chars = $sChars $sSufix_Char = StringLeft($sRead_Chars, 1) $sFile = FileOpenDialog("Select fie", "", "All files (*.*)") If @error Then Exit $sNew_File = StringRegExpReplace($sFile, "\\[^\\]*$", "") & "\" & $sDate_Sufix & $sSufix_Char FileMove($sFile, $sNew_File) RegWrite($sReg_Path, $sKey_Name, "REG_SZ", StringTrimLeft($sRead_Chars, 1)) |
------- Отправлено: 23:02, 05-01-2010 | #12 |
Новый участник Сообщения: 31
|
Профиль | Отправить PM | Цитировать самое оно. Убрал только привязку к реестру, сделал на ini файле. Спасибо
|
Отправлено: 16:58, 11-01-2010 | #13 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
HDD - [решено] Переименовать диск в ХР | ab | Microsoft Windows 2000/XP | 28 | 28-04-2017 10:45 | |
Vista / 2008 - [решено] Как переименовать встроенную запись Администратора | haker-kirik | Автоматическая установка Windows 11 / 10 / 8 / 7 / Vista | 4 | 11-06-2010 02:08 | |
Разное - [решено] Как переименовать учетную запись? | maxrain | Microsoft Windows Vista | 13 | 09-01-2010 21:30 | |
[решено] Переименовать шару в сети | tehnik_srs | AutoIt | 2 | 07-01-2010 14:19 | |
[решено] Как переименовать файл в AutoIt? | evg64 | AutoIt | 4 | 21-12-2009 08:09 |
|