[wdx] WinScript Advanced Content Plugin (x86\x64) (new)

[BeardFury78]

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

[Flasher]

BeardFury78
Нет, я же прекрасно понял, о чём речь. Но у меня не x64. Предлагаю сравнить с x32.

[BeardFury78]

Flasher
Ладно, проблему решил окольным путем. Просто скопировал поле скрипта из набора колонок и вставил в ИГП.

[Aquila]

BeardFury78
Аналогично, не работает ни в MRT, ни в Custom Columns, приходится вручную вводить. TC - 9.0a x32/x64. C 8.52 проблемы не было.

[Flasher]

BeardFury78
А если встать на полях этого скрипта, покажет ошибку?

[BeardFury78]

Flasher
Да, на этом скрипте, только не показывает ошибку, а просто крашится. С сообщением "прекращена работа Тотала".

[Aquila]

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

[Flasher]

x32 с ошибкой

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

Кстати, про ошибку эту ещё 11 октября на оффоруме писали.

[Aquila]

Flasher
Я в курсе, мне лень писать было ..... Я заметил как только появилась 9-я версия

[Flasher]

Aquila
А протестировать на указанных скриптах нет желания?

[Aquila]

Flasher
UPD:
С тремя Вашими (MeanCount и два Dicts) работает нормально, дает выбрать поля ...

[Flasher]

Aquila
Так с MeanCount же выше якобы не работало.

[Aquila]

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

UPD2: Поменял порядок следования скриптов в строке ActiveScripts в ini-файле. Теперь дает выбрать поля и крашится сразу после выбора или через несколько секунд после нажатия Enter. Если перемещать курсор по полям в диалоге выбора, через некоторое время (три-пять секунд) тоже крашится ...

[BeardFury78]

А нету ли скрипта для этого плагина, который умел бы искать по регэкспу определенный текст в текстовых файлах? Нужно для переименования в ИГП текстовых файлов, используя в качестве названия определенный текст в самых файлах.

[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