View previous topic :: View next topic |
Author |
Message |
BeardFury78
Joined: 25 Aug 2016 Posts: 213
|
(Separately) Posted: Sat Jan 28, 2017 20:13 Post subject: |
|
|
Flasher
Я переустанавливал этот плагин, пробовал запускать только чистый плагин без других скриптов, пробовал ставить только 64 bit, но почему-то все время при переходе в ИГП к этому плагину происходит вылет. Сами колонки, использующие скрипты от этого плагина, работают нормально. У вас не происходит вылет, когда совершаете эти действия "ИГП - поле "=?[Плагин]" - поле "winscriptsadv"? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Jan 28, 2017 20:32 Post subject: |
|
|
BeardFury78
Нет, я же прекрасно понял, о чём речь. Но у меня не x64. Предлагаю сравнить с x32. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
BeardFury78
Joined: 25 Aug 2016 Posts: 213
|
(Separately) Posted: Sat Jan 28, 2017 20:40 Post subject: |
|
|
Flasher
Ладно, проблему решил окольным путем. Просто скопировал поле скрипта из набора колонок и вставил в ИГП. |
|
Back to top |
|
|
Aquila
Joined: 22 Sep 2016 Posts: 35
|
(Separately) Posted: Sun Jan 29, 2017 00:30 Post subject: |
|
|
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 |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Jan 29, 2017 01:20 Post subject: |
|
|
BeardFury78
А если встать на полях этого скрипта, покажет ошибку? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
BeardFury78
Joined: 25 Aug 2016 Posts: 213
|
(Separately) Posted: Sun Jan 29, 2017 01:51 Post subject: |
|
|
Flasher
Да, на этом скрипте, только не показывает ошибку, а просто крашится. С сообщением "прекращена работа Тотала". |
|
Back to top |
|
|
Aquila
Joined: 22 Sep 2016 Posts: 35
|
(Separately) Posted: Sun Jan 29, 2017 10:22 Post subject: |
|
|
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 |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Jan 29, 2017 13:12 Post subject: |
|
|
Aquila wrote: | x32 с ошибкой | Вот и у меня почти на всех вываливает. Указанный стал перемещать в первом ключе и в порядке следованя секций, тоже стал выкидывать это окно.
Но почему-то для полей этого и этого скрипта никогда не крашит.
Попытки выявить закономерность не увенчались успехом...
Кстати, про ошибку эту ещё 11 октября на оффоруме писали. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Aquila
Joined: 22 Sep 2016 Posts: 35
|
(Separately) Posted: Sun Jan 29, 2017 15:54 Post subject: |
|
|
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 |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Jan 29, 2017 16:18 Post subject: |
|
|
Aquila
А протестировать на указанных скриптах нет желания? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Aquila
Joined: 22 Sep 2016 Posts: 35
|
(Separately) Posted: Sun Jan 29, 2017 19:06 Post subject: |
|
|
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 |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Jan 29, 2017 19:19 Post subject: |
|
|
Aquila
Так с MeanCount же выше якобы не работало. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Aquila
Joined: 22 Sep 2016 Posts: 35
|
(Separately) Posted: Sun Jan 29, 2017 19:30 Post subject: |
|
|
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 |
|
|
BeardFury78
Joined: 25 Aug 2016 Posts: 213
|
(Separately) Posted: Thu Feb 02, 2017 06:26 Post subject: |
|
|
А нету ли скрипта для этого плагина, который умел бы искать по регэкспу определенный текст в текстовых файлах? Нужно для переименования в ИГП текстовых файлов, используя в качестве названия определенный текст в самых файлах. |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Thu Feb 02, 2017 13:56 Post subject: |
|
|
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 |
|
|
|
|
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
|