View previous topic :: View next topic |
Author |
Message |
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Jul 13, 2012 17:06 Post subject: |
|
|
LonerD wrote: | распаковка выделенного в каталог, в котором лежит архив | противоречит
LonerD wrote: | выделенное распаковывается в каталог рядом с архивом |
Короче, что-то вроде склейки этого и этого? |
|
Back to top |
|
|
LonerD
Joined: 04 Jan 2011 Posts: 1168 Location: Донецк
|
(Separately) Posted: Fri Jul 13, 2012 19:29 Post subject: |
|
|
Подправил.
Quote: | Короче, что-то вроде склейки этого и этого? |
Первый из указанных скриптов - совсем не то. Нужна не рекурсивная распаковка нескольких архивов, а распаковка тех файлов, которые мы выделили, находясь внутри архива (как именно должна происходить распаковка - описано в последнем абзаце реквеста).
Второй - да, можно взять за основу и расширить его функционал:
1. Сделать защиту от дурака. Если файл находится в корневом каталоге диска или выделена строка перехода на уровень выше (то есть переместить на уровень вверх невозможно) - ничего не делать и не выбивать ошибку. Сейчас скрипт выбивает ошибку.
2. Добавить ключом возможность не только перемещать, но и копировать на уровень вверх.
3. Если мы находимся внутри архива, то выделенное распаковывается в тот каталог, в котором лежит архив. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Jul 14, 2012 23:57 Post subject: |
|
|
LonerD wrote: | Первый из указанных скриптов - совсем не то. | Согласен. Поспешил. Пиши список используемых утилит (7-zip.exe, FreeArc, NanoZIP и т.д.).
LonerD wrote: | Сделать защиту от дурака. Если файл находится в корневом каталоге диска или выделена строка перехода на уровень выше (то есть переместить на уровень вверх невозможно) - ничего не делать и не выбивать ошибку. Сейчас скрипт выбивает ошибку. | Это я во многих скриптах делаю. Там просто забыл про это.
2. Ок. |
|
Back to top |
|
|
LonerD
Joined: 04 Jan 2011 Posts: 1168 Location: Донецк
|
(Separately) Posted: Sat Aug 18, 2012 22:14 Post subject: |
|
|
и когда я хотел завязать,они снова затянули меня обратно
И когда я только доделал скрипт - тему благополучно закрыли, а потом ещё и wincmd на сутки отключили. Потому выложу туточки.
В общем, здесь был запрос про архивацию через Тотал именно с помощью одной кнопочки, именно через 7-Zip в архив zip.
Вариант с использованием Тотала и утилиты TCIMG.
Если хочется архивировать в zip именно через 7-Zip архиватор (а у него есть свои фишки, в частности степень архивации zip лучше, чем другие архиваторы), то расширение zip в Тотале должно быть настроено на плагин Total7Zip, и должен быть отключён встроенный zip-упаковщик.
Собственно, скрипт универсальный и позволяет создавать архивы с любым расширением через установленные в Тотал wcx-плагины.
Для запрошенного действия - параметры запуска %T "%O" "" 0 0
Скрипт:
http://dreamlair.net/download/ArhiveDreamLair.vbs
(модераторы, перепечатайте скрипт на форум, раз уж мне это непозволительно). |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Aug 18, 2012 23:34 Post subject: |
|
|
LonerD
Опять выпрыгиваниями окон балуемся?
Написал бы, я бы слегка этот скрипт поправил, хотя лично мне матрёшки (одна папка в архиве) не нужны, я хочу, заходя в некогда упакованный архив, сразу видеть корневую структуру бывшего каталога, воссоздающегося элементарно при последующей распаковке уже другим скриптом. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Nov 09, 2012 18:30 Post subject: |
|
|
Тут запрос: Code: | '=====================================================================================
' Cоздание папки/файла c буферным именем и возможностью перехода
' Условие: путь запуска очистить
' Возможные параметры: <переходить к элементу: 1> <расширение файла, если - файл>
' Примеры: <пусто> | 1 | "" lst | 1 txt
'=====================================================================================
With WScript.Arguments
C = .Count : If C > 0 Then Open = .Item(0) : If C > 1 Then Ext = .Item(1)
End With
With CreateObject("WScript.Shell")
P = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
A = .RegRead(P) : CD = .CurrentDirectory & "\"
If A > 0 Then .RegWrite P, 0, "REG_DWORD"
C = Trim(CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text"))
If A > 0 Then .RegWrite P, A, "REG_DWORD"
End With
If C <> "" Then
If InStr(C, vbLf) > 0 Then C = Left(C, InStr(C, vbCr) - 1)
R C, """", "''" : R C, "|", "-" : R C, ":", " -"
R C, ";", "," : R C, "\", "_" : R C, "/", "_" : R C, "?", "_"
With CreateObject("Scripting.FileSystemObject")
Const M = 1
If Ext = "" Then
Name = C
Do While .FolderExists(CD & Name)
l = l + 1 : If l < 10^M Then PFx = Right(String(M, "0") & l, M) Else PFx = l
Name = C & " (" & PFx & ")"
Loop : .CreateFolder(CD & Name)
Else
Name = C & "." & Ext
Do While .FileExists(CD & Name)
l = l + 1 : If l < 10^M Then PFx = Right(String(M, "0") & l, M) Else PFx = l
Name = C & " (" & PFx & ")." & Ext
Loop : .CreateTextFile(CD & Name)
End If
End With
If Open = "" Then CreateObject("WScript.Shell").SendKeys "^R" Else _
CreateObject("WScript.Shell").Exec "%COMMANDER_EXE% /O /S /L=""" & CD & Name & "\'"""
End If : Sub R(N, A, B) : N = Replace(N, A, B) : End Sub
|
Last edited by Flasher on Mon Nov 12, 2012 19:57; edited 2 times in total |
|
Back to top |
|
|
berya
Joined: 15 Nov 2011 Posts: 46 Location: kiev
|
(Separately) Posted: Fri Nov 09, 2012 23:18 Post subject: |
|
|
Добрый вечер.
Выдает ошибку
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Program Files (x86)\Total Commander\VBS\name2.vbs
Строка: 10
Символ: 3
Ошибка: Не удается открыть для чтения раздел реестра "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407".
Код: 80070002
Источник: WshShell.RegRead
---------------------------
ОК
---------------------------
! | Avada: | Это и ряд последующих сообщений перенесены из обсуждения темы "Обмен кнопками" в более подходящее место. | |
|
Back to top |
|
|
AlexTex
Joined: 10 Jul 2008 Posts: 42
|
(Separately) Posted: Fri Nov 09, 2012 23:20 Post subject: |
|
|
Flasher
Огромное спасибо!
Работает с параметром "%P", если поставить "%P" | "%T" txt выдает "Недопустимое имя или номер файла".
А можно сделать так, чтобы папка сразу открывалась? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Nov 09, 2012 23:24 Post subject: |
|
|
berya
Хм. А винда какая? IE установлен в системе?
AlexTex wrote: | если поставить "%P" | "%T" txt | | - это разделитель между примерами. Написано же "Примеры".
Выше указаны параметры по предназначению. |
|
Back to top |
|
|
berya
Joined: 15 Nov 2011 Posts: 46 Location: kiev
|
(Separately) Posted: Fri Nov 09, 2012 23:56 Post subject: |
|
|
Windows 7 Ultimate x64 Ru
IE установлен в системе
Добавлено спустя 27 минут:
Проблема решена - "настроить зоны безопасности "
Спасибо |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Nov 10, 2012 00:35 Post subject: |
|
|
berya wrote: | Проблема решена - "настроить зоны безопасности " | Можно поконкретней? Не очень понимаю, почему нет доступа к той ветке. Какая опция помогла? |
|
Back to top |
|
|
berya
Joined: 15 Nov 2011 Posts: 46 Location: kiev
|
(Separately) Posted: Sat Nov 10, 2012 00:45 Post subject: |
|
|
параметры безопастности - зона Интернета - "разрешить програмный доступ к буферу обмена" - включить[/img]
Добавлено спустя 21 секунду:
параметры безопастности - зона Интернета - "разрешить програмный доступ к буферу обмена" - включить |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Nov 10, 2012 00:48 Post subject: |
|
|
berya
Дело в том, что тот ключ в реестре и есть включение доступа к буферу. Странные дела на x64 творяться. Тут что-то другое..
Вообще, я, конечно, могу hta задействовать через js, но не уверен, что это поможет, т.к. берётся тот же объект. |
|
Back to top |
|
|
berya
Joined: 15 Nov 2011 Posts: 46 Location: kiev
|
(Separately) Posted: Sat Nov 10, 2012 00:56 Post subject: |
|
|
при этом работали другие скрипты связанные с буфером обмена |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Nov 10, 2012 01:00 Post subject: |
|
|
berya
О как. А какие? |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|