Total Commander :: Переименование с периодическим сбросом счётчика

Переименование с периодическим сбросом счётчика

through

FAQ

[^/[Print]\]
Goto page Previous 1, 2, 3, 4, 5, 6, 7 :| |:
Total Commander -> Автоматизация Total Commander

#91: Author: Avada, Location: Россия, Саратов

Posted: Fri Nov 15, 2019 06:48
—
Fess
В вышеупомянутой памятке сказано:

Quote:

Помните, что дублирование кода скрипта является избыточным цитированием, что запрещено правилами форума!

Отсчитать строки в коде, уяснить, что речь про блок "Изменяемые параметры" в самом его начале, а конкретно про разрядность счётчика (что является прямым ответом на заданный вопрос), после чего поменять там 3 на 1 — это так сложно?
Кстати, и в первом сообщении достаточно было вместо совершенно ненужной цитаты всего-то сослаться на конкретный скрипт. Как решается на форуме проблема с оформлением ссылок у новичков, пояснялось многократно — пример.
Ненужный текст кода удалён.

#92: Author: Flasher, Location: Москва

Posted: Fri Nov 15, 2019 12:28
—

Avada wrote:

Отсчитать строки в коде

Или использовать редактор/плагин с нумерацией строк.

#93: Author: Mashulechka,

Posted: Wed Aug 09, 2023 02:32
—
vbs скрипт отсюда https://forum.wincmd.ru/viewpost.php?p=124713
6 лет не было горя. Обновлялась винда и версии тотала. Всё работает до сих пор на основном компьютере. Недавно тотал уже 11 версии стал. Проблем со скриптом нет.
Но недавно был приобретен nettop - всё делаю так же, как на основном компе - скачиваю и регистрирую хелпер TCWSHelp.exe /REGSERVER, ставлю .NetFramework 3,5 (2.0 и 3.0), параметры кнопки задаю те же (команда - путь к скрипту, параметры - %WL *.mp3 0, путь запуска - пусто), vbs скрипт и просто переписываю и создаю заново - с помощью akelpad и notepad++. И уже пробую на чистой виртуальной машине с разными версиями тотала - и всё равно везде одна и та же ошибка - 800a0035 в 45 строке 13 символе, эта строка:

Code:

FSO.GetFile(P & F).Name = Path.Title & " (" & R(i) & ")" & Ext

Почему так? Как исправить? Работает же на старом компе, почему тогда на других компьютерах ошибка?

#94: Author: Avada, Location: Россия, Саратов

Posted: Wed Aug 09, 2023 06:28
—
Mashulechka
Поскольку автор скрипта в работе этого форума больше не участвует, набирайтесь терпения и ждите помощи от кого-то, кто в этом сможет разобраться.

#95: Author: Batya, Location: Москва, Россия

Posted: Wed Aug 16, 2023 11:16
—
Mashulechka
Надо проверять, вставляя диагностические строки. Попробуй перед этой строкой вставить:

Code:

MsgBox P, 0, "P"
MsgBox F, 0, "F"
MsgBox FSO.GetFile(P & F).Name, 0, "Имя файла"
MsgBox Path.Title, 0, "Path.Title"
MsgBox R(i), 0, "R(i)"
MsgBox Ext, 0, "Ext"

#96: Author: Mashulechka,

Posted: Tue Sep 12, 2023 22:21
—

Batya wrote:

Mashulechka
Надо проверять, вставляя диагностические строки.

Первое окно: полный путь первого каталога, заголовок окна - буква P.
Второе окно: первое имя файла из этого каталога без расширения, заголовок окна - буква F.

#97: Author: Batya, Location: Москва, Россия

Posted: Thu Sep 14, 2023 02:22
—
Mashulechka
Уф... Я бы сначала попробовал в строке ...

Code:

If FSO.FileExists(F.Path) Then Lst.Add CStr(F)

... кое-что изменить:

Code:

If FSO.FileExists(F.Path) Then Lst.Add FSO.GetFileName(F.Path)

Если сработает, то разница с предыдущей машиной в том, что на текущей в проводнике не включено отражение расширений файлов. Дело в том, что "ShA.NameSpace(P)" может по-разному отрабатывать.

#98: Author: Mashulechka,

Posted: Thu Sep 14, 2023 19:59
—

Batya wrote:

Mashulechka
Уф... Я бы сначала попробовал в строке ...

Обалдеть! Кто бы мог подумать! Работает! Спасибо преогромаднейшее!!!

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

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

Goto page Previous 1, 2, 3, 4, 5, 6, 7 :| |: Page 7 of 7