息抜き：FLV - AAC

息抜き：FLV - AAC - M4A 変換

Radiko を録音するのに、『Radika』使ってます。これはとても良いソフトでずいぶん助かります。 NHK や FM サイマルは接続・録音には問題ないんですが、民放の場合、Radiko.jp の仕様によって、キーが取得できないとか切断されたとかのメッセージが出るときがあります。

そういうときは、ずいぶん前に購入した『ラジ録2』を使って録音します。逆に購入したのになぜ普段は使わないかというと、録音スケジュールの設定とか、聴く場合にはブラウザ (Radiko.jp) と連動するとか、使い勝手が少々・・・。

いちばん敬遠するところはファイル保存です。

保存形式で、FLV・AAC・MP3 とかを選べて、その中でAAC・MP3には最低～高音質を設定できます。 AAC・MP3 で保存する場合、予約が連続したり重複していると、その変換作業に能力を使われ、DELL Latitude ST (ATOM Z670) というPCではエクスプローラが止まってしまうときがあります（この辺りは自分の PC の問題だろう）。最高音質で保存するとどうなることか。

CPU への負担を減らそうと最低音質の設定にすると、元の FLV とほぼ同等のファイルサイズに関わらず、ほんとうに音が最低になる。普通の音質では倍のファイルサイズになってしまう。

それが Radika では HE-AAC でファイルサイズもほぼ変わらず M4A 保存してくれる。連続・重複予約しても、同じ PC でも余裕で処理してくれる。

そこで『ラジ録2』は FLV 保存にして、AAC や MP3 には変換しないことにするが、これでは FLV を再生できるプレーヤーでしか再生できないし、タイムシークスライダーも使えない。かといって、FLV から他フォーマットにいちから変換するのは時間がかかる。

『ラジ録2』は保存形式で「FLV」を指定できたが、最新の『Radikool』にはなかった（古いバージョンでは「Raw data」とかいう指定があったような）。
そこで、録音形式の設定で ffmpeg の引数に、


-metadata genre="radio" -acodec copy

を追加すると変換せずに元データのまま保存してくれた。

そういったことで、元データのままで、いかに簡単に FLV から M4A に変換できるかを考えた。

色々とページを探してみると、Radiko の音声変換について記しているページはたくさんあって（特に HE-AAC が iTunes で再生できない件）、その中から下の2つのソフトウェアが有効であることがわかった。

FLV から音声や動画を抽出する「FLV Extract」（これで音声 AAC ファイルが作れる）：http://moitah.net/
AAC を M4A とかに変換する「MP4Box」：http://kurtnoise.free.fr/mp4tools/

これらを使えば、M4A にすることができる。しかもいちからファイル変換するのではなく、元のデータはそのままに、それを包んでいるコンテナを変えるらしいので、変換に要する時間が非常に短い。

しかし、ファイルをひとつずつ変換するのは非常に面倒。特に MP4Box の場合は、コマンドラインでの実行だけのようだ。

一括処理といえばバッチファイルなのですが、ドライブやファイルパス取得といった引数やら、バッチファイルについてあまり深く考えたことがないので、色々調べるのが・・・そこで VB Script を使ってみることにした。

イメージとしては、

色々なファイルの入っているフォルダの中の FLV ファイルだけをリストして、
それらを連続して AAC に変換、さらに M4A に変換する

といったところ。

幸い、OKWave で、フォルダをVBSファイルにドラッグ＆ドロップしてファイルをリストする、とても便利なスクリプトを見つけました。

VBScript でフォルダ内の全ファイル名取得： http://okwave.jp/qa/q1561188.html

この中に、上記のイメージのスクリプトを追加したらいいんではないかと考えて、下記のように直してみた。


  'VBSファイルがある、ファイル名を含んだフルパスを取得
  strScriptFullName = Wscript.ScriptFullName
  'VBSファイル名
  strScriptName = Wscript.ScriptName
  'VBSファイル名を消してVBSファイルのあるパスを取得
  strScriptPathName = replace(strScriptFullName,strScriptName,"")
  
  'フォルダオブジェクト取得
  Set fsoFolder = fsoObj.GetFolder(inFolderName)
  
  'フォルダ内/ファイルループ
  For Each fsoFile In fsoFolder.Files

    if right(fsoFile.Path,4)= ".flv" then
      'FLVファイル名を含んだフルパス
      sFile=fsoFile.Path
      'AACファイル名を設定
      aFile=left(sFile, Len(sFile)-4) & ".aac"
      'M4Aファイル名を設定
      tFile=left(sFile, Len(sFile)-4) & ".m4a"
      'FLVExtractを使った FLV→AACファイル変換コマンド作成
      cFA= strScriptPathName & "FLV_Extract\FLVExtractCL.exe -a -t -o " & sFile
      'MP4boxを使った AAC→M4Aファイル変換コマンド作成
      cAM= strScriptPathName & "MP4Box\MP4box -add " & aFile & " " & tFile
      strCmd1 = cFA
      strCmd2 = cAM
      Set objWshShell = WScript.CreateObject("WScript.Shell")
      'FLVExtractを使ってAACファイルを作る
      RC = objWshShell.Run(strCmd1, 0, True)
      'MP4box を使ってM4Aファイルを作る
      RC = objWshShell.Run(strCmd2, 0, True)
    end if

  Next

これでフォルダをこの VBS スクリプトの上にドロップして変換することができました。元の FLV ファイルや途中で作成した AACファイルが残ってしまうが、これは後で消すようにした。こんなので良いのだか悪いのだか・・・でも、これで、Android とかのプレーヤーで聴くことができるようになりました。色々と考える過程で、Small Basic を触ってみたが、Small Basic では VBA における Shell のような外部コマンド実行方法が見つからなかった。

今は VBS のショートカットを「Send To（送る...）」に入れておいて、フォルダをクリックして右クリックメニューから VBS のショートカットを指定して変換している。ずりずりフォルダを VBS スクリプトのアイコンにドラッグ・アンド・ドロップするよりも、タブレットではフォルダ長押しで右クリックメニューが出るので、こっちの方が楽。

変換後のファイル容量は、例えば土曜日の午後にやっている「辛坊治郎　ズーム　そこまで言うか！」だとこうなる。放送時間は約2時間。