Форум программистов, компьютерный форум, киберфорум
Софт: Аудио, звук
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 5.00/19: Рейтинг темы: голосов - 19, средняя оценка - 5.00
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
1
Windows

Программа для работы с именами mp3

23.06.2021, 13:25. Показов 3660. Ответов 61

Всем привет, подскажите пожалуйста программу. Задача, папка с mp3 как мне вытянуть список файлов в формате
00:00 имя первого
03:15 имя второго
и т.д.
Очень желательно возможность сортировки файлов.
0

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

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.06.2021, 13:25
Ответы с готовыми решениями:

Какие библиотеки нужны для работы с видео avi, flv и для работы с mp3?
Hello world! Подскажите пожалуйста какие библиотеки нужни мне для работи с видео .avi, flv и т.д...

Копирование файлов mp3 с использованием каталогов с русскими именами
Доброго времени суток подскажите как скопировать файл когда путь содержит кириллицу . вот мой...

Библиотеки для работы с mp3/wav и midi
Подскажите пожалуйста, какую библиотеку использовать для таких задач: 1. воспроизвести mp3/wav...

Библиотека для работы с id3-тегами mp3-файлов
Подскажите сабж. id3lib видел, но она старая и не поддерживает v2.4 тэгов.

61
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
23.06.2021, 20:04  [ТС] 41
FlasherX, Да, создания.
0

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

3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 20:06 42
Цитата Сообщение от Fedosyk Посмотреть сообщение
добавить mp3 и wav
В смысле совместить? Или выбрать в диалоге?
0
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
23.06.2021, 20:07  [ТС] 43
FlasherX, выбор лучше
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 20:19 44
Fedosyk, эмм. Боюсь, ту без доп. средств не обойтись. Тоталом не пользуетесь, случаем?

Не по теме:

I can, я скорее об этом )) :

0
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
23.06.2021, 20:20  [ТС] 45
FlasherX, Пользуюсь, но как пользователь))
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 20:36 46
Fedosyk, дело в том, что там вы можете сразу отсортировать по дате, и тогда выделенное по ПКМ в панели пойдёт в лог в текущем виде.
0
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
23.06.2021, 21:20  [ТС] 47
FlasherX, В тотале отсортировал,
Цитата Сообщение от FlasherX Посмотреть сообщение
тогда выделенное по ПКМ в панели пойдёт в лог в текущем виде
Вот тут не совсем понял, в тотале ПКМ у меня как в винде.

Добавлено через 15 минут
Нашёл как сохранить в txt отсортированное, но там без времени...
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 21:58 48
Цитата Сообщение от Fedosyk Посмотреть сообщение
в тотале ПКМ у меня как в винде.
Лучше заменить в настройках (стр. Основные операции) на ПКМ.

Вот этот код тянете ЛКМ на тулбар:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
'————————————————————————————————————————————
' Назначение: создать список mp3/wav файлов и
' таймкодов, отсортированный по дате создания
 
' Параметр кнопки: %WF
'————————————————————————————————————————————
Option Explicit
Const FN = "StartPlayTime_WAV_MP3.txt"
'————————————————————————————————————————————
Dim oShAp, oFSO, oSort, oDir, oTemp, oFile, F, FDate, i, List, Dur
Set oShAp = CreateObject("Shell.Application")
Set oFSO  = CreateObject("Scripting.FileSystemObject")
Set oSort = CreateObject("System.Collections.SortedList")
Set oDir  = oShAp.NameSpace(oFSO.GetAbsolutePathName(""))
Set oTemp = oFSO.OpenTextFile(WSH.Arguments(0),,,-1)
Set oFile = oFSO.CreateTextFile(FN, 1, 1)
 
Do: F = oTemp.ReadLine
   If Right(F, 1) <> "\" And InStr(1, "|mp3|wav|", "|" & oFSO.GetExtensionName(F) & "|", 1) Then
      FDate = oFSO.GetFile(F).DateCreated
      If oSort.Contains(FDate) Then oSort(FDate) = _
      oSort(FDate) & vbLf & FDate & "|" & F Else oSort.Add FDate, FDate & "|" & F
   End If
Loop Until oTemp.AtEndOfStream
oTemp.Close: Set oTemp = Nothing
 
For i = 0 To oSort.Count - 1
   List = List & vbLf & oSort.GetByIndex(i)
Next: Dur = 0
For Each F in Split(Mid(List, 2), vbLf)
   F = Split(F, "|")(1)
   oFile.WriteLine "0" & TimeSerial(0, 0, FormatNumber(Dur/10000000, 0)) & vbTab & F
   Dur = Dur + CDbl(oDir.ParseName(F).ExtendedProperty("Duration"))
Next
 
oShAp.ShellExecute FN: Set oShAp = Nothing
Set oSort = Nothing: Set oDir = Nothing
oFile.Close: Set oFile = Nothing: Set oFSO = Nothing

Потом ПКМ на кнопке > [Изменить...]. В параметрах пишите %WF, а след. поле очищаете. Подсказку сами подправите. [ОК].
Выделяете файлы и жмёте кнопку.
P.S.: Сортировку я сделал. В ТС уже не требуется.
1
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
23.06.2021, 22:10  [ТС] 49
FlasherX, Круто, получилось, завтра проверю в деле.
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 22:34 50
Лучший ответ Сообщение было отмечено Fedosyk как решение

Решение

Fedosyk, ОК.
Правка под сортировку дата+имя (учитывая замену коллекции файлов на выделение в любой последовательности):
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
'————————————————————————————————————————————
' Назначение: создать список mp3/wav файлов и
' таймкодов, отсортированный по дате создания
 
' Параметр кнопки: %WF
'————————————————————————————————————————————
Option Explicit
Const FN = "StartPlayTime_WAV_MP3.txt"
'————————————————————————————————————————————
Dim oShAp, oFSO, nSort, dSort, oDir, oTemp, oFile, F, FDate, i, List, Dur
Set oShAp = CreateObject("Shell.Application")
Set oFSO  = CreateObject("Scripting.FileSystemObject")
Set nSort = CreateObject("System.Collections.SortedList")
Set dSort = CreateObject("System.Collections.SortedList")
Set oDir  = oShAp.NameSpace(oFSO.GetAbsolutePathName(""))
Set oTemp = oFSO.OpenTextFile(WSH.Arguments(0),,,-1)
 
Do: F = oTemp.ReadLine
   If Right(F, 1) <> "\" And InStr(1, "|mp3|wav|", "|" & oFSO.GetExtensionName(F) & "|", 1) Then nSort.Add F, Empty
Loop Until oTemp.AtEndOfStream: oTemp.Close
 
If nSort.Count Then
   Set oFile = oFSO.CreateTextFile(FN, 1, 1)
   For i = 0 To nSort.Count - 1
      F = nSort.GetKey(i): FDate = oFSO.GetFile(F).DateCreated
      If dSort.Contains(FDate) Then dSort(FDate) = dSort(FDate) &_
      vbLf & FDate & "|" & F Else dSort.Add FDate, FDate & "|" & F
   Next
   For i = 0 To dSort.Count - 1
      List = List & vbLf & dSort.GetByIndex(i)
   Next: Dur = 0
   For Each F in Split(Mid(List, 2), vbLf)
      F = Split(F, "|")(1)
      oFile.WriteLine "0" & TimeSerial(0, 0, FormatNumber(Dur/10000000, 0)) & vbTab & F
      Dur = Dur + CDbl(oDir.ParseName(F).ExtendedProperty("Duration"))
   Next
   oFile.Close: Set oFile = Nothing: oShAp.ShellExecute FN
End If
 
Set oDir = Nothing: Set oShAp = Nothing: Set nSort = Nothing
Set oFSO = Nothing: Set oTemp = Nothing: Set dSort = Nothing
1
fly
1590 / 1392 / 387
Регистрация: 13.04.2015
Сообщений: 3,823
23.06.2021, 23:36 51
В виде программы
1
Вложения
Тип файла: rar FindMyMusic.rar (20.0 Кб, 3 просмотров)
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
24.06.2021, 08:44  [ТС] 52
I can, Спасибо, но скрипт удобнее, он сразу время считает и файлы без путей сохраняет, только имена. Ещё программа не запоминает последний путь.
0
fly
1590 / 1392 / 387
Регистрация: 13.04.2015
Сообщений: 3,823
24.06.2021, 08:49 53
Цитата Сообщение от Fedosyk Посмотреть сообщение
последний путь.
Как грустно

Эти все недочёты можно исправить за 10 минут, зато сортировка удобная
0
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
25.06.2021, 13:32  [ТС] 54
FlasherX, А сложно сделать чтобы список начинался 00:00 (мм:сс), а когда значение превышает 59 то продолжалось чч:мм:сс если сложно, я 00 в блокноте вырежу.
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
25.06.2021, 14:43 55
Fedosyk, дело не в "сложно", такая мысль приходила в голову до моего предложения убрать диспропорцию. Это бы лишало удобства блочного выделения в ряде текстовых редакторов.
0
Миниатюры
Программа для работы с именами mp3  
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
25.06.2021, 14:48  [ТС] 56
Цитата Сообщение от FlasherX Посмотреть сообщение
дело не в "сложно", такая мысль приходила в голову до моего предложения убрать диспропорцию. Это бы лишало удобства блочного выделения в ряде текстовых редакторов.
В блокноте не сложно убрать, буду убирать.
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
25.06.2021, 14:52 57
Fedosyk, блокнот - не то средство, которым это имеет смысл делать. Я же показал по ссылке блочное выделение, с которым и копировать и удалять гораздо быстрее.
Зачем вообще убирать? Неудобно же.
0
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
25.06.2021, 14:56  [ТС] 58
блокнот у меня Notepad++ а ссылку я посмотрел, очень интересно, но нихрена не понятно)) Буду так пользоваться.
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
25.06.2021, 15:14 59
В np++ всё то же самое. Держим Alt, тянем ЛКМ с нужного края (начало/конец блока) наискосок, пока всё не выделится. Либо держим Alt+Shift и выделяем стрелками.

На вопрос-то ответ будет?
0
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
25.06.2021, 16:16  [ТС] 60
FlasherX, Круто, про Alt не знал. Отвечаю на вопрос, на ютубе написано, что должно начинаться с 00:00, хотя я проверил и 00:00:00 тоже работает.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.06.2021, 16:16

Программа для воспроизведения Mp3
Добрый день всем, задали в универе сделать программу для воспроизведения MP3 файлов в delphi , не...

Программа для корректировки mp3 тегов
Всем доброго времени суток. Посоветуйте программу для корректировки mp3 тегов. Есть 1000 mp3шек и...

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

Программа для записи звука в mp3
Ребята, здравствуйте. Нужна бесплатная программа для захвата звукового потока с микрофона (или...

BAT-файл как программа по умолчанию для запуска MP3-файлов
Доброго времени суток. Сразу перейду к проблеме: имеется Java программа, которая принимает на вход...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
60
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.