Автоматизация размножения файла под разным именем
Select messages from
# through # FAQ
[/[Print]\]

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

#1: Автоматизация размножения файла под разным именем Author: Igor_Gurov PostPosted: Tue Nov 14, 2017 17:02
    —
Не смог найти того что мне поможет, мб плохо искал. В скриптах я особо не разбираюсь поэтому не смог из разных собрать то что мне нужно.
структура того что мне нужно такова

000001(папка)
000001.xxx
mkp(папка)

есть файл нужно его раскопировать с определенной нумирацией(обычно это интервал например 000081-000120) и положить в папку с таким же именем а так же создать в этой папке еще папку с именем "mkp"

Возможно ли это сделать одним скриптом?
и вторая задача в этих папках mkp лежат файлы которые имеют имя all_00001.xxx возможно ли не открывая каждую папку переименовать их все заменив "all_" на "mkp_"?

#2:  Author: Zmy PostPosted: Tue Nov 14, 2017 21:46
    —
По второй задаче, даже скрипты не надо.
Поиск файлов, файлы на панель, или файлы без каталогов, инструмент группового переименования, создаёте задачу, и всё.

По первой задаче, я написал скрипт. Сохраняете его под именем "CopyToFolderCount.vbs".
Должен быть выделен файл под курсором.

Но вы не очень понятно объяснили задачу. Если не так надо, то уточните.

Command:
C:\Temp\CopyToFolderCount.vbs

Parameteres:
"%N"


 Скрипт

.

#3:  Author: FlasherLocation: Москва PostPosted: Wed Nov 15, 2017 07:10
    —
Zmy wrote:
Но вы не очень понятно объяснили задачу.
Не очень — это ещё мягко сказано.
Zmy wrote:
Parameteres:
"%N"
И будет: ""тут пробел.ext""

P.S.: "Первый параметр должен БЫТЬ." - Zmy ©
Ура, товарищи! Smile

#4:  Author: Zmy PostPosted: Wed Nov 15, 2017 07:29
    —
Flasher, что вы хотите сказать?

#5:  Author: FlasherLocation: Москва PostPosted: Wed Nov 15, 2017 07:37
    —
Что тема шита белыми нитками. Wink

#6:  Author: Igor_Gurov PostPosted: Wed Nov 15, 2017 08:55
    —
Извините я вполне мог объяснить непонятно.
Могу еще раз объяснить.
Файл, это файл проекта к определенной программе который очень долго создавать через саму программу.
Сама папка проекта называется так же как и проект и в этой же папке должна быть еще одна папка под названием mkp ну и сам файл.
Прошу извинить если изъясняю непонятно.

И наверно самый глупый вопрос на этом форуме будет как запускать эти скрипты я так и не дочитался до этого.


Last edited by Igor_Gurov on Wed Nov 15, 2017 14:31; edited 1 time in total

#7:  Author: Zmy PostPosted: Wed Nov 15, 2017 09:40
    —
Вот есть описание того, как это делается.
http://forum.wincmd.ru/viewtopic.php?t=14282

Своими словами скажу так.

 Hidden text

Наводите курсор на свой файл (выделяете его), и нажимаете эту кнопку, должен появиться диалог ввода.
Вводите диапазон от Start (число, с которого будет отсчитываться счётчик) до End (число, на котором закончится счётчик).
Если эти диалоги не появятся, значит что-то неправильно настроено.
.

#8:  Author: FlasherLocation: Москва PostPosted: Wed Nov 15, 2017 13:29
    —
Igor_Gurov wrote:
Извините я вполне мог объяснить непонятно.
Пунктуация в вашем тексте когда-нибудь появится? Не говоря уже про заглавные буквы. Диапазоны из головы берутся? Или алгоритм их получения таки имеется для работы с группой выделенных файлов?

Zmy
Энергию-то пожалейте. Памятка в переводе не нуждается, как и в поиске, впрочем.
Quote:
Термины могут не совпадать, в виду того, что есть разные русификаторы
О каких ещё терминах речь? Тем более, что памятка была согласована с переводчиком справки ТС.
Zmy wrote:
В поле "Параметр" вводите "%N".
Опять? Shocked

#9:  Author: Zmy PostPosted: Wed Nov 15, 2017 14:01
    —
А что не в порядке с параметром?

#10:  Author: FlasherLocation: Москва PostPosted: Wed Nov 15, 2017 14:03
    —
Я же написал:
Flasher wrote:
И будет: ""тут пробел.ext""
В параметрах ставится знак вопроса спереди, курсор — на объект с наличием пробелов. В случае с %M иначе.

#11:  Author: Zmy PostPosted: Wed Nov 15, 2017 14:11
    —
Без вопроса у меня прекрасно отрабатывает файлы с пробелом в имени. Хоть с кавычками, хоть без.

#12:  Author: FlasherLocation: Москва PostPosted: Wed Nov 15, 2017 14:21
    —
Code:
Set oFile = CreateObject("Scripting.FileSystemObject").GetFile(WSH.Arguments(0))
+
Code:
TOTALCMD#BAR#DATA
C:\Файл-объект_под_курсором.vbs
"%N"
WScript.exe,2
Файл-объект под курсором
Под курсором: C:\File Name.txt
Результат:
Quote:
Строка: 1
Символ: 1
Ошибка: Файл не найден
Код: 800A0035
Источник: Ошибка выполнения Microsoft VBScript
Иначе и быть не может, т. к. кавычки (запретные, кстати) передаются как часть имени.

#13:  Author: Zmy PostPosted: Wed Nov 15, 2017 14:29
    —
Вот так попробуйте.
Code:
msgBox CreateObject("Scripting.FileSystemObject").GetFile(WSH.Arguments(0))

#14:  Author: FlasherLocation: Москва PostPosted: Wed Nov 15, 2017 14:33
    —
Контекст не имеет значения. Важна правильная передача.

#15:  Author: Zmy PostPosted: Wed Nov 15, 2017 14:35
    —
Работает?

#16:  Author: FlasherLocation: Москва PostPosted: Wed Nov 15, 2017 14:36
    —
Zmy wrote:
Работает?
Конечно, нет. Это даже проверять не имеет смысла.

#17:  Author: Zmy PostPosted: Wed Nov 15, 2017 14:38
    —
А я на вашем месте проверил бы, прежде чем что-либо утверждать.
Наверное, у вас что-то с системой не в порядке.

#18:  Author: FlasherLocation: Москва PostPosted: Wed Nov 15, 2017 14:42
    —
Давайте не будем меня учить тому, чему я давно научен?
Убедитесь сами с простым запуском из файловой панели:
Code:
CreateObject("WScript.Shell").CurrentDirectory = "C:\"
File = "File Name.txt"
With CreateObject("Scripting.FileSystemObject")
   .CreateTextFile File, 1
   MsgBox .GetFile(File)
   MsgBox .GetFile("""" & File & """")
End With

#19:  Author: Zmy PostPosted: Wed Nov 15, 2017 14:48
    —
Так а зачем вы добавляете столько кавычек? Давайте уже по 8 кавычек с каждой стороны добавим. Двух достаточно.
Хоть с параметром, хоть без.

Code:
File = "C:\File Name.txt"
With CreateObject("Scripting.FileSystemObject")
   .CreateTextFile File, 1
   MsgBox .GetFile("" & File & "")
End With


Last edited by Zmy on Wed Nov 15, 2017 14:55; edited 3 times in total

#20:  Author: FlasherLocation: Москва PostPosted: Wed Nov 15, 2017 14:51
    —
Вам бы залатать пробелы в изучении VBScript. Кавычки так не экранируются. Это делается иначе.

Flasher wrote:
т. к. кавычки (запретные, кстати) передаются как часть имени.
Не в ту степь немного (недосып). Ничего там не передаётся. Забудьте про тестовые скрипты. Ошибка использования "%N" вместо %N в другом.
При сдваивании в поле "Параметры:" кавычки в отношении сепарации параметров съедаются, в итоге первым параметром пойдёт File, а не File Name.txt. Ругань возникает из-за отсутствия файла C:\File.

#21:  Author: AvadaLocation: Россия, Саратов PostPosted: Wed Nov 15, 2017 17:58
    —
Igor_Gurov
В дополнение к идущей дискуссии — получите замечание за нарушение правил форума. Включая оверквотинг и вопрос "как запускать скрипты" (да, вопиюще глупый и неуместный с учётом наличия хотя бы этой темы, которую не просто так в "Автоматизации" прикрепили). Столь же неуместное полное цитирование предыдущих постов удалено.



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


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

Page 1 of 1

Powered by phpBB © 2001, 2005 phpBB Group