|
Получение списка файлов в скрипте и изменение даты
|
|
| Andrey_A | Дата: Четверг, 01.12.2016, 09:34 | Сообщение № 1 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
Вынесены сообщения в отдельную тему...
.
|
| |
| |
| Паразит | Дата: Четверг, 01.12.2016, 09:34 | Сообщение № 2 |
Майор
На сайте с: 27.02.2016
Город: Быково
Сообщений: 86
|
Привет. Такая задача, для тех, кто хорошо знает AutoIt.
Я в Total Commander выделяю файлы с параметром %P%S.
Как мне получить строковый массив из выделенных файлов с полными путями?
Код For $i = 0 To $CmdLine[1]
$sss = $i
;MsgBox(0, "111", sss)
Next
MsgBox(0, "111", sss)
|
| |
| |
| Andrey_A | Дата: Четверг, 01.12.2016, 09:34 | Сообщение № 3 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
Цитата Паразит (  ) выделяю файлы с параметром %P%S
Зачем %P%S ?
Запускайте скрипт с параметром %L - это временный файл:
Код #include <Array.au3> If 0=$CmdLine[0]Then Exit $sLine=FileRead($CmdLine[1]) $aPath=StringRegExp($sLine,"(?m)^([^\r\n]?.*)",3) _ArrayDisplay($aPath,"Массив $aPath") For $i=0 To UBound($aPath)-1 $sPath=$aPath[$i] MsgBox(4096,"Переменная","$sPath =>"&$sPath&"<=") Next
---------
Если всё таки нужен %P%S , то пути уже в массиве $CmdLine
Но %P%S имеет ограничение...
Код #include <Array.au3>
_ArrayDisplay($CmdLine,"Массив $CmdLine")
For $i=1 To $CmdLine[0]
$sPath=$CmdLine[$i]
MsgBox(4096,"Переменная","$sPath =>"&$sPath&"<=")
Next
.
|
| |
| |
| Паразит | Дата: Четверг, 01.12.2016, 09:34 | Сообщение № 4 |
Майор
На сайте с: 27.02.2016
Город: Быково
Сообщений: 86
|
Андрей, а как сделать так, чтобы все полученные аргументы выводились в одном окне через пробел?
Код #include <Array.au3>
For $i=1 To $CmdLine[0]
$sPath=$CmdLine[$i]
Next
MsgBox(0,"",""&$sPath&"") |
| |
| |
| asmadeus | Дата: Четверг, 01.12.2016, 09:34 | Сообщение № 5 |
|
|
Паразит, а так не проходит?
Код #include <Array.au3>
For $i=1 To $CmdLine[0]
$sPath&=$CmdLine[$i]&" "
Next
MsgBox(0,"",""&$sPath&"") |
| |
| |
| Andrey_A | Дата: Четверг, 01.12.2016, 09:34 | Сообщение № 6 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
Цитата Паразит ( ) как сделать так, чтобы все полученные аргументы выводились в одном окне через пробел
В примере asmadeus, нужно заранее объявить переменную
Код #include <Array.au3>
Local $sPath=''
For $i=1 To $CmdLine[0]
$sPath&=$CmdLine[$i]&" "
Next
MsgBox(0,"",""&$sPath&"")
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
Можно и так:
Код #include <Array.au3>
$sLine=_ArrayToString($CmdLine,' ',1)
MsgBox(4096,"Переменная $sLine","$sLine =>"&$sLine&"<=")
.
|
| |
| |
| asmadeus | Дата: Четверг, 01.12.2016, 09:35 | Сообщение № 7 |
|
|
Andrey_A, офигеть, я уже советы по автоиту даю. Навскидку глянул, код не тестировал. Главное - направление 
Хотя, как модератор, прошу учесть, что есть тема Скриптинг на Autoit, потому не стоит плодить однотипные темы. Все сообщения перенесу
|
| |
| |
| Andrey_A | Дата: Четверг, 01.12.2016, 09:35 | Сообщение № 8 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
asmadeus, я бы оставил тему , т.к. она связана именно с Total Commander (с его параметрами)
Что касается темы "Скриптинг на Autoit", то она общая, но вот для подтем нужно создавать другую (а их можнт быт сотни...) - я вот никак не соберусь начать тему "Autoit - Пишем без пробелов или как экономить место в скрипте..." (есть уже более 50-ти советов, но времени для этого пока нет)
.
|
| |
| |
| asmadeus | Дата: Четверг, 01.12.2016, 09:35 | Сообщение № 9 |
|
|
Andrey_A, ну извини, ошибся, впредь не буду лезть
|
| |
| |
| Паразит | Дата: Четверг, 01.12.2016, 09:35 | Сообщение № 10 |
Майор
На сайте с: 27.02.2016
Город: Быково
Сообщений: 86
|
Андрей, а почему у меня не получается ко всем переданным файлам изменить дату изменения?
Код #include <Array.au3>
$sLine=_ArrayToString($CmdLine,' ',1)
$var = FileSetTime($sLine, "20031101")
Изменяет только первый файл.
Сообщение отредактировал Паразит - Среда, 30.11.2016, 16:20 |
| |
| |
| Andrey_A | Дата: Четверг, 01.12.2016, 09:35 | Сообщение № 11 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
1. Функция FileSetTime поддерживает файл или папку с маской
2. Ваша строка $sLine под это не походит, более того странная передача.., а если в пути будут пробелы, то вся строка превратится в мусор
Сделайте это в цикле:
Код For $i=1 To $CmdLine[0]
FileSetTime($CmdLine[$i], "20031101")
Next
|
| |
| |
| Паразит | Дата: Четверг, 01.12.2016, 09:35 | Сообщение № 12 |
Майор
На сайте с: 27.02.2016
Город: Быково
Сообщений: 86
|
Андрей, это наконец то, чего я добивался, спасибо
|
| |
| |
| asmadeus | Дата: Четверг, 01.12.2016, 09:36 | Сообщение № 13 |
|
|
Паразит, отлично, а сразу поставит задачу нельзя было?
|
| |
| |
| Паразит | Дата: Четверг, 01.12.2016, 09:36 | Сообщение № 14 |
Майор
На сайте с: 27.02.2016
Город: Быково
Сообщений: 86
|
Андрей, а почему такая же конструкция не получается на VBScript?
Код Date FileName, "2003-11-01"
Sub Date(FileName, NewDate)
Dim WshArguments, i, list, lists, FileName1
set WshArguments=WScript.Arguments
if WshArguments.count()=0 then
MsgBox "Я не вижу аргументов"
else
for i=0 to WshArguments.Count-1
'list = list & WshArguments(i) & " "
'list = WshArguments(i)
'list.ModifyDate = NewDate
'WshArguments.ModifyDate = NewDate
Next
'' MsgBox list
End if
End Sub
Для метода ModifyDate требуется объект.
Но если я его создаю, то появляется проблема, что нужна строка, а не объект. Получается замкнутый круг.
Как можно обойти эти подводные камни?
Может быть, надо как-то создавать промежуточную переменную, и объявлять её как строку?
|
| |
| |
| Andrey_A | Дата: Четверг, 01.12.2016, 10:55 | Сообщение № 15 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
Цитата Паразит ( ) почему такая же конструкция не получается на VBScript?
Потому что VBS кривой))) Я давно перешёл на Autoit (он 1. проще в понимании, 2. гораздо больше примеров 3. полно уже готовых UDF функций, только "подпиливай" под себя)
Что-то простое на vbs можно легко сделать, но чем сложнее задача, тем сильнее приходится выкручивать мозг.
Это поняли сами создатели и сделали PowerShell ...
Код Dim Shell, FSO
Set Shell = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
Data = "2012-01-01"
Cnt = WScript.Arguments.Count
If Cnt = 0 Then
MsgBox "Нет параметров..."
Else
For i = 0 To Cnt - 1
File = WScript.Arguments(i)
SetModifyDate File, Data
Next
End If
MsgBox "Выполнено!"
Sub SetModifyDate(File, NewDate)
FolderPath = FSO.GetParentFolderName(File) ' родительский путь
FileName = FSO.GetFileName(File) ' имя с расширением
Set objFolder = Shell.NameSpace(FolderPath)
Set objItem = objFolder.ParseName(FileName)
objItem.ModifyDate = NewDate
End Sub
Set Shell = Nothing
Set FSO = Nothing
WScript.Quit
[ps]
Всё не освоишь. Рекомендую определиться с выбором изучением языка...
[/ps]
|
| |
| |
|
