Синхронная смена каталогов
Select messages from
# through # FAQ
[/[Print]\]
Goto page Previous  1, 2, 3, 4, 5, 6, 7, 8, 9  Next  :| |:
Total Commander -> Автоматизация Total Commander

#61:  Author: FlasherLocation: Москва PostPosted: Tue Dec 26, 2017 18:23
    —
ingerard
Проблема в том, что я не могу идентифицировать нахождение внутри архива кроме как перебором путевой цепочки с проверкой типа. Это может несколько замедлить скорость. Могу добавить, если есть желание протестировать. А пока сделал поддержку файлсистемных плагинов с файловой структурой (BadCopy, Back2life, DiskInternals Reader, NTFS - streams). Выход из глубины архивов также должен работать.

#62:  Author: ingerard PostPosted: Tue Dec 26, 2017 18:26
    —
Flasher
Не, думаю не стоит, замедление очень критично, и так полсекундный отклик уже присутствует.

Quote:
А пока сделал поддержку файлсистемных плагинов с файловой структурой (BadCopy, Back2life, DiskInternals Reader, NTFS - streams). Выход из глубины архивов также должен работать.

Испробую, а это дополнение на скорость не влияет?

#63:  Author: FlasherLocation: Москва PostPosted: Tue Dec 26, 2017 18:33
    —
ingerard
Полсекунды? Shocked Это много. У меня 0.12-0.14 сек в среднем.
ingerard wrote:
Испробую, а это дополнение на скорость не влияет?
Любая проверка влияет. Но несущественно.
Добавил ещё открытие файлов (Как мы вообще это упустили? Shocked) и, соответственно, несихронный вход в архив.

#64:  Author: ingerard PostPosted: Tue Dec 26, 2017 21:38
    —
Flasher wrote:
Полсекунды? Shocked Это много.

Может конечно и меньше Smile Точных замеров не делал.
Flasher wrote:
Добавил ещё открытие файлов (Как мы вообще это упустили? Shocked)

Я думал это фича такая Very Happy Типа с каталогами только работает та и ладно. Но думаю пригодится открытие. Ща буду тестить.

Что-то поломалось, с левой панели нажимаю на папку, справа заходит, а слева нет, нажимаю еще раз, заходит и в эту. С правой панели нормально.

#65:  Author: FlasherLocation: Москва PostPosted: Tue Dec 26, 2017 22:22
    —
ingerard wrote:
Может конечно и меньше
Да скорее всего.
ingerard wrote:
Я думал это фича такая
А как работать-то? После синхронизации наверняка что-то запускать понадобится для сравнения.

Что-то какая-то странная история с левой/правой панелью. Добавил задержку после входа в противоположной. Как с ней?

#66:  Author: ingerard PostPosted: Tue Dec 26, 2017 22:36
    —
Flasher wrote:
Добавил задержку после входа в противоположной. Как с ней?

Теперь нормально. Как-то сложно код оброс Rolling Eyes
Нет, не нормально, бывает проскакивает глюк.

#67:  Author: FlasherLocation: Москва PostPosted: Tue Dec 26, 2017 22:46
    —
ingerard
В 26 строке можно наращивать 20: 25, 30, 40, ...
Принципильно в этой части он и не изменился. По логике и ранее должна была возникать такая ситуация.

#68:  Author: ingerard PostPosted: Tue Dec 26, 2017 23:00
    —
Flasher
Поставил 40, пока вроде достаточно, завтра усерднее протестирую.

#69:  Author: FlasherLocation: Москва PostPosted: Thu Dec 28, 2017 01:52
    —
ingerard
Ещё немного калибровки. Сделал вход в корни распаковываемых файлов
и установку курсора в другой панели на одноимённик при запуске файла.

#70:  Author: ingerard PostPosted: Thu Dec 28, 2017 11:16
    —
Flasher
Испробовал, норм.

p.s. Тут обнаружил альтернативу - FreeCommander, в ней реализован синхронный просмотр на отлично, там даже курсор двигается по одинаковым элементам. Почему Гислер сделал такой обрубок не понятно. Я пытался ему донести мысль, а от него никакой реакции.

#71:  Author: FlasherLocation: Москва PostPosted: Thu Dec 28, 2017 12:10
    —
ingerard
Давно не щупал FreeCommander. Может, он и не единственный, который так умеет. Ссылка на донесённую мысль не помешала бы.

#72:  Author: ingerard PostPosted: Thu Dec 28, 2017 13:44
    —
Flasher
Вот:
https://www.ghisler.ch/board/viewtopic.php?t=49130

Может я ужасно объясняю Rolling Eyes

#73:  Author: FlasherLocation: Москва PostPosted: Thu Dec 28, 2017 15:57
    —
ingerard
Да вроде нормально. Гифки есть — уже хорошо.

#74:  Author: FlasherLocation: Москва PostPosted: Thu Jan 04, 2018 23:34
    —
ingerard
Более костыльный вариант (+ 1 дс), но беспроблемный для архивов:
Code:
'••••••••••••••••••••••••••••• VBS •••••••••••••••••••••••••••••
' Синхронное открытие одноимённых каталогов/архивов в панелях ТС
' Условие: требуется TCScript.dll
' Ключ запрета несинхронного открытия:  /n
' Ключ перехода в родительский каталог: /b
'•••••••••••••••••••••••••••••••••••••••••• Автор: Flasher © •••
Option Explicit : Dim FSO, TCS, Key, SP, TP, N, Ln
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")
Set Key = WSH.Arguments.Named
With TCS .Pause = 0 : .Wait = True : SP = .GetSrcPath
  TP = .GetInfo("TP") : N = .GetInfo("SN") : .LockTC True
  If N = ".." Or Key.Exists("b") Then
    If StrComp(FN(SP), FN(TP), 1) = 0 Then _
    Call Cm(2002)(4006)(2002)(4006) Else If Not Key.Exists("n") Then Cm(2002)
  Else Cm(2003)
    If Len(.GetSrcPath) - Len(SP) > 0 Then
      If .INIRead(.TCPath & "\usercmd.ini",  "em_cd", "param") <> "%Z%A" Then _
      .INIWriteSection .TCPath & "\usercmd.ini",  "em_cd", "cmd=cd" & vbCrLf & "param=%Z%A"
      Cm(4006) : .UserCmd "em_cd " & FN(N) : Ln = Len(.GetSrcPath) - Len(TP)
      Select Case True
        Case Ln > 0 Cm(4006)
        Case Ln < 0 Call Cm(570)(4006)(570)
        Case Ln = 0 Cm(4006) : If Key.Exists("n") Then Cm(570)
      End Select
    Else Cm(1001) End If
  End If : .LockTC False
End With : Set FSO = Nothing : Set TCS = Nothing
Function FN(x) FN = FSO.GetFileName(Replace(x, "\\\", "")) End Function
Function Cm(y) TCS.SendCommand y,1 : Set Cm = GetRef("Cm") End Function
В нижней рекомендации send({ESC}) заменил на tcm(4005).

#75:  Author: JKTLocation: Харьков PostPosted: Mon Jun 04, 2018 10:09
    —
Quote:
Условие: требуется TCScript.dll

Т.е. его достаточно кинуть в системные папки и зарегить в с-ме, или еще какие телодвижения надо производить?



Total Commander -> Автоматизация Total Commander


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous  1, 2, 3, 4, 5, 6, 7, 8, 9  Next  :| |:
Page 5 of 9

Powered by phpBB © 2001, 2005 phpBB Group