View previous topic :: View next topic |
Author |
Message |
Itar-Tass
Joined: 18 Jan 2009 Posts: 48
|
(Separately) Posted: Wed Dec 16, 2009 18:54 Post subject: |
|
|
Вот этот скрипт работает
http://www.tckb.ru/wiki/Поиск_пустых_каталогов.
Так что вряд ли дело в моем(моих) компьютерах. |
|
Back to top |
|
|
Itar-Tass
Joined: 18 Jan 2009 Posts: 48
|
(Separately) Posted: Wed Dec 16, 2009 19:18 Post subject: |
|
|
Нашел в чем причина.
Текст для скрипта нужно сохранять AkelPad(ну или просто блокнотом)
только в кодировке 866(Oem-русская).
В любой другой кодировке,включая юникоде-ошибки. |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10278 Location: Россия, Саратов
|
(Separately) Posted: Wed Dec 16, 2009 19:23 Post subject: |
|
|
Я про это уже дважды говорил.
Кстати, код кнопки обычно представляется более цивилизованным путём: в контекстном меню кнопки выполняется "Копировать", далее в пост вставляется из буфера скопированый текст (пример использования тегов отображается при наведении мышки на кнопку "Code").
А насчёт кодировки — у меня этот скрипт (как и другие) сохранён в Windows-1251. При чём тут DOS-кодировка?
P.S. Кстати, это не единственный косяк с кодировками. Ссылочки на Wiki с кириллицей надо оформлять правильно. Советую в посте D1P вызвать в контекстном меню ссылки Свойства и посмотреть, как это должно выглядеть. Разумеется, крокозябры лучше скрыть, заменив в посте ссылку её описанием. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Itar-Tass
Joined: 18 Jan 2009 Posts: 48
|
(Separately) Posted: Wed Dec 16, 2009 19:47 Post subject: |
|
|
Не знаю причем кодировка, но в 1251 работать не хотела.
Текст с одного и того же браузера и с одной той же кодировки сохранял. |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2219 Location: Москва, Россия
|
(Separately) Posted: Thu Dec 17, 2009 02:01 Post subject: |
|
|
Itar-Tass wrote: | Script: C:\Program Files (x86)\Total Commander\PLUGINS\Tools\tcwshelp_b10\Scripts\papki.vbs
Line: 2
Char: 16
Error: Синтаксическая ошибка |
Если это скрипт, приведенный здесь во втором посте, то глазами я вижу лишний перевод строки (не знаю, это как движок форума так показывает, или кто-то нажал лишний раз Enter после символа "=". Лучше взять исходный скрипт отсюда. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Mon Oct 16, 2017 00:47 Post subject: |
|
|
Частенько пользуюсь скриптом, который в противной панели создаёт папку с именем выделенного файла и перемещает его в неё. Иногда возникает нужда переместить в неё не один файл, а неск. а папка называлась бы по имени первого файла из списка выделенных. Пригодился бы такой скрипт. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Oct 16, 2017 01:33 Post subject: |
|
|
Сам же ссылку приводил. Второй параметр: %T%S1
P.S.: Чтобы панель не была противной, монитор стоит как следует протереть и при желании украсить стразиками.
Слово "противный" в значении "противоположный" давно устарело. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Fri Jul 12, 2019 20:04 Post subject: |
|
|
С помощью батиного скрипта замечательно создаются группы каталогов по имени файлов, но каталог создается с расширением файла в имени. Есть файл с именем file.jpg, с помощью скрипта создается каталог file.jpg и туда перемещается исходный файл.
Можно ли подредактировать скрипт, чтобы расширение в имени файла закрывалось в скобки с добавлением произвольных (которые можно менять в тексте скрипта) символов, вида: file [jpg.любые_символы]?
Или упрощая задачу, вместо любых символов жестко забить "wv", чтобы получилось file [jpg.wv] |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Jul 13, 2019 04:37 Post subject: |
|
|
angry_dog
Есть вещи посовременней: кнопки, скрипт.
К получателю (в т. ч. %T/%P) можно элементарно добавить %O.[%E.блабла] . _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Sat Jul 13, 2019 12:44 Post subject: |
|
|
Flasher
я извиняюсь, неправильно сформулировал проблему - заметил только сейчас. Батин скрипт все делает правильно и расширение файла он не использует в названии файла. Это у меня точка в имени файла: computer_643.iso.wv. Соответственно он и создает каталог с именем computer_643.iso, а мне нужно чтобы у каталога было имя computer_643 [iso.wv]
Попробовал вашу кнопку, она работает но делает немного не то - переносит группу файлов под курсором в каталог с именем первого файла, а мне нужно, чтобы каждый файл в отдельный каталог с [iso.wv] на конце.
Скрипт у меня отказался работать - просто ничего не происходит. Может параметры запуска нужны?
И да, "К получателю (в т. ч. %T/%P) можно элементарно добавить %O.[%E.блабла]" не понял куда это. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Jul 13, 2019 13:50 Post subject: |
|
|
angry_dog
В этом скрипте в 18 строке = 3 заменить на > 2 , в 23-й — Bas на Fil , а в 25-й — Execute(BN)(0).Submatches(0) на Replace(BN, A(3)) .
Параметры: %WL "" ^([^.]+)\.(.+) "$1 [$2]" _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Sat Jul 13, 2019 16:43 Post subject: |
|
|
Flasher
Спасибо! Все получилось. Полученный (правленный) скрипт:
Code: | Set A = WSH.Arguments : C = A.Count : If C = 0 Then WSH.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ShAp = CreateObject("Shell.Application")
Set List = FSO.OpenTextFile(A(0),,,-1)
If C > 2 Then _
Set Reg = New RegExp : Reg.Global = True:_
Reg.IgnoreCase = True : Reg.Pattern = A(2)
Do : F = Trim(List.ReadLine)
If FSO.FileExists(F) Then
BN = FSO.GetFileName(F)
If IsObject(Reg) Then If Reg.Test(BN) Then _
BN = Reg.Replace(BN, A(3)) Else BN = ""
If Len(BN) Then
NF = "" : If C > 1 Then If A(1) <> "" Then NF = FSO.BuildPath(A(1),BN)
If NF = "" Then NF = FSO.BuildPath(FSO.GetParentFolderName(F), BN)
If Not FSO.FolderExists(NF) Then FSO.CreateFolder(NF)
ShAp.NameSpace(NF).MoveHere F
End If
End If
Loop Until List.AtEndOfStream : List.Close |
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Jul 13, 2019 21:30 Post subject: |
|
|
angry_dog
Пожалуйста. Но со старой шапкой публиковать не имело смысла... _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10278 Location: Россия, Саратов
|
(Separately) Posted: Mon Jul 29, 2019 12:11 Post subject: |
|
|
angry_dog
Старая шапка из кода удалена. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Kostrula
Joined: 18 Jan 2020 Posts: 2
|
(Separately) Posted: Sat Jan 18, 2020 15:53 Post subject: Создание папок с именем файлов |
|
|
Добрый день!
Подскажите пожалуйста, что нужно изменить в коде скрипта по созданию папки с частью имени файла и перемещении в нее файла.
Сейчас, как написали выше "часть имени" - начало имени файла до символа "-" (DashInName = InstrRev(FileName, "-"))
А как сделать, чтобы "часть имени" была концом имени файла от определенного символа? Например:
file_photo1_TST_02_477_0.jpg переместить в папку TST_02_477_0
file_photo22_TST_03_4767_5.tif переместить в папку TST_03_4767_5
file_photo34_TST_05_9827_078.png переместить в папку TST_05_9827_078 |
|
Back to top |
|
|
|