| View previous topic :: View next topic |
| Author |
Message |
Avada
Joined: 01 Aug 2008
Posts: 9753
Location: Россия, Саратов
|
 (Separately) Posted: Thu Jul 09, 2020 13:05 Post subject: |
 |
|
dzigloTC
Замечание за нарушение правил форума. Ровно никакой повышенной важности ваше выделение полужирным шрифтом не имело. Сообщение приведено к приемлемому состоянию. Кроме того, вы злоупотребляете ненужным цитированием.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
| Back to top |
|
 |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Jul 09, 2020 23:54 Post subject: |
|
|
| dzigloTC wrote: | | Вы не могли бы подробнее рассказать, как это сделать? |
Для начала установить плагин по общим правилам (1, 2, 3).
Потом закинуть этот (с лёгкой правкой предыдущего) скрипт в ...\Plugins\wdx\WinScriptsAdv\Scripts\, выполнив предписания из шапки ¹: TextSearch.au3 | Code: | ;:::::::::::::::::::::::::::::: 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 из корневой папки плагина по схожему принципу: | options.ini wrote: | [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 |
Вместо Заголовок 1/2/3 пишем свои именования полей.
Забрать AuToIt_x64.exe (с учётом битности ТС) из последнего zip-a (autoit-v3.3.15.3.zip на тек. момент), закинуть в удобную папку и прописать путь в соотв. ключе. Пример:
| Quote: | [ExeScriptParsers]
au3=%COMMANDER_PATH%\Scripts\AutoIt\AutoIt3_x64.exe |
winscriptsadv | Заголовок 1 | Рег. выраж. | ^[1-9]
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Segmentum
Joined: 13 Oct 2020
Posts: 21
|
| (Separately) Posted: Mon Nov 30, 2020 00:17 Post subject: |
|
|
| Можно ли использовать в скриптах для WinScript Advanced данные из других wdx плагинов Total Commander? |
|
| Back to top |
|
|
Skif_off
Joined: 28 Nov 2012
Posts: 1170
|
| (Separately) Posted: Sun Dec 06, 2020 08:47 Post subject: |
|
|
Segmentum
Можно, тут писал, как. |
|
| Back to top |
|
|
Zmy
Joined: 06 Apr 2015
Posts: 75
|
| (Separately) Posted: Mon Dec 07, 2020 18:05 Post subject: |
|
|
Skif_off, вы не поняли тонкий троллинг.
Для чего такое делать?
Не легче ли создать свой собственный набор колонок?
С любыми полями, из любых плагинов.
С помощью стандартных средств такого, как хочет TS, сделать невозможно.
Чтобы такое делать, нужно понимать, как Гислер подгружает плагины.
Для чего нужны посредники?
Такое можно сделать, но возникает вопрос:
Зачем создавать сложное, если можно сделать лёгкое? |
|
| Back to top |
|
|
Skif_off
Joined: 28 Nov 2012
Posts: 1170
|
| (Separately) Posted: Mon Dec 07, 2020 19:40 Post subject: |
|
|
| Zmy wrote: | Не легче ли создать свой собственный набор колонок?
С любыми полями, из любых плагинов. |
Суть в том, что данные поля(ей) необходимо как-то использовать и выдать полученный результат. Либо существующие плагины не предоставляют необходимого.
| Zmy wrote: | С помощью стандартных средств такого, как хочет TS, сделать невозможно.
Чтобы такое делать, нужно понимать, как Гислер подгружает плагины. |
Плагин - это просто dll'ка с расширением w?x, в ряде случаев её можно запросто загрузить и вызывать её функции самыми что ни на есть стандартными средствами (точно так же их и Гислер подгружает).
В принципе, разнообразные данные можно получать с помощью консольных утилит, тупо запуская и читая их вывод, без использования других wdx-плагинов напрямую (хотя они и могут упростить). |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
