Batya

|
Posted: Fri Oct 19, 2012 15:43 Post subject: |
|
|
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 |
_________________ Нет, я не сплю. Я просто медленно моргаю. |
|