Поиск внутри архивов.
Модератор: motyara
-
- Сообщения: 18
- Зарегистрирован: Ср янв 09, 2008 5:09 pm
Поиск внутри архивов.
C большим огорчением обнаружил, что поиск файлов внутри архивов не проводится. Мягко сказать это очень не удобно. Хотелось бы иметь такую возможность.
-
- Автор программы
- Сообщения: 3432
- Зарегистрирован: Пт окт 12, 2007 3:26 pm
-
- Сообщения: 18
- Зарегистрирован: Ср янв 09, 2008 5:09 pm
-
- Охотник за багами
- Сообщения: 49
- Зарегистрирован: Пт окт 19, 2007 1:54 pm
- Откуда: Stavropol
-
- Сообщения: 1
- Зарегистрирован: Чт май 08, 2008 10:23 pm
Re: Поиск внутри архивов.
Пожалуйста, реализуйте эту функцию! Скачал вашу программу для ознакомления, среди всех бесплатных аналогов Total Commander'а она мне понравилась сильнее всего. От окончательного удаления TC с компьютера останавливает лишь отсутствие в UC функции поиска в архивах, которой в TC мне приходится пользоваться очень часто.
Буду пристально следить за изменениями в новых версиях!
Буду пристально следить за изменениями в новых версиях!
-
- Сообщения: 1
- Зарегистрирован: Пт дек 26, 2008 6:00 pm
Re: Поиск внутри архивов.
Сегодня задался вопросом поиска в архивах из UC. Пока что настроил кнопку вызова winrar'а из скрипта с передачей ему текущего фолдера из панели UC и парой вопросов о поиске. К сожалению, WinRAR не ищет в 7zip и ACE, всё остальное - на ура!
Для передачи текущего фолдера надо оставить пустым поле Start Path для кнопки на пенели UC.
VBScript:
Для передачи текущего фолдера надо оставить пустым поле Start Path для кнопки на пенели UC.
VBScript:
Код: Выделить всё
Dim WshShell, CurrDir, Response1, Response2, Response3, Cmd4rar, SubOpts
Set WshShell = WScript.CreateObject("WScript.Shell")
'WScript.Echo
CurrDir = WshShell.CurrentDirectory
Response1 = MsgBox ("Are you looking for files inside of archives in folder " & _
chr(13) & chr(10) & CurrDir & chr(13) & chr(10) & "?", _
vbYesNoCancel + vbQuestion + vbSystemModal, "bb")
Select Case Response1
case vbYes
Response2 = MsgBox ("...subfolders?", _
vbYesNoCancel + vbQuestion + vbSystemModal, "bb")
Select case Response2
case vbYes
SubOpts="-r "
case vbNo
SubOpts=""
End Select
Response3 = InputBox("Please, specify the string to search here:")
Cmd4rar="c:\progra~1\winrar\winrar.exe i " & SubOpts & """" & CurrDir & "\*.*"" ""*" & Response3 & "*"""
msgbox(Cmd4rar)
WshShell.Run Cmd4rar, 1, True
case vbNo
case vbCancel
End Select
Set WshShell = Nothing
-
- Сообщения: 1
- Зарегистрирован: Пт май 08, 2009 2:14 pm
Re: Поиск внутри архивов.
Своими словами небуду писать - все было написано ранее !!!
"" Пожалуйста, реализуйте эту функцию! Скачал вашу программу для ознакомления, среди всех бесплатных аналогов Total Commander'а она мне понравилась сильнее всего. От окончательного удаления TC с компьютера останавливает лишь отсутствие в UC функции поиска в архивах, которой в TC мне приходится пользоваться очень часто. Буду пристально следить за изменениями в новых версиях! ""
Ну очень прошу реализуйте эту функцию !!! Плизззз
"" Пожалуйста, реализуйте эту функцию! Скачал вашу программу для ознакомления, среди всех бесплатных аналогов Total Commander'а она мне понравилась сильнее всего. От окончательного удаления TC с компьютера останавливает лишь отсутствие в UC функции поиска в архивах, которой в TC мне приходится пользоваться очень часто. Буду пристально следить за изменениями в новых версиях! ""
Ну очень прошу реализуйте эту функцию !!! Плизззз
-
- Автор программы
- Сообщения: 3432
- Зарегистрирован: Пт окт 12, 2007 3:26 pm
К сожалению я не волшебник и одного только моего желания недостаточно чтобы функция появилась в программе... каждую функцию приходится долго делать собственными силами. А желаемых отдельными пользователями функций как ни странно довольно много... поэтому каждую такую функцию я могу добавить лишь тогда когда до нее доберусь. К этой функции дело еще не подошло.