Серый форум — VBS: Разобрать MP3 файлы

Re: VBS: Разобрать MP3 файлы

null@example.com (Flasher) — Sat, 13 Feb 2016 02:10:07 +0000

wildwolf007
Продолжение разве должно быть односторонним? Я писал про тесты, в ответ ни слуху ни духу (нравится, не нравится, что добавить, устроит сторонний компонент или ждать Xameleon с его продвижением по WMP и т.п.).

Xameleon пишет:

У меня дело пошло дальше. Добился стабильной записи, но каждый раз предидущего значения.

Хотелось бы взглянуть, что вышло.

Xameleon пишет:

Ну отличает ID3 v1 / ID3 v2 и подверсии.

Я думаю, он автоматически обе проверяет. ID3v2 для нас в любом случае предпочтительней.

Re: VBS: Разобрать MP3 файлы

null@example.com (wildwolf007) — Fri, 12 Feb 2016 20:20:21 +0000

Прошу прощения так на чем остановились? На каком решении? Итоговая версия получилась?

Re: VBS: Разобрать MP3 файлы

null@example.com (Xameleon) — Tue, 02 Feb 2016 10:02:53 +0000

Flasher,

всё равно чаще что-то блокирует запись

У меня дело пошло дальше. Добился стабильной записи, но каждый раз предидущего значения.

В каком смысле "разделяет"?

Ну отличает ID3 v1 / ID3 v2 и подверсии. К примеру поля Album и Artist присутствуют и в той и другой версии. Т.к тэги первой версии были расположены в конце файла, а тэги второй версии в начале файла, то исполнитель и альбом (наверное) могут в начале и в конце отличаться.

Дважды code вместо quote.

Понял. ) Благодарю. Поправил.

Re: VBS: Разобрать MP3 файлы

null@example.com (Flasher) — Mon, 01 Feb 2016 15:43:28 +0000

Xameleon пишет:

Дожидаться события(ий), добавлять и удалять трэк из коллекции...

Это было понятно по Note. Я так и делал. Вызов события я заменял на Do : Loop Until Song.getItemInfo(Attr) = Item, но толку от этого стало не многим больше, всё равно чаще что-то блокирует запись (одного и тоже же файла в частности).

Xameleon пишет:

Посетила мысль - а как WMP их разделяет ?

В каком смысле "разделяет"?

Xameleon пишет:

Где ? Не нашёл.

Дважды code вместо quote.

Re: VBS: Разобрать MP3 файлы

null@example.com (Xameleon) — Mon, 01 Feb 2016 11:26:28 +0000

Flasher,
1) Про лицензию понял. ) Благодарю за пояснение
2)

Тогда не должно быть указания начального и конечного вхождения, а только повторные.
Ага, ситуация ясна. Я был не прав. lookahead (искать справа от ...) - это не то же самое, что lookbehind (искать слева от ...). Второго (?<=) действительно нет. hmm А вот почему - большой вопрос. Можно < было вполне сделать спецсимволом.

Вот ! И я о том же подумал - не могу понять, что мешало им сделать "<" спецсимволом ???

Я тоже думал, что где-то там собака порылась. А можно посмотреть на вызов события?

К сожалению в работе погряз. Попробую выложить, когда убежусь в стабильности работы. Там одним событием обойтись не получается. Нужно танцы с бубном устраивать. Дожидаться события(ий), добавлять и удалять трэк из коллекции... Задумался в сторону написания класса, который напрямую просто работает с файлом. на VB6 много примеров, как читать и писать тэги MP3. Но упёрся в то, что тэги есть разных версий. Делать разные методы под разные тэги. Посетила мысль - а как WMP их разделяет ? Пока не выяснил.

В сообщении пару раз с bbcode ошиблись. )

Где ? Не нашёл.

Re: VBS: Разобрать MP3 файлы

null@example.com (Flasher) — Thu, 21 Jan 2016 23:00:49 +0000

+ Про скачивание

Xameleon пишет:

Про лицензию не понял.

В ряде лицензий пишется, что файлы из дистрибутива нельзя распространять по отдельности.

Xameleon пишет:

У меня недоверие именно к разработчикам утилиты.

Эти утилиты, думаю, и до нас проверили/перепроверили сотни раз.

Xameleon пишет:

Как Вы правильно сказали: "Скачал с сайта dll-(чего-то там) архив с пояснением распаковки".

Эту библиотеку я и не выкладывал (хотя её то как раз на всякий проверил). А вот все ссылки дистрибутивов с утилитами брались прямыми с оффсатов программ. Поэтому не вижу связи с примерами по mail.ru и utorrent.

Xameleon пишет:

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

Мда, похоже не видать мне тестов моего скрипта, если уже до обсуждения виртуалок добрались... )

Xameleon пишет:

На всякий случай прилагаю рабочую библиотеку к сообщению.

Я забыл сказать, что скачал 3 версии, две из которых эти. Только тестировать предпочёл самую новую. Ну, ОК, пусть будет.
По множественной вложенности понятно, спасибо.

Xameleon пишет:

Но я надеялся, что можно в Pattern можно вставить что-то, чтобы на выходе из Execute сразу получить вхождения - "внутренности" тэг(а)(ов).

Тогда не должно быть указания начального и конечного вхождения, а только повторные.
Ага, ситуация ясна. Я был не прав. lookahead (искать справа от ...) - это не то же самое, что lookbehind (искать слева от ...). Второго (?<=) действительно нет. А вот почему - большой вопрос. Можно < было вполне сделать спецсимволом.

Xameleon пишет:

Выяснил, что там нужно дождаться события MediaChange после SetItemInfo, чтобы успевали происходить изменения в файле.

Я тоже думал, что где-то там собака порылась. А можно посмотреть на вызов события?

В сообщении пару раз с bbcode ошиблись. )

Re: VBS: Разобрать MP3 файлы

null@example.com (Xameleon) — Thu, 21 Jan 2016 20:45:34 +0000

Flasher,

Архив большой получится. Тут ограничений нет? А лицензию с распространением в исходном виде тоже учитывать не нужно? Ссылки выложу, а потом опять править при замене?

Есть. Не больше 3-ёх мег вроде можно загрузить. Но можно на сторонний ресурс выложить. Например на yandex disk. . Про лицензию не понял.

Почему двойная? В теме ссылки найти быстрее, чем в гугле.

Это я другое имел в виду, что - сначала Вам утилиты пришлось искать, а потом всем желающим проверить код. ) Т.е один и тот же поиск дважды.

Это было до жалобы, в скрипте Converter.exe уже не фигурировал. Куча известных мне консольных утилит без цифровой подписи. Указанные проги я брал из этого дистрибутива. Впрочем, это Ваше дело, доверять мне или нет.

У меня недоверие именно к разработчикам утилиты. Думаю мало шансов, что человек будет злонамеренно выкладывать заражённую DLL на специализированный форум дабы заиметь ботнет из 5-10 человек. Просто не могу быть уверен в её происхождении. Как Вы правильно сказали: "Скачал с сайта dll-(чего-то там) архив с пояснением распаковки".
По хорошему конечно, чтобы не тратить время на проверки, надо было просто на виртуалке проверить скрипт. Но я как назло снёс vmware пару дней назад.

К официалам я стучаться не стал. Скачал с сайта dll-(чего-то там) архив с пояснением распаковки. Вероятно и Вы там же.
Ошибка с регой на строке вызова первого метода: Требуется объект, Код: 800A01A8.
Ошибка с манифестом - нет доступа.

Да. И я так же нашёл. И да. Проблема в том, что у последней версии библиотеки интерфейс ICddbID3Tag множественной вложенности, а у старой версии двухступенчатый (если я правильно посчитал)., как у большинства библиотек. В итоге загрузчик у WScript не добирается до нужного интерфейса и отдаёт Unknown.
VB6 же поддерживает не позднее связывание и поэтому в нём библиотека нормально грузится. Хотя часть методов объектов всё-таки вызываю ошибку при вызове, сообщая о том, что функция не адаптирована под VB6.

На всякий случай прилагаю рабочую библиотеку к сообщению. Вдруг пригодится.

Без Positive и Negative, может, и есть, а так то же самое. )

Понял. Попробую въехать подробнее. Явно в этом вопросе "плаваю".

Попробовал Ваш пример. Не додумался. Занятно.

Str = ""
With New Regexp
   .Global = True
   .Pattern = ".*|.*"
   MsgBox .Replace(Str, "")
End With

With New Regexp
   .Global = True
   .Pattern = "(.*)"
   MsgBox .Execute(Str)(0).submatches(0)
End With

Столкнулся с тем, что вариант с Replace не отработал вложенные тэги. Решил всё-таки пока оставить использование submatches. Но я надеялся, что можно в Pattern можно вставить что-то, чтобы на выходе из Execute сразу получить вхождения - "внутренности" тэг(а)(ов).

P.S Поковырялся ещё с WMP. Собрал проектик в VB6. Вроде бы добился работоспособного присвоения ID3 тэгов сразу. Выяснил, что там нужно дождаться события MediaChange после SetItemInfo, чтобы успевали происходить изменения в файле.

Re: VBS: Разобрать MP3 файлы

null@example.com (Flasher) — Thu, 21 Jan 2016 17:37:28 +0000

Xameleon пишет:

Не люблю сторонние ActiveX-ы. Хотя иногда без них сложно обойтись.

В том то и дело.

Xameleon пишет:

а сразу вложить утилиты в архив или выложить ссылки на них в посте ?

Архив большой получится. Тут ограничений нет? А лицензию с распространением в исходном виде тоже учитывать не нужно? Ссылки выложу, а потом опять править при замене?

Xameleon пишет:

Пмсм - двойная трата времени ?

Почему двойная? В теме ссылки найти быстрее, чем в гугле.

Xameleon пишет:

Да и к тому же часть утилит, я же брал из Вашего архива. Там приложения без цифровой подписи (Converter.exe / madplay.exe), соответственно я не могу знать откуда они были взяты и что в них заложил разработчик.

Это было до жалобы, в скрипте Converter.exe уже не фигурировал. Куча известных мне консольных утилит без цифровой подписи. Указанные проги я брал из этого дистрибутива. Впрочем, это Ваше дело, доверять мне или нет.

Xameleon пишет:

Ясно. А какого рода ошибка ? Пояснения в описании какие-нибудь имеются ?

К официалам я стучаться не стал. Скачал с сайта dll-(чего-то там) архив с пояснением распаковки. Вероятно и Вы там же.
Ошибка с регой на строке вызова первого метода: Требуется объект, Код: 800A01A8.
Ошибка с манифестом - нет доступа.

Xameleon пишет:

Так ведь Lookaheads, а не lookbehind ? Вроде разница же есть ?

Без Positive и Negative, может, и есть, а так то же самое. )

Xameleon пишет:

Т.е чтобы не приходилось конечные данные обрабатывать через Replace и т.п. ?

А почему конечные?

Str = "data"
With New Regexp
   .Global = True
   .Pattern = ".*|.*"
   MsgBox .Replace(Str, "")
End With

Re: VBS: Разобрать MP3 файлы

null@example.com (Xameleon) — Thu, 21 Jan 2016 13:50:33 +0000

Flasher,

Поковырялся с библиотекой cddbcontrol.dll

Нашёл 2 версии: 1.1.0.28 и 2.6.204.203.

Выяснил, что первая возвращает пригодный для скрипта класс CddbID3Tag, а вторая возвращает Unknown.

Проверил работоспособность. Скрипт нормально редактирует тэги mp3.

Если нужно - могу выложить пример и библиотеку.

Re: VBS: Разобрать MP3 файлы

null@example.com (Xameleon) — Thu, 21 Jan 2016 10:59:31 +0000

Flasher,

Я на поиск актуальной версии предложенной библиотеки потратил раз в 50 больше, чем на поиск 2-х ссылок в теме

1) А я ещё даже не искал. Рассматривал её как последнюю альтернативу для решения задачи. Не люблю сторонние ActiveX-ы. Хотя иногда без них сложно обойтись.

Впрочем, с моей стороны причина понятна - ещё не уверен, что вариант окончательный, поэтому ссылки в посте скрипта не указывал.

2) Это да. Вариант не окончательный. Но если Вы уже потратили время на подбор утилит, можно же не предлагать другим участникам форума повторять Ваш путь заново для тестирования примера, а сразу вложить утилиты в архив или выложить ссылки на них в посте ? Пмсм - двойная трата времени ? Ошибаюсь ?

Это, уж простите, паранойя предполагать, что достаточно распространённые консольные утилиты администраторы своих ресурсов вдруг захотели положить во вредоносном виде.

OFFTOP: Ахахах. ))) Станешь тут параноиком, когда видишь как знакомые с uTorrent-ом, mail агентом, и всяческими браузерами да и прочим софтом неглядя затаскивают к себе шпионский малвар. ) Вот несколько примеров на вскидку.

http://lmgtfy.com/?q=mail+ru+%D0%B2%D0% … 1%83%D1%81

http://lmgtfy.com/?q=utorrent+%D0%B1%D0 … 0%B5%D1%80

Казалось бы софт массового потребления. Разработчики должны заботиться о своей репутации.... Ан нет... )

Да и к тому же часть утилит, я же брал из Вашего архива. Там приложения без цифровой подписи (Converter.exe / madplay.exe), соответственно я не могу знать откуда они были взяты и что в них заложил разработчик. Поэтому, на мой взгляд - проверка вполне оправдана.

Пока тесты зарегистрированной (в т.ч. таким образом) версии 2.6.204.203 приводят к ошибке. Простой манифест с нужным нам классом тоже зарубил.

Ясно. А какого рода ошибка ? Пояснения в описании какие-нибудь имеются ?

См. на MSDN Positive and Negative Lookaheads.

Так ведь Lookaheads, а не lookbehind ? Вроде разница же есть ?

Каких, например?

Так чтобы возвращаемая коллекция вхождений сразу возвратила искомый результат. Т.е чтобы не приходилось конечные данные обрабатывать через Replace и т.п. ?

Re: VBS: Разобрать MP3 файлы

null@example.com (Flasher) — Wed, 20 Jan 2016 23:08:14 +0000

Xameleon пишет:

Ну согласитесь - не очень удобно, что для запуска примера нужно собирать файлы по всей теме + искать дополнительные утилиты в интернете ?

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

Xameleon пишет:

Когда ещё приходится каждую утилиту проверять на virustotal на всякий пожарный. Ведь мало ли что в инете выложено на публичных ресурсах.

Это, уж простите, паранойя предполагать, что достаточно распространённые консольные утилиты администраторы своих ресурсов вдруг захотели положить во вредоносном виде.

Xameleon пишет:

Попробую проверить, как время будет.

Пока тесты зарегистрированной (в т.ч. таким образом) версии 2.6.204.203 приводят к ошибке. Простой манифест с нужным нам классом тоже зарубил.
Если верить примеру, с Юникодом проблем не будет.

Xameleon пишет:

Практически везде пишут:
VBScript doesn’t support look-behind assertions.

См. на MSDN Positive and Negative Lookaheads.

Xameleon пишет:

без ухищрений

Каких, например?

Re: VBS: Разобрать MP3 файлы

null@example.com (Xameleon) — Wed, 20 Jan 2016 21:22:48 +0000

Flasher пишет:

Нет пакета. Утилиты в разных папках. Mp3Splt, id3 отсюда.

Понял. Ну согласитесь - не очень удобно, что для запуска примера нужно собирать файлы по всей теме + искать дополнительные утилиты в интернете ?
Когда ещё приходится каждую утилиту проверять на virustotal на всякий пожарный. Ведь мало ли что в инете выложено на публичных ресурсах.

Flasher пишет:

Мысль. Теперь осталось выяснить, как в нём обстоят дела с Юникодом.

Согласен. Попробую проверить, как время будет.

А, понял про что речь. Так есть же. См. (?=шаблон), (?!шаблон).

Практически везде пишут:

VBScript doesn’t support look-behind assertions.

пруфлинки:

http://stackoverflow.com/questions/1357 … r-vbscript

http://www.regular-expressions.info/vbscript.html

http://www.sql.ru/forum/470409/kak-sdel … exressions

Я пока только вникаю в регулярки, так что могу ошибаться. Пробовал эти конструкции использовать, но так и не смог одним запросом Execute выдернуть из

data

innerText из body без ухищрений и использования последующей обработки выборок.

Re: VBS: Разобрать MP3 файлы

null@example.com (Flasher) — Wed, 20 Jan 2016 17:20:59 +0000

Xameleon пишет:

Можно посмотреть готовое решение "из пакета" ?

Нет пакета. Утилиты в разных папках. Mp3Splt, id3 отсюда.

Xameleon пишет:

Пока наткнулся только на ActiveX - CDDBControl.CddbID3Tag.

Мысль. Теперь осталось выяснить, как в нём обстоят дела с Юникодом.

Xameleon пишет:

Так там lookbehind нет же ?

А, понял про что речь. Так есть же. См. (?=шаблон), (?!шаблон).

Re: VBS: Разобрать MP3 файлы

null@example.com (Xameleon) — Wed, 20 Jan 2016 16:32:23 +0000

Flasher,

Вам бы и мой скрипт проверить не помешало, а то выложил требуемое решение, но даже тс не тестирует. Пропал куда...

1) Честно хотел посмотреть. Даже вроде сложил всё что нужно в каталоге:

Но устал собирать утилиты по страницам. Добрался до строк в коде:


Const MadPlay = "madplay.exe"
Const AMRConv = "amrnb-encoder.exe"
Const MP3Splt = "mp3splt.exe"
Const ID3Edit = "id3.exe"

madplay.exe и amrnb-encoder.exe из первых постов взял. Остальное уже времени не хватило искать. Можно посмотреть готовое решение "из пакета" ?

2) По поводу lame и подобных утилит, особо ничего сказать не смогу наверное. Не имел опыта. Пока наткнулся только на ActiveX - CDDBControl.CddbID3Tag. Часто встречается его использование в скриптах для редактирования id3 тегов.

А как же .Test (пример в моём скрипте)?

Так там lookbehind нет же ? Вижу Replace и Trim задействованы. Или ошибаюсь ?

Как вариант ещё .Execute().Count.

Не понял. Как это связано с lookbehind?

Что там по P.S.?

Исполнено.

Re: VBS: Разобрать MP3 файлы

null@example.com (Flasher) — Wed, 20 Jan 2016 02:15:55 +0000

Xameleon
Да, медленновато, у меня быстрее даже с бóльшим числом секунд. 12, кстати, мало. Многое не распознает.
А так спасибо, поковыряюсь как-нибудь с примерами.
Вам бы и мой скрипт проверить не помешало, а то выложил требуемое решение, но даже тс не тестирует. Пропал куда..

Посмотрел утилиты. lame, как я понял, пишет только из файла в новый файл. Есть там ключи --id3v2-utf16, --pad-id3v2, --add-id3v2, -T, но я так и не понял, как их заставить работать с -tN.
LameTag - только смотрелка. Под Unix есть id3ted, но нет для win32.
Для AAC, OGG, например, юникодная правка в консоли имеется, а с более популярным форматом беда.

Кстати, ещё пробовал избавиться от резки MP3 с переходом на резку WAV старенькой mp3encdemo31 (она по умолчанию 30 сек. пишет), но нужную частоту задать не может, только битрейт. Есть shntool, но она режет на куски.

Xameleon пишет:

Так как RegExp в VBS не поддерживает lookbehind

А как же .Test (пример в моём скрипте)? Как вариант ещё .Execute().Count.

+ Уже как к модератору:

Что там по P.S.?