Нужен скрипт "поиск+переименование+перенос"

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Нужен скрипт "поиск+переименование+перенос"
Goto page Previous 1, 2, 3, 4

Total Commander Forum Index -> Автоматизация Total Commander

View previous topic :: View next topic

Author

Message

Batya

Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия

(Separately) Posted: Tue Feb 19, 2013 22:19 Post subject:

Petr_Ch wrote:

А надо чтобы в каждом с 0001 начиналась.

Продолжаем преобразования.
Вместо j объявляем другую переменную:

Code:

Dim Path, Name, FullPath, SepPos, SepPosArr, IsFolder, BaseName, NUM
Set NUM = CreateObject("Scripting.Dictionary")

Строку "j = j + 1" убираем.

Вместо

Code:

NameArr(r) = "out\" & Right(String(4, "0") & j, 4)

пишем

Code:

If NUM.Exists(LCase(Path)) Then NUM((LCase(Path))) = NUM(LCase(Path)) + 1 Else NUM.Add LCase(Path), 1
NameArr(r) = "out\" & Right(String(4, "0") & NUM((LCase(Path))), 4)

_________________
Нет, я не сплю. Я просто медленно моргаю.

Petr_Ch

Joined: 02 Feb 2013
Posts: 17

(Separately) Posted: Wed Feb 20, 2013 19:42 Post subject:

Ура. Всё работает. Большое спасибо!

Display posts from previous:

	Total Commander Forum Index -> Автоматизация Total Commander	All times are GMT + 4 Hours Goto page Previous 1, 2, 3, 4
Page 4 of 4

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum