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: Поиск с исключением (search with exclude) 
Author Message
Orion9



PostPosted: Sat Feb 10, 2024 12:26    Post subject: Reply with quote

Script Content Plugin 0.2.0.2
https://wincmd.ru/plugring/script_wdx.html

Плагин устарел и имеет альтернативу. И все же я прогнал через него скрипт - просто посмотреть, как оно должно работать.

Code:
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

content = qDriveType(fs.GetDriveName(filename))
'content1 = filename
'content2 = fs.GetDriveName(filename)

Function qDriveType(drvpath)
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(drvpath)
    Select Case d.DriveType
        Case 0: t = "Unknown"
        Case 1: t = "Removable"
        Case 2: t = "Fixed"
        Case 3: t = "Network"
        Case 4: t = "CD-ROM"
        Case 5: t = "RAM Disk"
    End Select
   qDriveType = t
End Function

set fs=nothing

Code:
1_SearchFor=
1_SearchIn=
1_SearchText=
1_SearchFlags=0|002002000020|||||||||0000|||
1_plugin=script.Result contains Fix & "tcmediainfo.Stream Count.Audio only" > 1

Теперь работает как надо: отбираются файлы с двумя и более аудиодорожками только на жестких дисках - сетевые и прочие игнорируются/исключаются.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group