Форум программистов, компьютерный форум, киберфорум
Софт: Аудио, звук
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 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
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 18:59 21
Fedosyk, если менять местами, то тем более будет диспропорция. И зачем менять время?
0
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
23.06.2021, 19:01  [ТС] 22
FlasherX, так потом проще копировать итог из экселя
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 19:03 23
Fedosyk, чем? Там любой табулятор жмётся и нажимается Ctrl+C.
0
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
23.06.2021, 19:05  [ТС] 24
тогда да, нет разницы, надо только формат 00:00:00 сделать
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 19:05 25
У csv сейчас какой разделитель? [Tab], ;, , ?
0
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
23.06.2021, 19:08  [ТС] 26
Visual Basic
1
ExtendedProperty("Duration"))/10000000, 0)), 3) & vbTab & i
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 19:09 27
Я про Excel. Что в скрипте — я в курсе.
0
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
23.06.2021, 19:10  [ТС] 28
FlasherX, я просто копирую в Excel а там автосумма.
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 19:12 29
Fedosyk, проще сразу в csv открывать. Поэтому и спрашиваю.
0
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
23.06.2021, 19:14  [ТС] 30
FlasherX, Я домохозяин в этих делах, хочется конечно как проще, но знаний нет. Если не сложно напишите алгоритм действий или дайте ссылку где почитать?
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 19:17 31
Fedosyk, погодите. А автосумма для чего? Может тут и Excel не нужен. Код-то я ещё 2 часа назад под таймкоды склеенных дорожек подправил.
0
fly
1590 / 1392 / 387
Регистрация: 13.04.2015
Сообщений: 3,823
23.06.2021, 19:19 32
Цитата Сообщение от Fedosyk Посмотреть сообщение
как ещё поменять местами название, а потом время?
Цитата Сообщение от Fedosyk Посмотреть сообщение
Да, так лучше
Visual Basic
1
2
3
For Each i In oItems
   oFile.WriteLine i & vbTab & Mid(TimeSerial(0, 0, FormatNumber(CDbl(i.ExtendedProperty("Duration")) / 10000000, 0)), 1)
Next
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 19:20 33
I can, неверно.
0
fly
1590 / 1392 / 387
Регистрация: 13.04.2015
Сообщений: 3,823
23.06.2021, 19:20 34
Ой, ребята, я лохонулся, давно страницу не обновлял

Добавлено через 20 секунд
Цитата Сообщение от FlasherX Посмотреть сообщение
I can, неверно.
Что не верно? Я отвечал на 20-е сообщение
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 19:21 35
Лучший ответ Сообщение было отмечено Fedosyk как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Dim oFile, oFSO, oShell, oItems, i, Dur
'——————————————————————————————————————
Const CD = "E:\Работа\MuzON\Chil\"
Const FN = "StartPlayTimeWAV.txt"
'——————————————————————————————————————
Set oFile  = CreateObject("Scripting.FileSystemObject").CreateTextFile(CD & FN, 1)
Set oShell = CreateObject("Shell.Application")
Set oItems = oShell.NameSpace(CD).Items
oItems.Filter 8256, "*.wav": Dur = 0
For Each i in oItems
   oFile.WriteLine TimeSerial(0, 0, FormatNumber(Dur/10000000, 0)) & vbTab & i
   Dur = Dur + CDbl(i.ExtendedProperty("Duration"))
Next
oFile.Close: Set oFile = Nothing: Set oItems = Nothing
oShell.ShellExecute CD & FN: Set oShell = Nothing
1
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
23.06.2021, 19:25  [ТС] 36
Всё получилось супер! Спасибо огромное!
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 19:35 37
Цитата Сообщение от I can Посмотреть сообщение
Что не верно? Я отвечал на 20-е сообщение
Смысл в Mid(x, 1) попусту отсутствует. Но дело в этом. Речь выше шла о суммировании таймкодов, которые начинаются с 0. А у вас тупо замена формата для исходного запроса. Я же предложит его именно для суммирования, т. к. вероятность появления часов в этом случае довольно высока. Уат так уот. )

Fedosyk, пожал'ста. )
0
7 / 7 / 2
Регистрация: 21.05.2015
Сообщений: 65
23.06.2021, 19:49  [ТС] 38
FlasherX, А можно как-то выбор папки добавить, чтобы не править каждый раз, добавить mp3 и wav и сделать сортировку не по алфавиту имён, а по дате скачивания?
0
fly
1590 / 1392 / 387
Регистрация: 13.04.2015
Сообщений: 3,823
23.06.2021, 19:50 39
Цитата Сообщение от FlasherX Посмотреть сообщение
Уат так уот.
0
3577 / 1918 / 747
Регистрация: 06.06.2017
Сообщений: 6,675
23.06.2021, 20:02 40
Цитата Сообщение от Fedosyk Посмотреть сообщение
а по дате скачивания?
Создания, может?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2021, 20:02

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

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

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

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

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

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


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

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

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