Конвертирование файлов mp4 по списку

@nongood clown · Регистрация: 03.07.2020

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Помогите со скриптом.
У меня есть скрипт vbs (использующий библиотеку ffmpeg), который вырезает из видео части - по времени.
Данные он берет из txt

Как создать такой же скрипт, где в списке будут указаны просто адреса папок.
Скрипту нужно залезть в каждую из папок и переконвертировать (с удалением исходных файлов) - все видеофайлы с расширением mp4 в avi ?

Visual Basic
1
2
3
4
5
6
7
8
9
10
Set oWSH = CreateObject("WScript.Shell")
With CreateObject("Scripting.FileSystemObject")
   Set oList = .OpenTextFile("Список.txt")
   Do: Str = oList.ReadLine
      If Str <> Empty Then S = Split(Str, vbTab): oWSH.Run "ffmpeg -loglevel -8 -i """ & S(0) & """ -ss " & S(1) & " -t " & S(2) &_
      " -c copy """ & .BuildPath(.GetParentFolderName(S(0)), .GetBaseName(S(0)) & "_1." & .GetExtensionName(S(0))) & """", 0, 1
   Loop Until oList.AtEndOfStream: oList.Close
End With
Set oList = Nothing: Set oWSH = Nothing
MsgBox "Операция завершена!", 4160, " Вырезание видео-фрагметов     "

FlasherX · 18.03.2021, 08:45

nongood clown, из шапки вы прочти два условия, так? С первым мы разобрались. Что по второму? Ваши действия?

@nongood clown · 18.03.2021, 12:46 **[ТС]**

FlasherX, да я решил, что без паузы как-нибудь.
Больно это тяжело для меня.
Буду потихоньку разбирать, может когда-нибудь пойму как там пауза работает.

FlasherX · 18.03.2021, 13:22

Сообщение от nongood clown

Больно это тяжело для меня.

Что тут может быть сложного, если это элементарная практика (уровень: 5-7 класс общеобразовательной школы) работы с любыми программами, поддерживающими параметры?

Сообщение от nongood clown

может когда-нибудь пойму как там пауза работает.

Не надо это понимать. Надо понимать, как вы делаете ровно то, что описано в оношении lnk-ярлыков. В этом мой вопрос, на который вы до сих пор не удосужились ответить. Только обратная связь может сдвинуть проблему с мёртвой точки, иначе так и будете вечно топтаться на месте.

@nongood clown · 18.03.2021, 13:58 **[ТС]**

FlasherX, ну вот вписываю в ярлык текст - C:\Path\to\SuspentResume.vbs s/r
(используя свой путь к файлу)
Потом назначаю хоткей.
Потом запускаю основной скрипт.
Затем запускаю по хоткею - второй скрипт (чтобы поставить процесс на паузу).
Вот такие мои действия.

FlasherX · 18.03.2021, 14:12

nongood clown, вот это уже конкретика.
А теперь идём в шапку и читаем второе условие:

Сообщение от FlasherX

' • Запуск с параметром s (приостановить) или r (возобновить)

Сообщение от FlasherX

Пример вызова (C:\Path\to\SuspentResume.vbs s/r) из LNK с хоткеем понятен?

Откуда очевидно, что параметром никак не может быть s/r. Косая черта '/' описывает синтаксис выбора с учётом приведённого условия. Соответственно, в ярлык приостановки вписывается s, в ярлык возобновления - r. Рабочая папка ярлыка должна соотв. расположению скрипта. Надеюсь, теперь понятно?

@nongood clown · 18.03.2021, 23:26 **[ТС]**

FlasherX, понятно.
Спасибо за ответ.

FlasherX · 19.03.2021, 00:24

nongood clown, пожал'та. Результат-то какой? Работает?

@nongood clown · 19.03.2021, 11:26 **[ТС]**

FlasherX, наверное работает.
Ошибки не выдает.
Просто файл для конвертирования большой - и не знаю стоит он на паузе или что-то делает.

FlasherX · 19.03.2021, 15:55

Сообщение от nongood clown

и не знаю стоит он на паузе или что-то делает.

Это легко понять по загруженности процесса ffmpeg. Если на нуле, значит, стоит на паузе.
Я, кстати, могу и switch-вариант (пауза/продожить) сделать без параметра, чтобы одним хоткеем туда-сюда переключать.

Новые блоги и статьи Все статьи Все блоги /
Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .
Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .

FlasherX 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,809
	18.03.2021, 08:45
	nongood clown, из шапки вы прочти два условия, так? С первым мы разобрались. Что по второму? Ваши действия? 0

@nongood clown 0 / 0 / 0 Регистрация: 03.07.2020 Сообщений: 203
	18.03.2021, 12:46 [ТС]
	FlasherX, да я решил, что без паузы как-нибудь. Больно это тяжело для меня. Буду потихоньку разбирать, может когда-нибудь пойму как там пауза работает. 0

@nongood clown 0 / 0 / 0 Регистрация: 03.07.2020 Сообщений: 203
	18.03.2021, 13:58 [ТС]
	FlasherX, ну вот вписываю в ярлык текст - C:\Path\to\SuspentResume.vbs s/r (используя свой путь к файлу) Потом назначаю хоткей. Потом запускаю основной скрипт. Затем запускаю по хоткею - второй скрипт (чтобы поставить процесс на паузу). Вот такие мои действия. 0

@nongood clown 0 / 0 / 0 Регистрация: 03.07.2020 Сообщений: 203
	18.03.2021, 23:26 [ТС]
	FlasherX, понятно. Спасибо за ответ. 0

FlasherX 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,809
	19.03.2021, 00:24
	nongood clown, пожал'та. Результат-то какой? Работает? 0

@nongood clown 0 / 0 / 0 Регистрация: 03.07.2020 Сообщений: 203
	19.03.2021, 11:26 [ТС]
	FlasherX, наверное работает. Ошибки не выдает. Просто файл для конвертирования большой - и не знаю стоит он на паузе или что-то делает. 0