Модераторы: d-view, Моторокер, Avada, CaptainFlint, Nik
Решил начать тему.Lev писал(а):Имхо, лучше в отдельной теме.
Для скриптов было бы интересно оформление в виде ActiveX, чтобы не возиться с WshShell.Exec, StdOut...
Код: Выделить всё
'получение поля контентного плагина при помощи wdxtest.exe
'lev
wdxtest="c:\WINCMD\utils\wdxtest\wdxtest.exe"'путь к wdxtest.exe
wdxplug="c:\WINCMD\Content_wdx\NameChrCount\Filename_ChrCount.wdx"'путь к контентному плагину
filename="c:\WINCMD\Content_wdx\NameChrCount\Filename_ChrCount.wdx"'путь к файлу инфу о котором получаем
Set WshShell = CreateObject("WScript.Shell")
Set res=WshShell.Exec(wdxtest & " " & wdxplug & " " & filename)
c=res.StdOut.ReadAll
'MsgBox c 'для отладки, для составления правильного паттерна
Dim re
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.MultiLine = False
re.Pattern = "1: Filename \(ChrCount\): (.*)" 'кол-во букв в имени файла
Set field=re.Execute(c)
MsgBox field(0).Submatches(0)Код: Выделить всё
#include <Array.au3>
Global $sFile = @ScriptDir & "\TestTorrent.torrent"
Global $sWdxPlugin = @ScriptDir & "\TCTorrent.wlx"
Global $nUnitIdx = 0
Global Const $ft_nomorefields = 0
Global Const $ft_numeric_32 = 1
Global Const $ft_numeric_64 = 2
Global Const $ft_numeric_floating = 3
Global Const $ft_date = 4
Global Const $ft_time = 5
Global Const $ft_boolean = 6
Global Const $ft_multiplechoice = 7
Global Const $ft_string = 8
Global Const $ft_fulltext = 9
Global Const $ft_datetime = 10
Global Const $ft_stringw = 11
Global $aFields[1][3]
For $i = 0 To 255
$aRet = DllCall($sWdxPlugin, "int", "ContentGetSupportedField", "int", $i, "str", "", "str", "", "int", 65535)
If @error Then ExitLoop
If $aRet[0] = $ft_nomorefields Then ExitLoop
ReDim $aFields[$i+1][3]
$aFields[$i][0] = $aRet[0]
$aFields[$i][1] = $aRet[2]
$aFields[$i][2] = $aRet[3]
Next
If UBound($aFields) = 0 Then
MsgBox (0, "", "No fields.")
Exit
EndIf
Global $aValues[UBound($aFields)][2]
Global $nMaxBuffSize = 65535
Global $pBuffer = DllStructCreate("byte[65535]")
For $i=0 To UBound($aFields) - 1
$aRet = DllCall($sWdxPlugin, "int", "ContentGetValue", "str", $sFile, "int", $i, "int", $nUnitIdx, "ptr", DllStructGetPtr($pBuffer), "int", $nMaxBuffSize, "int", 0)
If @error Then ExitLoop
Switch $aFields[$i][0]
Case $ft_numeric_32
$pValue = DllStructCreate("int", DllStructGetPtr($pBuffer))
Case $ft_numeric_64
$pValue = DllStructCreate("int64", DllStructGetPtr($pBuffer))
Case $ft_numeric_floating
$pValue = DllStructCreate("double", DllStructGetPtr($pBuffer))
Case $ft_string, $ft_fulltext
$pValue = DllStructCreate("char[" & $nMaxBuffSize & "]", DllStructGetPtr($pBuffer))
Case $ft_datetime
$pFileTime = DllStructCreate("dword;dword", DllStructGetPtr($pBuffer))
$pLocalTime = DllStructCreate("dword;dword")
DllCall("Kernel32.dll", "int", "FileTimeToLocalFileTime", "ptr", DllStructGetPtr($pFileTime), "ptr", DllStructGetPtr($pLocalTime))
$pValue = DllStructCreate("short;short;short;short;short;short;short;short")
DllCall("Kernel32.dll", "int", "FileTimeToSystemTime", "ptr", DllStructGetPtr($pLocalTime), "ptr", DllStructGetPtr($pValue))
$aValues[$i][0] = $aFields[$i][1]
$aValues[$i][1] = StringFormat("%04d-%02d-%02d %02d:%02d:%02d", _
DllStructGetData($pValue, 1), _
DllStructGetData($pValue, 2), _
DllStructGetData($pValue, 4), _
DllStructGetData($pValue, 5), _
DllStructGetData($pValue, 6), _
DllStructGetData($pValue, 7))
ContinueLoop
Case Else
ContinueLoop
EndSwitch
$aValues[$i][0] = $aFields[$i][1]
$aValues[$i][1] = DllStructGetData($pValue, 1)
Next
_ArrayDisplay($aValues)
Batya писал(а):Кто-нибудь имеет опыт вытаскивания информации с помощью wdx-плагинов в скриптах, по возможности через COM?
С помощью вот этого не получится?Batya писал(а):хочу оформить в vbs-скрипте вызов wdx непосредственно как dll
Рассекреченный wdx.exe (точнее это переписанная с нуля утиль) выложил в родительской теме (см. ссылку в первом посте в этой теме), так что можете получать все поля напрямую, без выкусывания нужных значений регулярками.Lev писал(а): Когда рассекретится wdx.exe, возможно, сможем получать нужные поля напрямую, что ускорит обработку большого количества файлов.
Сразу уточню, что поддоменчик не получится. А вот акк — запросто.Lev писал(а):а заодно и поддоменчик у наших уважаемых админов.
Ты бы описал проблему попроще и кто-нибудь обязательно переложил бы утиль на другой обменник.Lev писал(а):Для меня секретность заключалась не в закрытости кода, а выкладывании утилитки на обменнике "только для украинцев", т.е. я её даже погонять не мог
