Как вывести в колонке часть пути, а не весь путь?

[Ciber SLasH]

Приветствую всех!
Подскажите пожалуйста, как вывести в колонку часть пути?
Задача: есть пути C:\Test\1\a; D:\Test\1\b
каким плагином/скриптом вырезать из пути по RegExp-у \w:\\Test\\1\\ и результат поместить в колонку?

[MVV]

Если нужно просто заменить букву диска на другую, можно и без плагинов: w[=tc.Путь:2-].

[Ciber SLasH]

Нет, нужно именно вырезать часть пути. Или вывести, к примеру, последние 20 символов из пути.

[sa]

вывести, к примеру, последние 20 символов из пути

Может, так? [=tc.Путь:-21-]

[Flasher]

Ciber SLasH
Плагин так и называется Regexp (там же примеры в ini).

[Ciber SLasH]

sa
Благодарю! Тоже вариант.
Flasher
Плагин RegExp не получает полный путь файла, а только имя:

[sa]

Если нужно выделить 2-3 последние папки пути, то можно воспользоваться плагином filex:
[=filex.В подпапке папки]\[=filex.В подпапке]\[=filex.В папке]

[Ciber SLasH]

sa
FileX тоже пригодился.
В общем задачу решил: FileX + script
секция [CustomFields] wincmd.ini:

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

Headers1=Путь (последние 3 каталога)\nПуть (без первых 3 каталогов)
Contents1=[=filex.GtGrandPaDir"\"][=filex.GrandPaDir"\"][=filex.ParentDir"\"]\n[=script.Result]
Options1=-1|1

script.ini

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

[Script]
Section=getPartialPath

[getPartialPath]
Script=.\Scripts\getPartialPath.js
LongName=1

getPartialPath.js

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

var depth = 3;	// глубина вложенности каталогов в пути, которую нужно отбросить
var reg = new RegExp("^\\w:\\\\([^\\\\]+\\\\){"+depth+"}(.*)$");
var m = reg.exec(getPath(filename));

Content = "...\\"+m[m.length-1]+"\\";

////////////////////////////////////////////////////////////////////////////////
//==[ Funcs ]===================================================================
////////////////////////////////////////////////////////////////////////////////

//--[ Возвращает путь из полного имени файла ]----------------------------------
function getPath(fullName) {
	return fullName.slice(0, fullName.lastIndexOf('\\'));
}

Добавлено спустя 2 часа 1 минуту:

Пришлось переделывать, не везде JS-скрипт отрабатывал.
Переделал на VBS (т.к. объект WScript в JS не доступен - ругань на WScript.CreateObject):

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

Dim FSO, Path, depth, re, m, sm, ret
'Глубина вложенности каталогов в пути, которую нужно отбросить
depth = 3
Set FSO = CreateObject("Scripting.FileSystemObject")
Set re = New RegExp
re.Pattern = "^\w:\\([^\\]+\\){" & depth & "}(.*)$"
Path = Left(filename, InStrRev(filename, "\"))
Set m = re.Execute(Path)
ret = filename
If m.Count > 0 Then
	Set sm = m(0)
	If sm.SubMatches.Count > 0 Then
		ret = "...\" & sm.SubMatches(sm.SubMatches.Count-1)
	End If
End If
content = ret

Set FSO = Nothing
Set re = Nothing
Set m = Nothing
Set sm = Nothing

[Flasher]

объект WScript в JS не доступен

Для этого есть new ActiveXObject.

[Serge Yolkin]

Точно, причём сам WScript недоступен в script плагине и для VBS.