Поиск с исключением (search with exclude)

[CaptainFlint]

790
Можно регулярками.

Код: Выделить всё

tc.path !regex ^(\\\\\\\\|Z:\\\\)

В INI-файле обилие слэшей несколько запутывает; реально там записано выражение:

Код: Выделить всё

^(\\\\|Z:\\)

То есть что строка начинается либо с двух слэшей, либо с Z:\ (и проверка выполняется на то, что путь НЕ соответствует этому выражению).

[790]

CaptainFlint Спасибо!
Да, это действует, но только на то, что не показываются специальные значки у видео-файлов, можно отключить раскрашивание видео-файлов на сет.диске. Как выяснилось, это не мешает работать самому плагину wdx_TCMediaInfo. Я ошибался, говоря, что исключение Z:\ из поиска подействовало. Просто плагин заполнил свою базу и поэтому все папки на сет.диске открывались быстро.
У него свои настройки. TCMediaInfo.xml:

Код: Выделить всё

		<Formats>AVI,DIVX,MPEG,MPE,MPG,ASF,VOB,MKV,OGM,M2TS,TS,MTS,MOV,WMV,MP4,3GP,WEBM,MP1,MP2,M4V,AVC,FLV,MKA</Formats>
		<MultiSeparator> / </MultiSeparator>
		<BasePath>base.db</BasePath>
		<MemoryBase>False</MemoryBase>
		<UseBase>True</UseBase>
		<SqlitePath>Sqlite3.dll</SqlitePath>
		<Sqlite64Path>Sqlite3_x64.dll</Sqlite64Path>
		<MediaInfoPath>MediaInfo.dll</MediaInfoPath>
		<MediaInfo64Path>MediaInfo64.dll</MediaInfo64Path>
		<MissedField><empty></MissedField>
		<DataAutoUpdate>True</DataAutoUpdate>

Можно удалить Formats или отключить плагин, но тогда он не будет работать вообще нигде. Походу, это надо обсуждать в "Плагинах" с самим автором.

[Orion9]

Что-то не работает FileX как надо. А именно поле DriveType. У меня не получилось сделать исключение сетевых дисков этим плагином. Чтобы не оффтопить:
viewtopic.php?t=16147

[Orion9]

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

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

Код: Выделить всё

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

Код: Выделить всё

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

Теперь работает как надо: отбираются файлы с двумя и более аудиодорожками только на жестких дисках - сетевые и прочие игнорируются/исключаются.