View previous topic :: View next topic |
Author |
Message |
cojoc
Joined: 04 Sep 2009 Posts: 144
|
(Separately) Posted: Wed Apr 01, 2015 21:04 Post subject: Выявление пробелов в последовательности файлов |
|
|
Помогите пожалуйста со скриптом, который показывал бы, каких имён не достаёт в закономерной последовательности в именах файлов.
Пример:
0.jpg
1.jpg
2.jpg
4.jpg
6.jpg
Результат работы скрипта (желательно сохранённый в текстовом файле):
3.jpg
5.jpg
Понимаю, что закономерность может быть сложной, мне достаточно только самой простой с числами. У меня есть много отдельных страниц книги по одной (>600), хотелось бы узнать все ли страницы есть. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Apr 01, 2015 21:45 Post subject: |
|
|
Файлы выбираются или нет? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
cojoc
Joined: 04 Sep 2009 Posts: 144
|
(Separately) Posted: Wed Apr 01, 2015 22:58 Post subject: |
|
|
Из выделенных файлов.
Возможно это слишком объёмный труд для скрипта. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Apr 01, 2015 23:27 Post subject: |
|
|
cojoc
Я предлагаю установку курсора на последнем файле.
А зачем тут файл с именами? Не лучше просто номера собрать через запятую или пробел? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
cojoc
Joined: 04 Sep 2009 Posts: 144
|
(Separately) Posted: Wed Apr 01, 2015 23:49 Post subject: |
|
|
В файл потому что их может быть много - всех не запомнить и чтобы потом можно было вернуться к списку недостающих. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Apr 01, 2015 23:58 Post subject: |
|
|
Так пойдёт?
Code: | '===================================================
' Найти отсутствующие файлы по нумерации №.ext
' при установке курсора на файле с последним номером
' Условие: путь запуска - пустой
' Параметр: %N
'===================================================
CD = CreateObject("WScript.Shell").CurrentDirectory
List = "List.txt" : F = WScript.Arguments(0)
With CreateObject("Scripting.FileSystemObject")
Ext = .GetExtensionName(F)
For i = 0 to .GetBaseName(F)
Name = i & "." & Ext
If Not .FileExists(Name) Then S = S & vbNewLine & Name
Next : .CreateTextFile(List,1,True).Write Mid(S, 3)
End With : CreateObject("Shell.Application").Open(CD & "\" & List) |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Thu Apr 02, 2015 17:22; edited 1 time in total |
|
Back to top |
|
|
Вахмурка
Joined: 27 Dec 2004 Posts: 2584 Location: Большая деревня Москва
|
|
Back to top |
|
|
cojoc
Joined: 04 Sep 2009 Posts: 144
|
(Separately) Posted: Thu Apr 02, 2015 15:47 Post subject: |
|
|
Flasher
Супер! Спасибо большое Flasher, работает шустро
Вахмурка Спасибо за альтернативу. |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2571
|
(Separately) Posted: Fri Apr 03, 2015 10:04 Post subject: |
|
|
Попытка уместить в кнопку: Code: | TOTALCMD#BAR#DATA
%comspec% /c del Список.txt & for /L %# in (1,1,
100 ) do if not exist %%#.jpg echo %%#.jpg>> Список.txt
WCMICONS.DLL,79
Список пропущенных среди 100 страниц
1
-1
| Если число страниц требуется менять часто, можно вместо числа страниц поставить знак вопроса и вводить его каждый раз при вызове кнопки (нажать HOME, число и ENTER).
Для проверки, начиная с нулевой страницы, надо in (1 на in (0 заменить. |
|
Back to top |
|
|
|