Flasher
|
 Posted: Sat Oct 29, 2016 13:14 Post subject: |
 |
|
ОК. Без чесни и с любой сортировкой, если всё так, как я понял (vbs):
| Code: | ' Параметр: %L
With CreateObject("Scripting.FileSystemObject")
Set List = .OpenTextFile(WScript.Arguments(0))
Do : F = List.ReadLine : N = .GetBaseName(F)
If IsNumeric(N) And .FileExists(F) Then _
.GetFile(F).Name = "set" & Int(N/3 - 0.1) + 1 & "-" & Int((N/3 - Int(N/3 - 0.1))*3 + 0.1) & ".png"
Loop Until List.AtEndOfStream
End With |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
