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

[Dimsok]

Line:2
Char:2
Error: Object required: 'CreatedObject(...).NameSpace(...)
Code: 800A01A8

Не заморачивайся, не выходит и ладно.

[Flasher]

Dimsok
А путь-то верный прописал?

[Dimsok]

Просто c:
Да и вообще как-то странно они открываются через TC4Shell. Словари в корне архива, а открывается сначала папка с: хоть dz может совем в др месте находиться.

[Flasher]

Вот и я про то же.

[Dimsok]

Dictzip по умолчанию почему-то так архивирует. Вот сделал кнопку, чтобы файл сразу в корне был:

Код: Выделить всё

TOTALCMD#BAR#DATA
%ComSpec% /c for /f "delims=" %# in
('type %WF') do "%%COMMANDER_PATH%%\Plugins\exe\DictZipUI\dictzip.exe" -k "%%#" && move "%p%%~n#.dsl.dz" "%t"
%COMMANDER_PATH%\Totalcmd.exe,21
Compress dsl dicts with dictzip to other panel

1
-1

Запаковал таким образом dsl и xdxf для тестов:
https://yadi.sk/d/SmFt53QUujVp3

Если что-то получится, перепаковать таким образом все имеющиеся словари не сложно. Главное, чтоб Goldendict их заново индексировать не вздумал, вот это долго будет.

[Flasher]

Если что-то получится

Да не в "получится" дело, а в копировании больших словарей в Temp, если такие имеются. Это всё весьма долго, и прогресс на Vista+ не убирается.. Для мелких словарей (до 4 Мб) можешь попробовать:[cut="Dicts.vbs"]

Код: Выделить всё

Dim FSO, FileName, ShA, Ext, Arch, Items, F, Temp, File, N,_
Stream, Reg, Enc, Content, Content1, Content2, Exec, Check
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(FileName) Then WScript.Quit
Set ShA = CreateObject("Shell.Application")
Ext = LCase(FSO.GetExtensionName(FileName))
If Ext = "dz" Then
  Set Arch = ShA.NameSpace(FileName)
  If Not Arch.Self.IsFolder Then WScript.Quit
  Ext = LCase(FSO.GetExtensionName(FSO.GetBaseName(FileName)))
  Set Items = ShA.NameSpace(FileName).Items
  Items.Filter 73952, "*"
  Set F = ShA.NameSpace(Items.Item(0).Path)
  Do While F.Self.IsFolder    
    Set F = ShA.NameSpace(F.Items.Item(0).Path)
  Loop : Temp = ShA.NameSpace(CreateObject("WScript.Shell")._
  ExpandEnvironmentStrings("%TEMP%")).Self.Path & ""
  File = Temp & F : If Not FSO.FileExists(File) Then _
  ShA.NameSpace(Temp).CopyHere F, 20
Else File = FileName End If
N = 0 : If Ext = "dsl" Then N = -1
Set Stream = FSO.OpenTextFile(File,,,N)
Set Reg = New Regexp : Reg.IgnoreCase = True
If Ext = "dsl" Then
  Call DSL("NAME", Content)_
  ("INDEX_LANGUAGE", Content1)("CONTENTS_LANGUAGE", Content2)
ElseIf Ext = "xdxf" Then
  Reg.Pattern = ".*encoding=""(.*)"".*" : Check = 1
  Enc = Reg.Execute(Stream.ReadLine)(0).Submatches(0)
  Reg.Pattern = "^<xdxf lang_from=""(\w+)"" lang_to=""(\w+)"" "
  Stream.SkipLine  : Set Exec = Reg.Execute(Stream.ReadLine)(0)
  Content1 = Exec.Submatches(0) : Content2 = Exec.Submatches(1)
  Reg.Pattern = "^<full_name>(.+)</full_name>"
  With CreateObject("ADODB.Stream")
    .Open : .Charset = "windows-1251" : .WriteText Stream.ReadLine
    .Position = 0 : .Charset = Enc
    Content = Reg.Execute(.ReadText)(0).Submatches(0) : .Close
  End With
End If : Stream.Close : Set Stream = Nothing
If IsObject(F) Then
  FSO.GetFile(File).Delete
  FSO.GetFolder(Temp & "TC4Shell").Delete
End If : Set FSO = Nothing

Function DSL(Ins, Cont)
  Reg.Pattern = "^#" & Ins & "\s+""(.*)""$"
  Cont = Reg.Execute(Stream.ReadLine)(0).Submatches(0)
  Set DSL = GetRef("DSL")
End Function

[/cut]Понятно, что vbs-ini-ключи нужно перед этим обратно закомментировать.

[Dimsok]

Некоторые отображают норм, некоторые С:\Docume~. Впрочем, это неважно - даже не на самых больших словарях повисает надолго, так что первый вариант скрипта без Tc4Shell более пригодный. Если бы ещё все процессы 7z.exe и more.com завершались бы, было вообще хорошо.

[Dimsok]

А саму Dictzip нельзя использовать? При декомпрессии там есть возможность stdout.

[Flasher]

Я тогда ещё пробовал, утилита пакует файл, никак не риагируя на ключ -с.

[Dimsok]

При распаковке реагирует. Там указано, что этот ключ только при распаковке действует. А зачем для извлечения строк нужно паковать?

[Flasher]

Да не суть важно, он не умеет читать текст, он просто архив как бинарник выводит.

[Dimsok]

-d "*.dz" -c
Отображает вполне себе текстовое содержимое в консоль.

[Flasher]

Выводит строки такого плана: ╤Д╨╛╤А╤Б-╨╝╨░╨╢╨╛╤А.

[Dimsok]

Не знаю, у меня норм отображается. В консоли правда русские не видны, но перенаправление в файл выдаёт корректный текст.

[Flasher]

SHA у dictzip.exe такой?: ad160360c5c762f4906ffcda5d43a010be408b09
Вот кнопка:

Код: Выделить всё

TOTALCMD#BAR#DATA
cmd /k "%COMMANDER_PATH%\Utils\dictzip.exe" -d
%N -c
%COMMANDER_EXE%,2
Вывод с пом. dictzip