プログラミング: 2020年10月アーカイブ

例えば、子供向けに、一問一問別ファイルになったなぞなぞ音声ファイルのうちから 3問だけランダムに抜き出して、ひとつの音声ファイルにしてダウンロードさせるとか、まあ、そういう感じのデモ要件があるので、プログラムを作ってみた。

まあ、ffmpeg 使えば一発なんだけどね。

プログラム的には、結合する 3つのファイルをランダムにもとめて、そのファイル名を i オプションと一緒に連結していくだけ。（ひとつのファイルごとに i オプションは必要なので注意）

下のように編集したオプションで ffmpeg を実行するだけだ。
（出力ファイル名を毎回同じにするなら、上書き許可の y オプションもお忘れなく。プログラム内から呼ぶのであれば、ffmpeg は大量のログを標準出力に出すので、loglevel オプションでの抑制もお忘れなく）

/usr/bin/ffmpeg -y  -i /data/11.mp3 -i /deta/7.mp3 -i /data/5.mp3  -loglevel quiet -filter_complex "concat=n=3:v=0:a=1" /data/nazonazo.mp3

赤いところがプログラムの編集が必要なところ。

Dim hoge_today As DateTime = "2020/03/23"

Dim hoge_addmon As DateTime = hoge_today.AddMonths(1)

Dim hoge_today As DateTime = "2020/03/31"

Dim hoge_addmon As DateTime = hoge_today.AddMonths(1)

Dim hoge_today As DateTime = "2020/02/29"

Dim hoge_addmon As DateTime = hoge_today.AddMonths(1)

Dim hoge_today As DateTime = "2020/02/29"

Dim hoge_addmon As DateTime = hoge_today.AddMonths(-1)

Dim old_mm As String = hoge_today.ToString("MM")

If hoge_today.AddDays(1).ToString("MM") <> old_mm Then

    saisyu_flg = 1

End If

Dim days As Integer = DateTime.DaysInMonth(hoge_today.AddMonths(1).Year, theDay.AddMonths(1).Month)

Dim hoge_addmon As DateTime = New DateTime(hoge_today.AddMonths(1).Year, hoge_today.AddMonths(1).Month, days)