[Anonymоus]

Для тестирования я использовал вот такой плейлист

Код:

<Test:-1>
1|D:\Downloads\Woodscream\2010 - Pentadrama [EP]\01 - Равновесие.mp3|Woodscream|Pentadrama [EP]|Folk Metal|Равновесие|210782|8432434|01/05|2010|44100|320|2
1|D:\Downloads\Woodscream\2010 - Pentadrama [EP]\02 - Аббат Джон.mp3|Woodscream|Pentadrama [EP]|Folk Metal|Аббат Джон|222249|8891144|02/05|2010|44100|320|2
1|D:\Downloads\Woodscream\2010 - Pentadrama [EP]\03 - Чёрная смерть.mp3|Woodscream|Pentadrama [EP]|Folk Metal|Чёрная смерть|180244|7210948|03/05|2010|44100|320|2
1|D:\Downloads\Woodscream\2010 - Pentadrama [EP]\04 - Баллада о реке Шэннон.mp3|Woodscream|Pentadrama [EP]|Folk Metal|Баллада о реке Шэннон|198765|7951781|04/05|2010|44100|320|2
1|D:\Downloads\Woodscream\2010 - Pentadrama [EP]\99 - Test.mp3|Woodscream|Pentadrama [EP]|Folk Metal|Test|999999|8606932|99/99|2010|44100|320|2
1|D:\Downloads\Woodscream\2010 - Pentadrama [EP]\05 - Аконит.mp3|Woodscream|Pentadrama [EP]|Folk Metal|Аконит|215144|8606932|05/05|2010|44100|320|2

и вот такой индекс-файл с новыми путями и длительностью, составление которого остается за вами - у меня нету консольных утилит под windows, умеющих выдавать длительность в милисекундах

Код:

D:\Music\Folk Metal\Woodscream\Pentadrama [2010]\Равновесие.mp3|[210782]
D:\Music\Folk Metal\Woodscream\Pentadrama [2010]\Аббат Джон.mp3|[222249]
D:\Music\Folk Metal\Woodscream\Pentadrama [2010]\Чёрная смерть.mp3|[180244]
D:\Music\Folk Metal\Woodscream\Pentadrama [2010]\Баллада о реке Шэннон.mp3|[198765]
D:\Music\Folk Metal\Woodscream\Pentadrama [2010]\Аконит.mp3|[215144]

Как видите, его формат прост - Путь|[Длительность, в мсек]
В плейлист специально внесена ошибка - трек, который отсутствует в индекс-файле. Обработка осуществляется следующим скриптом:

Код:

@Echo Off
SetLocal EnableDelayedExpansion

Set OldPList=test.plc
Set Output=new.plc
Set IndexFile=index.txt

rem Переписываем заголовок файла в новый плейлист
For /F "usebackq delims=" %%A In ("%OldPList%") Do (
    Echo %%A>"%Output%"
    GoTo Break
)
:Break

rem Разбираем строки старого плейлиста на составляющие
Echo Processing "%OldPList%"...
For /F "usebackq skip=1 tokens=1,2,3,4,5,6,7,8,9,10,11,12 delims=^|" %%A In ("%OldPList%") Do (
    Set NewFilePath=
rem Ищем строку с таким же временем в индекс-файле
    For /F "tokens=1 delims=^|" %%P In ('Type "%IndexFile%"^|Find "[%%G]"') Do (
        Set NewFilePath=%%P
    )
	Echo Search for %%C - %%F
rem Генерируем строку нового плейлиста или пишем старую с добавкой пометки
rem В случае успешного поиска совпадения меняем только путь, в случае ошибки
rem дописываем ERROR к отображаемому имени
    If Not "!NewFilePath!"=="" (
        Echo %%A^|!NewFilePath!^|%%C^|%%D^|%%E^|%%F^|%%G^|%%H^|%%J^|%%K^|%%L>>"%Output%"
    ) Else (
        Echo %%A^|%%B^|ERROR %%C^|%%D^|%%E^|ERROR %%F^|%%G^|%%H^|%%J^|%%K^|%%L>>"%Output%"
	Echo    ERROR: "%%G" not found in %IndexFile%
    )
)
Echo All done
Pause

Важно! И старый плейлист, и индекс-файл, и батник должны быть в одинаковой кодировке. У плейлистов .plc это UTF-16 LE, батник в такой кодировке недопустим, поэтому я выбрал UTF-8 без BOM и перевел все три файла в неё. После запуска батник генерирует новый плейлист, в точности повторяющий старый, только с исправленными путями. Там, где соответствия не найдено (помните умышленно внесённую в тестовый плейлист ошибку?) к имени и исполнителю дописывается ERROR, что четко видно при просмотре плейлиста аимпом. После этого не забудьте перевести свежесозданный плейлист в его оригинальную кодировку, иначе вас ждут проблемы с кириллическими именами файлов и путями.

[Baranius]

Вы, что, живете здесь? Так быстро отвечаете!!
А я уже, собственно получил результат (спасибо Вашему форуму), правда кружным путем:
- нашел статью http://altblog.ru/quality-control-keywords/, скачал оттуда скрипт для Excel-я
- плейлисты перевёл в .csv файл (| - как разделитель)
- открыл и отредактировал их под скрипт
- получил результат, но... радости никакой - замучился с кодировками (не знал, что это так важно), замучил две программы (notepad ++, excel)

и вот только что наткнулся на этот топик http://forum.oszone.net/thread-211516.html - задача очень похожая. Ринулся проверять и ... осёкся.
Не знаю какое расширение присвоить этому коду и чем его запустить (PowerShell установлена или надо самому установить - ищу)

Ценю Ваше внимание.
(это я, расторопный такой, писал еще не видя сообщения выше. Ну и скорость, я думаю медленнее)

[Anonymоus]

Не знаю какое расширение присвоить этому коду и чем его запустить (PowerShell установлена или надо самому установить - ищу) »

Расширение - .ps1, сам PowerShell можно взять отсюда (для XP), а в семерке он вроде как по умолчанию установлен.

[Baranius]

и вот такой индекс-файл с новыми путями и длительностью, составление которого остается за вами - у меня нету консольных утилит под windows, умеющих выдавать длительность в милисекундах

А никаких консольных утилит и не надо. Нужно просто создать новый плейлист из упорядоченных (к примеру: D:\Music\Folk Metal\Woodscream\Pentadrama - Равновесие.mp3) файлов и формат индекс-файла - это формат AIMP-го плейлиста

поэтому вопрос: Set IndexFile=index.txt можно ли заменить на index.plc, который я спокойно могу создать из упорядоченных файлов? Да, а у Вас, я так понял, расширение нужно присвоить .vbs?

(опять не успел) спасибо за ответ насчет PowerShell.

[Anonymоus]

и формат индекс-файла - это формат AIMP-го плейлиста »

Как-то не подумал о возможности использовать для этого сам AIMP.
Но вам придется убрать оттуда ненужные поля и заключить длительность в квадратные скобки. Что впрочем, совсем не трудно

Код:

If Exist index.txt Del index.txt
For /F "usebackq tokens=2,7 delims=^|" %%A In ("test.plc") Do (
	Echo %%A^|[%%B]>>index.txt
)

или использовать плейлист (в соответствующей кодировке, естественно) напрямую, подредактировав скрипт из 11 поста.

[Baranius]

...напрямую, подредактировав скрипт из 11 поста

неужели я кажусь таким умным? Всё, что я могу - это положить два плейлиста и батник (все таки расширение не *.vbs, а *.bat - я правильно понял) в одну папку, если это нужно, и гордо нажать Enter на батнике
Попробую разобраться. Еще раз спасибо!

[Baranius]

Ух, ты!!
Эта железяка отзывается на мои телодвижения!
Несколько кривовато, но я уже ничего не соображаю, чтобы это исправить. Чувствую - не удержусь от вопросов (на самом деле должно было звучать так - ни фига я сам не сделаю, придется опять кланяться).
Спасибо, Anonymоus!!!

[Anonymоus]

Не за что, мне же не трудно, тем более, похожую проблему (сравнение списков) я уже как-то решал. На вопросы отвечу конечно, если они будут.

[Baranius]

А вот и поклоны.
Всё это время разбирался с батником

Код:

If Exist index.txt Del index.txt
For /F "usebackq tokens=2,7 delims=^|" %%A In ("index.plc") Do (
	Echo %%A^|[%%B]>>index.txt)

ведь синтаксиса не знаю, есть одна смекалка.
Два дня ушло, чтобы поменять "tokens=2,7" на "tokens=2,6" и ещё день, чтобы догадаться заполнить пустые поля "|||" на "|~|~|" в строках такого вида -
1|E:\_порядок\USA\pqrsT\Stan - Mr Saxobeat.mp3|||Other|Stan - Mr Saxobeat|194899|7796376|..., потому что вместо поля |длительность-194899| в index.txt записывалось поле |размер-7796376|.
И вот пару часов назад нашел фриварную программку CSVed, с помощью которой я очень просто подготовил файл "index.txt".
Это я к тому, что я вряд ли смогу переписать основной батник, зато легко теперь могу подогнать заготовки к одному виду (три поля):
1|полный путь|длительность - old.plc
1|полный путь|[длительность] - index.plc (или .txt)
(CSVed сохраняет в ANSI, нужно ли перекодировать?).
Дальше идёт нижайший поклон с просьбой подправить батник, под эти условия, пожалуйста!

Кстати, в Вашем решении есть отличный побочный результат - поиск одинаковых по длительности файлов. И большая вероятность того, что это действительно одинаковые песни, только по разному названы и лежащие в разных местах. Это ж сколько места на диске может освободиться! А в мировом масштабе?

[Anonymоus]

Уточните пожалуйста, вы хотите и старый, и новый плейлисты перевести в формат "1|полный путь|длительность" с помощью CSVed, и нужно переписать основной батник именно под такой формат?