Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Создание пустышек

Ответить
Настройки темы
[решено] Создание пустышек

Аватара для Pozia

Ветеран


Сообщения: 2756
Благодарности: 211

Профиль | Отправить PM | Цитировать


Имеется папка с подпапками и кучей файлов формата .jpg в них. Мне нужно заменить их одноименными пустышками. Вручную это работы на пол дня. Подкиньте пожалуйста скрипт с выполнением этой рутинной работы. Спасибо

-------
Жизни вглядись в глаза: Это то, что ты всегда искал? Это то, что ты всегда хотел? Да или нет?


Отправлено: 01:20, 18-02-2010

 

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


Pozia,
У меня так получилось:
Код: Выделить весь код
$aReturn = _FileSearch("Папка", '*.jpg')

For $i = 1 To UBound($aReturn) - 1
    $hFile = FileOpen($aReturn[$i], 2)
    FileClose($hFile)
Next

Func _FileSearch($sPath, $sFileMask)
    Local $sOut = StringToBinary("0" & @CRLF, 2), $aOut
    Local $hDir = Run(@ComSpec & ' /U/C DIR "' & $sPath & '\' & $sFileMask & '" /S/B/A-D', @SystemDir, @SW_HIDE, 6)

    While 1
        $sOut &= StdoutRead($hDir, False, True)
        If @error Then ExitLoop
    WEnd

    $aOut = StringRegExp(BinaryToString($sOut, 2), "[^\r\n]+", 3)
    If @error Then Return SetError(1)

    $aOut[0] = UBound($aOut) - 1
    Return $aOut
EndFunc   ;==>_FileSearch

Последний раз редактировалось madmasles, 18-02-2010 в 01:51.

Это сообщение посчитали полезным следующие участники:

Отправлено: 01:35, 18-02-2010 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Цитата madmasles:
FileOpen($aReturn[$i], 2)
FileClose($aReturn[$i]) »
Неправильно это...

FileClose не принимает имя файла, ей нужен дескриптер возвращаемый функцией FileClose:

Код: Выделить весь код
For $i = 1 To UBound($aReturn) - 1
    $hFile = FileOpen($aReturn[$i], 2)
    FileClose($hFile)
Next
иначе у тебя в скрипте происходит постоянное открытие файла, без необходимого закрытия.

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 01:42, 18-02-2010 | #3


Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


Creat0R,
Не внимательно я справку читал .
А как проверить, открыт файл или нет.
Я код исправил. FileDelete() тоже не нужен.

Отправлено: 01:52, 18-02-2010 | #4


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Цитата madmasles:
как проверить, открыт файл или нет »
Ещё внимательнее почитать справку

Цитата madmasles:
FileDelete() тоже не нужен »
А я его и не добавлял в куске кода что привёл в примере.

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 02:03, 18-02-2010 | #5


Аватара для Pozia

Ветеран


Сообщения: 2756
Благодарности: 211

Профиль | Отправить PM | Цитировать


то то у меня ничего не работает

-------
Жизни вглядись в глаза: Это то, что ты всегда искал? Это то, что ты всегда хотел? Да или нет?


Отправлено: 07:36, 18-02-2010 | #6


Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


Pozia,
У меня работает.

Отправлено: 12:46, 18-02-2010 | #7


Аватара для Pozia

Ветеран


Сообщения: 2756
Благодарности: 211

Профиль | Отправить PM | Цитировать


madmasles, а вместо "Папка" нужно свое имя указывать или как? Не выходит ничего. Ложу скрипт рядом с кучей jpg, запускаю и ноль

-------
Жизни вглядись в глаза: Это то, что ты всегда искал? Это то, что ты всегда хотел? Да или нет?


Отправлено: 00:30, 19-02-2010 | #8


Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


Pozia,
Вместо "Папка" надо полный путь к этой папке указать, т.е.
Код: Выделить весь код
$aReturn = _FileSearch(@DesktopDir & "\My Folder", '*.jpg')
....
Будет обнулять все файлы с расширением .jpg в папке My Folder, которая находится на рабочем столе, и во всех ее подпапках.
Или указать
Код: Выделить весь код
$aReturn = _FileSearch(@ScriptDir & "\My Folder", '*.jpg')
....
И положить скрипт рядом с папкой My Folder, т.е. в одну папку и скрипт, и My Folder. Вместо My Folder укажите Вашу папку с файлами .jpg.
Это сообщение посчитали полезным следующие участники:

Отправлено: 00:39, 19-02-2010 | #9



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Создание пустышек

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBS/WSH/JS - Создание папок исходя из имени хоста.Создание ярлыков. ufunf Скриптовые языки администрирования Windows 1 18-02-2010 13:59
Создание сайта SaTuR Вебмастеру 1 29-09-2009 01:48
HDD - Создание разделов Artem_1987 Накопители (SSD, HDD, USB Flash) 1 31-07-2008 08:53
Создание меню mazi321 Видео и аудио: обработка и кодирование 2 02-11-2006 06:04
Создание форума Guest Вебмастеру 3 29-03-2004 23:32




 
Переход