OFF: Редактирование аудиодорожки видеофайла

У меня была похожая задача- нужно было вырезать семпл, используя определённые кодеки. Мне помог VirtualDubMod.

Можно ещё сюда заглянуть.

Все получилось!

Вот даже написал вот такой скрипт. Бросаем на него скачанный видео-файл. Далее скрипт информирует, нужно ли его перекодировать. Если формат аудио-контента не устраивает, то скрипт его конвертирует в mp3, а контейнер в mp4.

function GenerateString(L)
{
     return new ActiveXObject('Scriptlet.TypeLib').Guid.replace(/[^\w]+/g,"").slice(0,L);
}

var WshShell = new ActiveXObject("WScript.Shell");
var FSO = fso = new ActiveXObject("Scripting.FileSystemObject");

function isFile(Path)
{
    return fso.FileExists(Path);
}

function DeleteFile(Path)
{
    Path = WshShell.ExpandEnvironmentStrings(Path);
    FSO.DeleteFile(Path, true);
}

function ReadTextFile(Path)
{
    Path = WshShell.ExpandEnvironmentStrings(Path);
    if (!Path) return "";
    if (!isFile(Path)) return "";
    if (FSO.GetFile(Path).Size==0) return "";

    try 
    {
        var Stream = FSO.OpenTextFile(Path, 1, 0),
        Result = Stream.ReadAll();
        Stream.Close();
        return Result;
    }
    catch (e) {};
}

WshShell.CurrentDirectory = WScript.ScriptFullName.replace(/[^\\]+$/,"");

var File = WshShell.CurrentDirectory+"\\"+GenerateString(12);

var Command1 = "cmd /c ffmpeg -i \""+WScript.Arguments(0)+"\" 2> \""+File+"\"";
WshShell.Run(Command1, 0, 1);

var Text = ReadTextFile(File);
DeleteFile(File);

if (/Audio: ac3/i.test(Text)) 
    WScript.Echo("Для указанного файла требуется кодирование.");
else
{
    WScript.Echo("Для указанного файла не требуется кодирование.");
    WScript.Quit();
}

var Command2 = "ffmpeg -i \""+WScript.Arguments(0)+"\" -acodec mp3 -f mp4 \""+WScript.Arguments(0)+".Output.mp4\"";
WshShell.Run(Command2, 1, 1);
WScript.Echo("Процесс окончен.\n\n"+WScript.Arguments(0)+" обработан.");

Всем большое спасибо за советы! Надеюсь, кому-нибудь пригодится.

DnsIs, Iconbit HDMI33. Понравилось, что цена низкая, а потом догадался почему

Так как качаю контент обычно с торрентов, я немного модифицировал скрипт. Теперь он мониторит создание видео-файла в папке "Загрузки" и автоматически его конвертирует. Как баги исправлю, опубликую.

DnsIs, avi также не проигрывается.

Поэкспериментирую с другими утилями. Да еще в скрипт надо добавить поддержку создания нового файла в папке Загрузки, как раз удобно: поставил торренты на ночь, а на утро уже перекодировано.

Для конвертации  аудио/видео  рекомендую Avidemux  (avidemux.org) очень удобная программа.
Имею плейер IconBit 400Le - иногда попадаются фильмы, которые или не воспроизводятся совсем или повисают.
Чаще всего это связано с некорректными заголовками контейнеров. Так вот при помощи это программы зачастую удается быстро "переложить" фильм в другой контейнер - т.е. даже кодировать видео/аудио нет причины.
Кроме того она же позволяет легко вырезать кусок из любого  видеофайла.

Вы абсолютно правы. В ffmpeg есть в том числе возможность копирования текущего кодека, а именно путем использования параметра "-vcodec copy":

var Command2 = "ffmpeg -i \""+WScript.Arguments(0)+"\" -vcodec copy -acodec mp3  \""+WScript.Arguments(0)+".Output.avi\"";

Конвертирование теперь проходит очень быстро, без ухудшения качества.

ffmpeg заинтересовала конечно своими возможностями, но что-то я не могу в ней разобраться... Копался в гугле, в самом файле командами типа -? -h, но нужного мне не разглядел. Мне бы для старта всего лишь 3 примера команды на VBS:
1. Получить от файла (музыки mp3, иногда и wma) его битрейт.
2. Конвертировать музыку в mp3 с нужным мне битрейтом.
3. Конвертировать видео в avi с кодеком xvid пусть будет 1000kbps и mp3 с 96kbps.

Если Win версия не отличается от *nix, то при получении информации о файле, ffmpeg еще выдает кучу мусора. Поэтому, перенаправить вывод в текст и потом парсить его.

Мусор не мусор.. - я его потом как-нибудь отфильтрую, сама задача: как получить эту самую полезную кучу в vbs-переменную? Пробовал так:

Set e = CreateObject("WScript.Shell").Exec("ffmpeg -i 1.mp3")
msgbox e.StdOut.ReadAll

не катит, если всё делаю как надо.

Кстати говоря, может есть какие-нибудь штатные средства vbs получения звуко-инфы, было бы вообще замечательно, в идеале так еще и функции конвертирования... В принципе должны же быть библиотеки и COM объекты работы со звуком и видео.

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

Так работает. Только там битрейта среди инфы нет у меня.

Битрейт там должен быть, имхо, просто msgbox выводимую информацию обрезает.
Вот пример вывода с обрезанием инфы:

Set e = CreateObject("WScript.Shell").Exec("""c:\Program Files (x86)\FFMpeg\bin\ffmpeg.exe"" -i 1.mp3")

Do While e.Status = 0
     WScript.Sleep 100
Loop

dim s 
s = e.StdErr.ReadAll

msgbox MId( s, Instr( 1, s , "Duration:", 1 ))

В файл перенаправление из ffmpeg.exe можно так сделать:

ffmpeg -i 1.mp3 2>1.txt

Пример вывода у меня, там в конце битрейт: