Как в mp3-файле-словаре найти паузы и "покусать" по ним файл

[qwertyhp]

Всем доброго дня!
Есть англо-русский mp3-словарь в виде mp3-файла. Содержит начитанные слова с переводом. Словарные пары разделены паузами.
По мере освоения словаря повторение освоенных слов становится лишним и занимает время/отвлекает внимание.
Целесообразно создать программу, которая вычисляет позиции пауз в mp3-словаре, и по ним:
1. Пропускает уже освоенные словарные пары
2. Режет исходный словарь на словарные пары, которые сохраняет на диск в виде отдельных файлов (для mp3-плеера).
3. Комбинация пп.1 и 2.
Целесообразно-то оно целесообразно - но вот как это сделать?
Пожалуйста, подскажите, кто может.

[Mikle]

Проще всего сконвертировать MP3 в WAV, а далее написать свою программу для нарезки. Если дашь образец исходного материала, могу попробовать, только до 2 июля я вряд ли освобожусь, занят на работе сильно.

[The trick]

Для получения PCM данный из MP3, а также для обратного конвертирования можно использовать ACM. (для конверсии в MP3 нужен будет какой-нибудь MP3 кодек, например Lame).
Далее просто анализируешь уровень сигнала, и если в течении какого-то промежутка времени амплитуда сигнала мала (задаешь пороговое значение для амплитуды и для времени), извлекаешь данные, и сохраняешь в MP3 через ACM. Опционально можно какой-нибудь сервис распознавания речи использовать чтобы получить имя файла, как например тут.

[qwertyhp]

Это файл из «Учим английские слова в МР3», конвертированный в WAV и заархивированный. Только как написать свою программу для нарезки WAV, я тоже не знаю... Основываясь на графическом представлении этого файла, предположу, что в паузах звук практически отсутствует.

[Хакер]

Далее просто анализируешь уровень сигнала, и если в течении какого-то промежутка времени амплитуда сигнала мала (задаешь пороговое значение для амплитуды и для времени)

Я бы перед этим прогнал сигнал через фильтр, чтобы вырезать НЧ (особенно DC и часто встречающийся 50 Hz гул) и ВЧ шумы, которые могут помешать пороговому детектированию пауз.

[Mikle]

Я бы перед этим прогнал сигнал через фильтр, чтобы вырезать НЧ (особенно DC и часто встречающийся 50 Hz гул) и ВЧ шумы, которые могут помешать пороговому детектированию пауз.

ВЧ шум определяется порогом детектирования пауз, а вот НЧ действительно надо резать, в приведённом примере неслабая DC составляющая.
Вот я не утерпел и сделал пример, имеется HPFilter, программа не универсальная, рассчитывается, что исходный файл будет таким, как в примере - 22050 Гц, 16 бит, моно, Windows PCM WAVE формат.

[qwertyhp]

Mikle, спасибо огромное, сейчас разбираюсь с Вашим примером.
Фильтрация нужна, Вы правы - но, похоже, она же и создает проблемы (ошибка '6' - переполнение) при попытке "покусать" уже другой фрагмент того же самого исходного файла (целиком исходный файл выложить не получается, 78 mB).
Фрагмент, вызывающий переполнение, прилагаю во вложении.

[Mikle]

Переполняется Integer, исходный сигнал подгружен. Переделай процедуру фильтрации так:

Код: Выделить всё

Private Sub HPFilter()
  Dim i As Long
  Dim d As Single
  Dim c As Long

  For i = 0 To Size - 1
    d = d * k1 + ArIn(i) * k2
    c = ArIn(i) - d
    If c > 32767 Then
      ArIn(i) = 32767
    ElseIf c < -32767 Then
      ArIn(i) = -32767
    Else
      ArIn(i) = c
    End If
  Next i
End Sub


[Mikle]

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

[Teranas]

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

[Mikle]

вырезает по два звуковых куска в один файл, хотя паузы есть везде...

Так и задумано, в исходном куске пары слов.