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, 4, 5, 6, 7
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Avada



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

Post (Separately) Posted: Fri Nov 15, 2019 06:48    Post subject: Reply with quote

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

Отсчитать строки в коде, уяснить, что речь про блок "Изменяемые параметры" в самом его начале, а конкретно про разрядность счётчика (что является прямым ответом на заданный вопрос), после чего поменять там 3 на 1 — это так сложно?
Кстати, и в первом сообщении достаточно было вместо совершенно ненужной цитаты всего-то сослаться на конкретный скрипт. Как решается на форуме проблема с оформлением ссылок у новичков, пояснялось многократно — пример.
Ненужный текст кода удалён.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Fri Nov 15, 2019 12:28    Post subject: Reply with quote

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



Joined: 15 Oct 2016
Posts: 8

Post (Separately) Posted: Wed Aug 09, 2023 02:32    Post subject: Reply with quote

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

Почему так? Как исправить? Работает же на старом компе, почему тогда на других компьютерах ошибка?
Back to top
View user's profile Send private message
Avada



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

Post (Separately) Posted: Wed Aug 09, 2023 06:28    Post subject: Reply with quote

Mashulechka
Поскольку автор скрипта в работе этого форума больше не участвует, набирайтесь терпения и ждите помощи от кого-то, кто в этом сможет разобраться.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Batya



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

Post (Separately) Posted: Wed Aug 16, 2023 11:16    Post subject: Reply with quote

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"

_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Mashulechka



Joined: 15 Oct 2016
Posts: 8

Post (Separately) Posted: Tue Sep 12, 2023 22:21    Post subject: Reply with quote

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

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

Back to top
View user's profile Send private message
Batya



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

Post (Separately) Posted: Thu Sep 14, 2023 02:22    Post subject: Reply with quote

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)" может по-разному отрабатывать.
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Mashulechka



Joined: 15 Oct 2016
Posts: 8

Post (Separately) Posted: Thu Sep 14, 2023 19:59    Post subject: Reply with quote

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

Обалдеть! Кто бы мог подумать! Работает! Спасибо преогромаднейшее!!!
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, 4, 5, 6, 7
Page 7 of 7

 
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