Flasher
|
 Posted: Sun Dec 16, 2012 00:37 Post subject: |
 |
|
| berya wrote: | | нуль я убрал потому, что идет нумерация 01 ... 09 010, 011 ... вместо 01 ... 10, 11. |
Условие наличия не менее двух знаков было выполнено, а так не будет.
| berya wrote: | | т.е. начало нумерации с номера последнего файла по счету который был до добвления новых фалов |
Именно так и запрашивал Yurbanizator.
| berya wrote: | | Повторный запуск скрипта ставит нумерацию с 1 |
Тут ряд условий надо выполнить. В общем, меняем 9-20 строки исходника на эти: | Code: | Items.Filter 64, "*.jpg" : PFix = Fd.Self.Name & "_"
With CreateObject("Scripting.FileSystemObject")
If Items.Count > 0 Then
For Each F In .GetFolder(Dir).Files
Ext = LCase(.GetExtensionName(F)) : BN = .GetBaseName(F) : UL = InStrRev(BN, "_") : Test = 0
If UL Then : If PFix = Left(BN, UL) Then Test = IsNumeric(Mid(BN, UL + 1)) : End If
If (Ext = "jpg" Or Ext = "jpeg") And Not Test Then
i = i + 1 : If i < 10 Then i = "0" & i
Do While .FileExists(PFix & i & ".jpg") Or .FileExists(PFix & i & ".jpeg")
i = i + 1 : If i < 10 Then i = "0" & i
Loop : .GetFile(F).Name = PFix & i & "." & Ext
Size = CStr(Fd.GetDetailsOf(Fd.ParseName(F.Name), 31))
x = InStr(Size, "x") : H = Left(Size, x - 2)
.OpenTextFile(PFix & i & ".html", 2, True, -1).Write _
"<h1> " & PFix & i & "." & Ext & " </h1>" & vbNewLine & "height = <b> " & H &_ |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Sun Dec 16, 2012 18:12; edited 4 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
