Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
Для начала установить плагин по общим правилам (1, 2, 3).dzigloTC писал(а):Вы не могли бы подробнее рассказать, как это сделать?
Код: Выделить всё
;:::::::::::::::::::::::::::::: TextSearch.au3 :::::::::::::::::::::::::::::
; Назначение: поиск вхождений заданных подстрок в текстовом содержимом файла
; Положить blb2txt.exe в %COMMANDER_PATH%\Plugins\wdx\WinScriptsAdv\Scripts\
; Программа доступна по следующей ссылке: http://balabolka.site/blb2txt.zip
; Поддержка: azw, azw3, chm, djvu, doc(x), eml, epub, fb2, fb3, htm(l), odp,
; ods, odt, mobi, litmht, pdb, pdf, ppt(x), prc, rtf, tcr, wpd, wri, xls(x),
; а также любых текстовых файлов по списку заданных в options.ini расширений
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
#NoTrayIcon
Opt('MustDeclareVars', 1)
Dim $FileName
If FileGetSize($FileName) = 0 Then
$FileName = ObjCreate('Shell.Application').NameSpace(0).ParseName($FileName).ExtendedProperty('LinkTarget')
If Not $FileName Then Exit
If Not FileGetSize($FileName) Then Exit
EndIf
Dim $Ext, $PID, $Text, $Text2, $Content, $Content1, $Content2
$Ext = StringRegExp($FileName, '((?<=\.)[^.]+|)$', 1)[0]
If Not $Ext Then Exit
If StringInStr('|azw|azw3|chm|djvu|doc|docx|eml|epub|fb2|fb3|htm|html|lit|mht|mobi|odp|ods|odt|pdb|pdf|ppt|pptx|prc|rtf|tcr|wpd|wri|xls|xlsx|', '|' & $Ext & '|', 2) Then
$PID = Run('"' & EnvGet('COMMANDER_PATH') & '\Plugins\wdx\WinScriptsAdv\Scripts\blb2txt.exe" -f "' & $FileName & '" -o -rpn -sn -ss','', 0, 2)
While 1
$Text = StdoutRead($PID, 1)
If $Text Then
If $Text = $Text2 Then ExitLoop
EndIf
$Text2 = $Text
WEnd
$Text2 = ''
StdioClose($PID)
Else
Dim $oFile
$oFile = FileOpen($FileName)
$Text = FileRead($oFile)
FileClose($oFile)
EndIf
$Content = StringInStr($Text, 'искомый текст 1')
$Content1 = StringInStr($Text, 'искомый текст 2')
$Content2 = StringInStr($Text, 'Искомый текст 3')
$Text = ''Вместо Заголовок 1/2/3 пишем свои именования полей.options.ini писал(а):[Script]
ActiveScripts=...|TextSearch
; тут остальное
[TextSearch]
Script=TextSearch.au3
content=Заголовок 1
content1=Заголовок 2
content2=Заголовок 3
extensions=azw|azw3|bar|chm|cfg|conf|djvu|doc|docx|eml|epub|fb2|fb3|inf|ini|ion|htm|html|lit|lng|log|lst|me|mht|mobi|odp|ods|odt|pdb|pdf|ppt|pptx|prc|rtf|tcr|text|txt|wpd|wri|xls|xlsx|etc
FoldersPaths=0
[/cut]Перезапустить ТС и искать на вкладке Плагины по принципу:[ExeScriptParsers]
au3=%COMMANDER_PATH%\Scripts\AutoIt\AutoIt3_x64.exe
Суть в том, что данные поля(ей) необходимо как-то использовать и выдать полученный результат. Либо существующие плагины не предоставляют необходимого.Zmy писал(а):Не легче ли создать свой собственный набор колонок?
С любыми полями, из любых плагинов.
Плагин - это просто dll'ка с расширением w?x, в ряде случаев её можно запросто загрузить и вызывать её функции самыми что ни на есть стандартными средствами (точно так же их и Гислер подгружает).Zmy писал(а):С помощью стандартных средств такого, как хочет TS, сделать невозможно.
Чтобы такое делать, нужно понимать, как Гислер подгружает плагины.
Эх, давно не брал я шашки в рукиMonarch-LFV писал(а):Возникла необходимость вытаскивать содержимое определеной ячейки в файле Excel (например "Лист1!C12")
Код: Выделить всё
'=================================================
' Script for WinScriptAdv content plugin
' Возвращает значение ячейки Excel
'=================================================
'========== Изменяемые параметры =================
Const Addr = "Лист1!C12" ' Адрес ячейки
'=================================================
content = Result(filename, Addr)
Function GetCellValue(pXl, pFile, pAddr)
pXl.Visible = False
pXl.DisplayAlerts = False
Call pXl.Workbooks.Open(pFile, , True)
GetCellValue = pXL.Range(pAddr)
End Function
Function Result(pFile, byVal pAddr)
Dim objXL
Set objXL = CreateObject("Excel.Application")
On Error Resume Next
Result = GetCellValue(objXL, pFile, pAddr)
On Error Goto 0
objXL.Quit()
Set objXL = Nothing
End FunctionКод: Выделить всё
'=================================================
' Script for WinScriptAdv content plugin
' Возвращает значение последней ячейки Excel в указанном столбце
'=================================================
'========== Изменяемые параметры =================
Const Addr = "Лист1!C" ' Адрес ячейки без строки
'=================================================
content = Result(filename, Addr)
Function GetCellValue(pXl, pFile, pAddr)
Dim lRow, lSh
pXl.Visible = False
pXl.DisplayAlerts = False
Call pXl.Workbooks.Open(pFile, , True)
If InStr(pAddr, "!") > 0 Then
Set lSh = pXl.Worksheets(Left(pAddr, InStr(pAddr, "!") - 1))
Else
Set lSh = pXl.ActiveSheet
End If
lRow = lSh.UsedRange.Find("*", , , , , 2).Row
GetCellValue = lSh.Range(pAddr & CStr(lRow))
Set lSh = Nothing
End Function
Function Result(pFile, byVal pAddr)
Dim objXL
Set objXL = CreateObject("Excel.Application")
On Error Resume Next
Result = GetCellValue(objXL, pFile, pAddr)
On Error Goto 0
objXL.Quit()
Set objXL = Nothing
End FunctionКод: Выделить всё
=ВПР("Итого по смете:";B:C;2;ЛОЖЬ)Код: Выделить всё
''=================================================
' Script for WinScriptAdv content plugin
' Возвращает значение найденной ячейки Excel в указанном столбце
' по принципу =ВПР("Итого по смете:";B:C;2;ЛОЖЬ)
'=================================================
'========== Изменяемые параметры =================
Const Addr = "Лист1!C" ' Адрес ячейки без строки
Const columnConst = "B:B" ' В каких столбцах должно быть найдено постоянное значение
Const ValueConst = "Итого по смете:" ' Само постоянное значение
'=================================================
content = Result(filename, Addr)
Function GetCellValue(pXl, pFile, pAddr)
Dim lRow, lSh
pXl.Visible = False
pXl.DisplayAlerts = False
Call pXl.Workbooks.Open(pFile, , True)
If InStr(pAddr, "!") > 0 Then
Set lSh = pXl.Worksheets(Left(pAddr, InStr(pAddr, "!") - 1))
Else
Set lSh = pXl.ActiveSheet
End If
lRow = lSh.Range(columnConst).Find(ValueConst, , , , , 1).Row
GetCellValue = lSh.Range(Addr & lRow)
Set lSh = Nothing
End Function
Function Result(pFile, byVal pAddr)
Dim objXL
Set objXL = CreateObject("Excel.Application")
On Error Resume Next
Result = GetCellValue(objXL, pFile, pAddr)
On Error Goto 0
objXL.Quit()
Set objXL = Nothing
End FunctionКод: Выделить всё
' Script for WinScriptAdv content plugin
'
' Разделяет имена папок и файлов по заданному разделителю
'========== Изменяемые параметры =================
Const Separator = " - "
'=================================================
Dim fs, f, fn
on error resume next
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(filename)
fn = f.name ' Имя папки
fn = fs.GetBaseName(filename) ' Имя файла
content = fn ' Полное имя файла
content1 = split(fn, Separator)(0) ' Часть 1
content2 = split(fn, Separator)(1) ' Часть 2
content3 = split(fn, Separator)(2) ' Часть 3Код: Выделить всё
[Script]
ActiveScripts=Test
[Test]
Script=Test.vbs
content=Test
extensions=*
FoldersPaths=0
Код: Выделить всё
content = 1Код: Выделить всё
Crash in plugin WinscriptsADV.wdx:
External exception EEDFADE