Страница 9 из 20
Добавлено: Сб янв 28, 2017 19:13
BeardFury78
Flasher
Я переустанавливал этот плагин, пробовал запускать только чистый плагин без других скриптов, пробовал ставить только 64 bit, но почему-то все время при переходе в ИГП к этому плагину происходит вылет. Сами колонки, использующие скрипты от этого плагина, работают нормально. У вас не происходит вылет, когда совершаете эти действия "ИГП - поле "=?[Плагин]" - поле "winscriptsadv"?
Добавлено: Сб янв 28, 2017 19:32
Flasher
BeardFury78
Нет, я же прекрасно понял, о чём речь. Но у меня не x64. Предлагаю сравнить с x32.
Добавлено: Сб янв 28, 2017 19:40
BeardFury78
Flasher
Ладно, проблему решил окольным путем. Просто скопировал поле скрипта из набора колонок и вставил в ИГП.
Добавлено: Сб янв 28, 2017 23:30
Aquila
BeardFury78
Аналогично, не работает ни в MRT, ни в Custom Columns, приходится вручную вводить. TC - 9.0a x32/x64. C 8.52 проблемы не было.
Добавлено: Вс янв 29, 2017 00:20
Flasher
BeardFury78
А если встать на полях
этого скрипта, покажет ошибку?
Добавлено: Вс янв 29, 2017 00:51
BeardFury78
Flasher
Да, на этом скрипте, только не показывает ошибку, а просто крашится. С сообщением "прекращена работа Тотала".
Добавлено: Вс янв 29, 2017 09:22
Aquila
Flasher
До выбора полей с любым скриптом, даже если Ваш один только, не доходит. x64 молча крашится, x32 с ошибкой
Добавлено: Вс янв 29, 2017 12:12
Flasher
Aquila писал(а):x32 с ошибкой
Вот и у меня почти на всех вываливает. Указанный стал перемещать в первом ключе и в порядке следованя секций, тоже стал выкидывать это окно.
Но почему-то для полей
этого и
этого скрипта никогда не крашит.
Попытки выявить закономерность не увенчались успехом...
Кстати, про ошибку эту ещё
11 октября на оффоруме писали.
Добавлено: Вс янв 29, 2017 14:54
Aquila
Flasher
Я в курсе, мне лень писать было ..... Я заметил как только появилась 9-я версия
Добавлено: Вс янв 29, 2017 15:18
Flasher
Aquila
А протестировать на указанных скриптах нет желания?
Добавлено: Вс янв 29, 2017 18:06
Aquila
Flasher
UPD:
С тремя Вашими (MeanCount и два Dicts) работает нормально, дает выбрать поля ...
Добавлено: Вс янв 29, 2017 18:19
Flasher
Aquila
Так с MeanCount же выше якобы не работало.
Добавлено: Вс янв 29, 2017 18:30
Aquila
Flasher
Забыл перезагрузить TC ....
UPD2: Поменял порядок следования скриптов в строке ActiveScripts в ini-файле. Теперь дает выбрать поля и крашится сразу после выбора или через несколько секунд после нажатия Enter. Если перемещать курсор по полям в диалоге выбора, через некоторое время (три-пять секунд) тоже крашится ...
Добавлено: Чт фев 02, 2017 05:26
BeardFury78
А нету ли скрипта для этого плагина, который умел бы искать по регэкспу определенный текст в текстовых файлах? Нужно для переименования в ИГП текстовых файлов, используя в качестве названия определенный текст в самых файлах.
Добавлено: Чт фев 02, 2017 12:56
Batya
BeardFury78
Вот мой старый скрипт, где я ещё разбираю XML через рег. выражения:
Код: Выделить всё
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