Flasher
|
 Posted: Sat Jul 09, 2016 22:28 Post subject: |
 |
|
1) Ну, здрасьте. А зачем внутренние кавычки? В шапке пример имеет только наружные. И ; на конце там совсем ни к чему.
| Code: | Filt = "*Melissa Clarke*;*Mel Clarke*;*Clarke*;*Lucy Pinder*;*Pinder*;*Holly Peers*;*Peers*;*Lucy Vixen*;*Lucy Collet*;*lucy v*" |
Для того, чтобы было удобно редактировать, можно писать в несколько строк. Пример (в качестве разделителя для нового скрипта возьмём "|"):
| Code: | Filt = "name.txt|name 1.txt|name 1*.txt|name *1.*|" &_
"2.txt|name2.txt|name 2.txt|name *2.txt|name 2*.*|" &_
"3.txt|name 3.*|name3.txt|name 4.txt|name *4*.txt" |
B в Sub-процедуре для новых условий меняем
| Code: | Items.Filter 73920, WScript.Arguments(0)
If Items.Count Then
Dict.AddNew : Dict("Name") = FSO.GetFileName(Fold)
Dict("Count") = Items.Count
End If : Items.Filter 73888, "*" |
на
| Code: | For Each F in Split(Filt, "|")
Items.Filter 73920, F
If Items.Count Then
Dict.AddNew : Dict("Name") = F
Dict("Count") = Items.Count
End If
Next : Items.Filter 73888, "*" |
Сам пока не тестировал. Хотя нет, тут кое-что ещё нужно. Сейчас...
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
