Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Создание папок с именем файлов
Goto page Previous  1, 2, 3  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Itar-Tass



Joined: 18 Jan 2009
Posts: 48

Post (Separately) Posted: Wed Dec 16, 2009 18:54    Post subject: Reply with quote

Вот этот скрипт работает
http://www.tckb.ru/wiki/Поиск_пустых_каталогов.

Так что вряд ли дело в моем(моих) компьютерах.
Back to top
View user's profile Send private message
Itar-Tass



Joined: 18 Jan 2009
Posts: 48

Post (Separately) Posted: Wed Dec 16, 2009 19:18    Post subject: Reply with quote

Нашел в чем причина.

Текст для скрипта нужно сохранять AkelPad(ну или просто блокнотом)

только в кодировке 866(Oem-русская).

В любой другой кодировке,включая юникоде-ошибки.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10236
Location: Россия, Саратов

Post (Separately) Posted: Wed Dec 16, 2009 19:23    Post subject: Reply with quote

Itar-Tass wrote:
Вот этот скрипт работает
http://www.tckb.ru/wiki/Поиск_пустых_каталогов.

Я про это уже дважды говорил.
Кстати, код кнопки обычно представляется более цивилизованным путём: в контекстном меню кнопки выполняется "Копировать", далее в пост вставляется из буфера скопированый текст (пример использования тегов отображается при наведении мышки на кнопку "Code").
А насчёт кодировки — у меня этот скрипт (как и другие) сохранён в Windows-1251. При чём тут DOS-кодировка?

P.S. Кстати, это не единственный косяк с кодировками. Ссылочки на Wiki с кириллицей надо оформлять правильно. Советую в посте D1P вызвать в контекстном меню ссылки Свойства и посмотреть, как это должно выглядеть. Разумеется, крокозябры лучше скрыть, заменив в посте ссылку её описанием.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Itar-Tass



Joined: 18 Jan 2009
Posts: 48

Post (Separately) Posted: Wed Dec 16, 2009 19:47    Post subject: Reply with quote

Не знаю причем кодировка, но в 1251 работать не хотела.
Текст с одного и того же браузера и с одной той же кодировки сохранял.
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Thu Dec 17, 2009 02:01    Post subject: Reply with quote

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
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 663

Post (Separately) Posted: Mon Oct 16, 2017 00:47    Post subject: Reply with quote

Частенько пользуюсь скриптом, который в противной панели создаёт папку с именем выделенного файла и перемещает его в неё. Иногда возникает нужда переместить в неё не один файл, а неск. а папка называлась бы по имени первого файла из списка выделенных. Пригодился бы такой скрипт.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Mon Oct 16, 2017 01:33    Post subject: Reply with quote

Сам же ссылку приводил. Второй параметр: %T%S1

P.S.: Чтобы панель не была противной, монитор стоит как следует протереть и при желании украсить стразиками. Wink
Слово "противный" в значении "противоположный" давно устарело.

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
angry_dog



Joined: 21 Nov 2009
Posts: 143
Location: Питер

Post (Separately) Posted: Fri Jul 12, 2019 20:04    Post subject: Reply with quote

С помощью батиного скрипта замечательно создаются группы каталогов по имени файлов, но каталог создается с расширением файла в имени. Есть файл с именем file.jpg, с помощью скрипта создается каталог file.jpg и туда перемещается исходный файл.
Можно ли подредактировать скрипт, чтобы расширение в имени файла закрывалось в скобки с добавлением произвольных (которые можно менять в тексте скрипта) символов, вида: file [jpg.любые_символы]?
Или упрощая задачу, вместо любых символов жестко забить "wv", чтобы получилось file [jpg.wv]
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Jul 13, 2019 04:37    Post subject: Reply with quote

angry_dog
Есть вещи посовременней: кнопки, скрипт.
К получателю (в т. ч. %T/%P) можно элементарно добавить %O.[%E.блабла] .
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
angry_dog



Joined: 21 Nov 2009
Posts: 143
Location: Питер

Post (Separately) Posted: Sat Jul 13, 2019 12:44    Post subject: Reply with quote

Flasher
я извиняюсь, неправильно сформулировал проблему - заметил только сейчас. Батин скрипт все делает правильно и расширение файла он не использует в названии файла. Это у меня точка в имени файла: computer_643.iso.wv. Соответственно он и создает каталог с именем computer_643.iso, а мне нужно чтобы у каталога было имя computer_643 [iso.wv]
Попробовал вашу кнопку, она работает но делает немного не то - переносит группу файлов под курсором в каталог с именем первого файла, а мне нужно, чтобы каждый файл в отдельный каталог с [iso.wv] на конце.
Скрипт у меня отказался работать - просто ничего не происходит. Может параметры запуска нужны?
И да, "К получателю (в т. ч. %T/%P) можно элементарно добавить %O.[%E.блабла]" не понял куда это.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Jul 13, 2019 13:50    Post subject: Reply with quote

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
View user's profile Send private message
angry_dog



Joined: 21 Nov 2009
Posts: 143
Location: Питер

Post (Separately) Posted: Sat Jul 13, 2019 16:43    Post subject: Reply with quote

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
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Jul 13, 2019 21:30    Post subject: Reply with quote

angry_dog
Пожалуйста. Но со старой шапкой публиковать не имело смысла...
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10236
Location: Россия, Саратов

Post (Separately) Posted: Mon Jul 29, 2019 12:11    Post subject: Reply with quote

angry_dog
Старая шапка из кода удалена.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Kostrula



Joined: 18 Jan 2020
Posts: 2

Post (Separately) Posted: Sat Jan 18, 2020 15:53    Post subject: Создание папок с именем файлов Reply with quote

Добрый день!

Подскажите пожалуйста, что нужно изменить в коде скрипта по созданию папки с частью имени файла и перемещении в нее файла.
Сейчас, как написали выше "часть имени" - начало имени файла до символа "-" (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
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3  Next
Page 2 of 3

 
Jump to:  
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