Total Commander

BeardFury78
Для сеих нужд есть свой плагин с темой обсуждения.

Спасибо Batya и Flasher за ответы, с помощью плагина PCREsearch 2.5 удалось решить задачу.

Flasher
Как насчёт скрипта, для отображения колонок с названием кодировки с помощью enca? Должен побольше распознавать, чем имеющийся для этой цели плагин.

Dimsok
Она с юникодными именами не работает.

Да, проверил, плохо определяет.

В смысле "плохо определяет"? Она вообще с ними не работает.

Ну я не конкретно про эту кодировку, а с другими пробовал.

Добавлено спустя 24 минуты:

Chardet определяет. Только вряд ли его можно будет прикруть. У меня ещё питон кириллические имена в файлах/путях не распознаёт. Везде ли так, не знаю.

Про какую "эту"? Под юникодными именами понимается всё, что не лезет в ANSI-диапазоны.
А скомпиленный Chardet есть? А то мне лень этим заниматься.

Ну UTF8 тоже вроде как уникодом можно назвать, но enca её распознаёт. И китайский Bg5 тоже вроде заявлен.

А скомпилированного Chardet похоже нет. У меня после установки появился exe файл от неё, но он всё равно ссылается на питон. С портативным питоном может и завёлся бы.

А то мне лень этим заниматься.

А скрипты писать не лень?

Что распознаёт enca внутри файла к делу отношения не имеет. Слово "именами" тому свидетель.

Скрипт садишься и сразу пишешь, а тут чего-то куда-то где-то лезешь, скачиваешь, проверяешь/перепроверяешь, пакуешь, 589 файлов, то да сё, тудым-сюдым...

Здравствуйте!

Имеется потребность выводить в колонках число, количество жестких ссылок для файлов и каталогов. Или хотя-бы подсветить файл, имеющий копии посредством жестких соединений.

VBS cкрипт могу попробовать написать самостоятельно. Но ума не приложу какие объекты или методы использовать для решения данной задачи?
Старался прочесть много разной документации, но ничего подобного пока не нашел, продолжаю искать.
Использовал пока только свойство Attributes из FileSystemObject. Что дало возможность определять, является ли файл символической ссылкой и подкрашивать в соответствующий цвет. Но толку от этого мало, так как символьные ссылки и так обозначаются соответствующей иконкой.

Да, наверное у меня для решение этой задачи весьма ограниченно время, поэтому-то и спешу просить пинка в нужном направлении. Хотя вопрос может и глуп, может и сам найду что нужно. Но искать приходится на скорую руку.

SilverVox
К данному плагину прибегают, когда нет нормальных вариантов. А они давно известны:
[=ntlinks.Жестких ссылок]
[=nl_info.Число жёстких ссылок]

Flasher
Вы имеете ввиду контентные плагины?
Чего, это я так не досмотрел. Лоханулся совсем по детски.

Спасибо!

Добрый день.
Что необходимо исправить в сприпте ниже - на незнакомом формате выдает ошибку "несоответствие типа FormatCurrency"?

[cut="Скрипт"]

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

' Script for WinScriptAdv content plugin

Dim FSO, Name
Dim ArrPN, objRegEx, Matches
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objRegExp = CreateObject("VBScript.RegExp")
Name = FSO.GetBaseName(filename)
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern="(\d+)(\D)(\d\d)"

ArrPN = split(Name, " ", -1, vbTextCompare)

For i = 0 to 13 Step 1

 If i > UBound (ArrPN) Then
  ReDim Preserve ArrPN(i)
  ArrPN(i) = ""
 Else
	Set Matches = objRegExp.Execute(ArrPN(i))
	If IsDate(ArrPN(i)) Then
		ArrPN(i) = FormatDateTime(ArrPN(i), 1)
	elseIf IsNumeric(ArrPN(i)) Then
		ArrPN(i) = FormatNumber(ArrPN(i), 0)
	elseIf Matches.Count > 0 Then
		ArrPN(i) = FormatCurrency(objRegExp.Replace(ArrPN(i), "$1") & ","& oNum = objRegExp.Replace(ArrPN(i), "$3"), -1, -1)
	End If
  ArrPN(i) = ArrPN(i)
 End If
Next

content= ArrPN(0)
content1= ArrPN(1)
content2= ArrPN(2)
content3= ArrPN(3)
content4= ArrPN(4)
content5= ArrPN(5)
content6= ArrPN(6)
content7= ArrPN(7)
content8= ArrPN(8)
content9= ArrPN(9)
content10= ArrPN(10)
content11= ArrPN(11)
content12= ArrPN(12)
content13= ArrPN(13)

Set objRegExp = Nothing
Set FSO = Nothing

[/cut]

ZZZAlexZZZ
Сперва бы не помешало задачу целиком описать.

Total Commander

[wdx] WinScript Advanced Content Plugin (x86\x64) (new)