Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Перемещение нужного количества файлов по папкам 
Author Message
Batya



PostPosted: Fri Oct 19, 2012 15:43    Post subject: Reply with quote

dam-69
Считаю, что неправильно задавать условие по количеству файлов.
Как быть, если, например, выделено только 2 файла - "99.mp3" и "100.mp3"?
Но для нормальной реализации нового желания надо полностью переписать скрипт.

Для быстрого же варианта, если отталкиваться только от твоих условий, то:
Code:
'========== Изменяемые параметры =====================================
'Массив соответствия, задаваемый регулярными выражениями
EF.Add "^00\.mp3$",         "00"
EF.Add "^(0{2,})0\.mp3$",   "$10"
EF.Add "^(\d)\d\.mp3$",     "$10"
EF.Add "^(\d{2,})\d\.mp3$", "$10"
'=====================================================================

И после строки
Code:
List = Split(FSO.OpenTextFile(ListF).ReadAll, vbNewLine)
добавляем:
Code:
If UBound(List) > 99 Then
  EF("^00\.mp3$")     = "000"
  EF("^(\d)\d\.mp3$") = "0$10"
End If

_________________
Нет, я не сплю. Я просто медленно моргаю.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group