Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

[wdx] WinScript Advanced Content Plugin (x86\x64) (new)
Goto page Previous  1, 2, 3 ... 8, 9, 10, 11, 12  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Плагины Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
BeardFury78



Joined: 25 Aug 2016
Posts: 164

Post (Separately) Posted: Sat Jan 28, 2017 20:13    Post subject: Reply with quote

Flasher
Я переустанавливал этот плагин, пробовал запускать только чистый плагин без других скриптов, пробовал ставить только 64 bit, но почему-то все время при переходе в ИГП к этому плагину происходит вылет. Сами колонки, использующие скрипты от этого плагина, работают нормально. У вас не происходит вылет, когда совершаете эти действия "ИГП - поле "=?[Плагин]" - поле "winscriptsadv"?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11758
Location: Москва

Post (Separately) Posted: Sat Jan 28, 2017 20:32    Post subject: Reply with quote

BeardFury78
Нет, я же прекрасно понял, о чём речь. Но у меня не x64. Предлагаю сравнить с x32.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
BeardFury78



Joined: 25 Aug 2016
Posts: 164

Post (Separately) Posted: Sat Jan 28, 2017 20:40    Post subject: Reply with quote

Flasher
Ладно, проблему решил окольным путем. Просто скопировал поле скрипта из набора колонок и вставил в ИГП.
Back to top
View user's profile Send private message
Aquila



Joined: 22 Sep 2016
Posts: 21

Post (Separately) Posted: Sun Jan 29, 2017 00:30    Post subject: Reply with quote

BeardFury78
Аналогично, не работает ни в MRT, ни в Custom Columns, приходится вручную вводить. TC - 9.0a x32/x64. C 8.52 проблемы не было.
_________________
«Two things are infinite: the universe and the human stupidity.
... and a'm not so sure about the universe».
Albert Einstein
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11758
Location: Москва

Post (Separately) Posted: Sun Jan 29, 2017 01:20    Post subject: Reply with quote

BeardFury78
А если встать на полях этого скрипта, покажет ошибку?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
BeardFury78



Joined: 25 Aug 2016
Posts: 164

Post (Separately) Posted: Sun Jan 29, 2017 01:51    Post subject: Reply with quote

Flasher
Да, на этом скрипте, только не показывает ошибку, а просто крашится. С сообщением "прекращена работа Тотала".
Back to top
View user's profile Send private message
Aquila



Joined: 22 Sep 2016
Posts: 21

Post (Separately) Posted: Sun Jan 29, 2017 10:22    Post subject: Reply with quote

Flasher
До выбора полей с любым скриптом, даже если Ваш один только, не доходит. x64 молча крашится, x32 с ошибкой


_________________
«Two things are infinite: the universe and the human stupidity.
... and a'm not so sure about the universe».
Albert Einstein
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11758
Location: Москва

Post (Separately) Posted: Sun Jan 29, 2017 13:12    Post subject: Reply with quote

Aquila wrote:
x32 с ошибкой
Вот и у меня почти на всех вываливает. Указанный стал перемещать в первом ключе и в порядке следованя секций, тоже стал выкидывать это окно.
Но почему-то для полей этого и этого скрипта никогда не крашит. Shocked
Попытки выявить закономерность не увенчались успехом...

Кстати, про ошибку эту ещё 11 октября на оффоруме писали.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Aquila



Joined: 22 Sep 2016
Posts: 21

Post (Separately) Posted: Sun Jan 29, 2017 15:54    Post subject: Reply with quote

Flasher
Я в курсе, мне лень писать было ..... Я заметил как только появилась 9-я версия
_________________
«Two things are infinite: the universe and the human stupidity.
... and a'm not so sure about the universe».
Albert Einstein
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11758
Location: Москва

Post (Separately) Posted: Sun Jan 29, 2017 16:18    Post subject: Reply with quote

Aquila
А протестировать на указанных скриптах нет желания?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Aquila



Joined: 22 Sep 2016
Posts: 21

Post (Separately) Posted: Sun Jan 29, 2017 19:06    Post subject: Reply with quote

Flasher
UPD:
С тремя Вашими (MeanCount и два Dicts) работает нормально, дает выбрать поля ...
_________________
«Two things are infinite: the universe and the human stupidity.
... and a'm not so sure about the universe».
Albert Einstein
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11758
Location: Москва

Post (Separately) Posted: Sun Jan 29, 2017 19:19    Post subject: Reply with quote

Aquila
Так с MeanCount же выше якобы не работало. Question
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Aquila



Joined: 22 Sep 2016
Posts: 21

Post (Separately) Posted: Sun Jan 29, 2017 19:30    Post subject: Reply with quote

Flasher
Забыл перезагрузить TC ....

UPD2: Поменял порядок следования скриптов в строке ActiveScripts в ini-файле. Теперь дает выбрать поля и крашится сразу после выбора или через несколько секунд после нажатия Enter. Если перемещать курсор по полям в диалоге выбора, через некоторое время (три-пять секунд) тоже крашится ...
_________________
«Two things are infinite: the universe and the human stupidity.
... and a'm not so sure about the universe».
Albert Einstein
Back to top
View user's profile Send private message
BeardFury78



Joined: 25 Aug 2016
Posts: 164

Post (Separately) Posted: Thu Feb 02, 2017 06:26    Post subject: Reply with quote

А нету ли скрипта для этого плагина, который умел бы искать по регэкспу определенный текст в текстовых файлах? Нужно для переименования в ИГП текстовых файлов, используя в качестве названия определенный текст в самых файлах.
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2185
Location: Москва, Россия

Post (Separately) Posted: Thu Feb 02, 2017 13:56    Post subject: Reply with quote

BeardFury78
Вот мой старый скрипт, где я ещё разбираю XML через рег. выражения:
Code:
Dim FSO, lText
Set FSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
lText = FSO.OpenTextFile(filename, ForReading).ReadAll

content   = GetXmlResult(lText, "Документ", "ИдДок"     )
content1  = GetXmlResult(lText, "Документ", "НомСооб"   )
content2  = GetXmlResult(lText, "Документ", "ДатаСооб"  )
content3  = GetXmlResult(lText, "СвСчет"  , "НомСч"     )
content4  = GetXmlResult(lText, "Файл"    , "ИдФайл"    )
content5  = GetXmlResult(lText, "Документ", "ИдФайлИсх" )
content6  = GetXmlResult(lText, "Документ", "ДатаОбр"   )
content7  = GetXmlResult(lText, "Документ", "КодОбр"    )
content8  = GetXmlResult(lText, "Документ", "РезОбр"    )
content9  = GetXmlResult(lText, "Ошибки"  , "КодОшибки" )
content10 = GetXmlResult(lText, "Ошибки"  , "НаимОшибки")
content11 = GetXmlResult(lText, "Документ", "ТипСооб"   )
content12 = trim(_
            GetXmlResult2(lText, "СвНП"   , "ФИОФЛ", "Фамилия" ) & " " &_
            GetXmlResult2(lText, "СвНП"   , "ФИОФЛ", "Имя"     ) & " " &_
            GetXmlResult2(lText, "СвНП"   , "ФИОФЛ", "Отчество") & " " &_
            GetXmlResult2(lText, "НПИП"   , "ФИОИП", "Фамилия" ) & " " &_
            GetXmlResult2(lText, "НПИП"   , "ФИОИП", "Имя"     ) & " " &_
            GetXmlResult2(lText, "НПИП"   , "ФИОИП", "Отчество") & " " &_
            replace(GetXmlResult2(lText, "СвНП", "НПРО", "НаимОрг"), """, """") & " " &_
            replace(GetXmlResult2(lText, "СвНП", "НПИО", "НаимОрг"), """, """"))
Set FSO = Nothing

Function GetXmlResult(pText, pTag1, pTag2)
  GetXmlResult = ""
  On Error Resume Next
  GetXmlResult = GetXMLValue(pText, pTag1, pTag2)
  If Err.Number <> 0 Then GetXmlResult = ""
  On Error GoTo 0
End Function

' Получить значение из XML
Function GetXMLValue(byVal pText, pParentTag, pTag)
  Dim REx
  Set REx = New RegExp
  REx.Global     = True
  REx.IgnoreCase = True
  REx.Pattern = "< *" & pParentTag & "[\r ][^>]*" & pTag & " *= *""([^>=]+) *""[\r >]"
  If REx.Test(pText) Then GetXMLValue = REx.Execute(pText)(0).SubMatches(0)
End Function

Function GetXmlResult2(pText, pTag1, pTag2, pTag3)
  GetXmlResult2 = ""
  On Error Resume Next
  GetXmlResult2 = GetXMLValue2(pText, pTag1, pTag2, pTag3)
  If Err.Number <> 0 Then GetXmlResult2 = ""
  On Error GoTo 0
End Function

' Получить значение из XML 2
Function GetXMLValue2(byVal pText, pParentTag1, pParentTag2, pTag)
  Dim REx
  Set REx = New RegExp
  REx.Global     = True
  REx.IgnoreCase = True
  REx.Pattern = "< *" & pParentTag1 & "[\r ][^>]*>[^<]*<" & pParentTag2 & "[\r ][^>]*" & pTag & " *= *""([^>=]+) *""[^>]*>[^\?]*</" & pParentTag1 & ">"
  If REx.Test(pText) Then GetXMLValue2 = REx.Execute(pText)(0).SubMatches(0)
End Function

_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Плагины Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3 ... 8, 9, 10, 11, 12  Next
Page 9 of 12

 
Jump to:  
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