Хоткей на добавление выделенного файла/папки в плейлист

[serzh82saratov]

Тут приходится задействовать буфер, наверно, это не очень здорово 

Не спорю, конечно вариант с WinApi предпочтительнее.
Мой просто проще в плане кода, чтоб новичкам не страшно было смотреть на на много строк кода 

[Xwansu]

Не спорю, конечно вариант с WinApi предпочтительнее.
Мой просто проще в плане кода, чтоб новичкам не страшно было смотреть на на много строк кода 

Я поначалу пользовался скриптом AHK. Теперь же добавляю папки только перетаскиванием (на десктопе). На медиа-девайсе (типа HTPC) иногда задействую хоткей, т.к. перетаскивать с мини-клавиатуры (у которой встроен тач-пад) не очень удобно - бывают осечки.

[serzh82saratov]

Я поначалу пользовался скриптом AHK. Теперь же добавляю папки только перетаскиванием (на десктопе)

А каковы причины?

[Xwansu]

А каковы причины?

Иногда (оч. редко) скрипт давал сбои. Плюс, я чаще добавляю целую папку - альбом в качестве отдельного плейлиста, а скрипт работал на добавление в текущий плейлист. В общем, на десктопе как-то не прижилось. 
Появилась идея. А если в контекстном меню АИМПа сделать 2 пункта:
1. Добавить в плейлист
2. Создать плейлист
Может в предложения?

[serzh82saratov]

Иногда (оч. редко) скрипт давал сбои. Плюс, я чаще добавляю целую папку - альбом в качестве отдельного плейлиста, а скрипт работал на добавление в текущий плейлист. В общем, на десктопе как-то не прижилось. 

Так как я всё же не вижу ничего страшного в использовании буфера обмена в случаях когда скорость не имеет значения:

Code: [Select]

f3::
clipboard=
Send, ^{vk43} ; Ctrl + C
Sleep 100
If clipboard =
return
Path := RegExReplace(clipboard, "[\r\n]\R", """ """)
Run, %A_ProgramFiles%\AIMP2\AIMP2.exe "%Path%"
ToolTip  Сделано
Sleep 1000
ToolTip
return Осечки бывают везде, но здесь надо будет просто нажать ещё раз. Каждый раз когда всё сделано я вижу это в районе курсора ввиде ненавязчивого сообщения, если его нет то просто нажимаю ещё пока непоявится.

а скрипт работал на добавление в текущий плейлист

Если добавление нетребуется используйте код выше. если надо добавлять, то вместо строки:

Code: [Select]

Run, %A_ProgramFiles%\AIMP2\AIMP2.exe "%Path%"наверное:

Code: [Select]

Run, %A_ProgramFiles%\AIMP2\AIMP2.exe /INSERT "%Path%"

[Xwansu]

Если добавление нетребуется используйте код выше.

Не очень понял 
У нас есть 2 варианта, куда добавлять треки:
1. Текущий плейлист
2. Новый плейлист
По идее, можно модифицировать скрипт (если это, конечно, возможно) так, чтобы иметь 2 хоткея; по первому - помещаем треки в текущий плейлист, по второму - создаем новый.

[serzh82saratov]

Не очень понял

код выше без ключа /INSERT, а значит: 2. Новый плейлист

По идее, можно модифицировать скрипт (если это, конечно, возможно) так, чтобы иметь 2 хоткея; по первому - помещаем треки в текущий плейлист, по второму - создаем новый.

да можно и в одном, с выводом окошка - "что сделать?", оно же и будет  потверждением удачи копирования путей:

Code: [Select]

#IfWinActive, ahk_class CabinetWClass
f3::
clipboard := "" , INSERT := ""
Send, ^{vk43} ; Ctrl + C
If clipboard =
return
MsgBox, 262180, Плейлист АИМП`, добавить файлы,  Yes - Добавить в текущий`rNO - Добавить в новый плейлист
IfMsgBox Yes
INSERT := "/INSERT"
Path := RegExReplace(clipboard, "[\r\n]\R", """ """)
Run, %A_ProgramFiles%\AIMP3\AIMP3.exe %INSERT% "%Path%"
return
#IfWinActive
Зачем городить кучу кнопок, так их и забыть можно

[Xwansu]

Спасибо, работает  Но хотелось бы обойтись без диалогового окна, задействовать только хоткеи. В идеале - может появляться на доли секунд полупрозрачное сообщение рядом с треем:
15 треков добавлены в плейлист такой-то
или
создан плейлист <имя_плейлиста>

PS: Заметил проблему - при создании нового плейлиста, начинается воспроизведение трека.

[serzh82saratov]

Но хотелось бы обойтись без диалогового окна, задействовать только хоткеи.

Code: [Select]

#IfWinActive, ahk_class CabinetWClass
f3::
clipboard := ""
Send, ^{vk43} ; Ctrl + C
If clipboard =
return
Path := RegExReplace(clipboard, "[\r\n]\R", """ """)
Run, %A_ProgramFiles%\AIMP3\AIMP3.exe /INSERT "%Path%"
return
#IfWinActive
и

Code: [Select]

#IfWinActive, ahk_class CabinetWClass
f4::
clipboard := ""
Send, ^{vk43} ; Ctrl + C
If clipboard =
return
Path := RegExReplace(clipboard, "[\r\n]\R", """ """)
Run, %A_ProgramFiles%\AIMP3\AIMP3.exe "%Path%"
return
#IfWinActive


Code: [Select]

Заметил проблему - при создании нового плейлиста, начинается воспроизведение трека.Ну это уже к вопросу настроек аимпа.
снять отметку сразу воспроизводить при добавлении

[serzh82saratov]

В идеале - может появляться на доли секунд полупрозрачное сообщение рядом с треем:

Code: [Select]

#IfWinActive, ahk_class CabinetWClass
f4::
clipboard := ""
Send, ^{vk43} ; Ctrl + C
If clipboard =
return
Path := RegExReplace(clipboard, "[\r\n]\R", """ """, Replace)
Run, %A_ProgramFiles%\AIMP3\AIMP3.exe /INSERT "%Path%"
Replace++
TrayTip, AIMP3, Добавлено %Replace% песен, 5000, 1
return
#IfWinActive


15 треков добавлены в плейлист такой-то
или
создан плейлист <имя_плейлиста>

Что-то непонятно какой такой плейлист. Где брать его название. У меня просто в дефолтный добавляет.

[Xwansu]

Ну это уже к вопросу настроек аимпа.
снять отметку сразу воспроизводить при добавлении

Точно, теперь норм. Настройка добавления файлов.
-------
Еще замечания.
1. С диалоговым окном есть проблема - оно скрыто плеером, который поверх всех окон
2. При таком способе добавления (через буфер), иногда появляются треки, которые добавляются некорректно - название отображается тусклым, и при воспроизведении АИМП выдает ошибку
code: 2 
Message: Can't open the file
Я с таким сталкивался и раньше, только не помню какой именно это был скрипт 

[Xwansu]

Что-то непонятно какой такой плейлист. Где брать его название. У меня просто в дефолтный добавляет.

Ну, если дефолтный - писать "дефолтный"
Может еще создаваться плейлист с названием директории.

[serzh82saratov]

1. С диалоговым окном есть проблема - оно скрыто плеером, который поверх всех окон

поправил в #36 посте

2. При таком способе добавления (через буфер), иногда появляются треки, которые добавляются некорректно - название отображается тусклым, и при воспроизведении АИМП выдает ошибку
code: 2 
Message: Can't open the file
Я с таким сталкивался и раньше, только не помню какой именно это был скрипт 

Если этот файл воспроизвести отдельно всё нормально? И есть какаято закономерность какие файлы портятся.

Ну, если дефолтный - писать "дефолтный"

Это вы сами можете поправить в строке:

Code: [Select]

TrayTip, AIMP3, Добавлено %Replace% песен, 5000, 1

Может еще создаваться плейлист с названием директории.

Может.

[Xwansu]

Code: [Select]

#IfWinActive, ahk_class CabinetWClass
f4::
clipboard := ""
Send, ^{vk43} ; Ctrl + C
If clipboard =
return
Path := RegExReplace(clipboard, "[\r\n]\R", """ """, Replace)
Run, %A_ProgramFiles%\AIMP3\AIMP3.exe /INSERT "%Path%"
Replace++
TrayTip, AIMP3, Добавлено %Replace% песен, 5000, 1
return
#IfWinActive


Работает, если выделить несколько файлов. Если же добавить папку с файлами, то будет писать, что добавлен только 1 трек. Т.е. считает число папок, а не треков.

[Xwansu]

Если этот файл воспроизвести отдельно всё нормально? И есть какаято закономерность какие файлы портятся.

При перетаскивании - все окей. Закономерности пока не нашел, возможно дело в тегах, он берет их из ID3v1 вместо ID3v2.