オブジェクトの作成メソッド:
MP3 ファイルを作成するオブジェクト (lame_enc.dll が必要)。
ファイル作成の手順はおよそこのようになります:
// 入力音声 (選択範囲)
var clip = Application.ActiveDocument.CreateSoundClip();
// FileWriter_LAME オブジェクトを作成する.
var writer = Application.CreateFileWriter("lame");
// 適当な圧縮フォーマットを選ぶ (VBR の場合).
writer.CodecInfo.IsVBR = true;
var fmts = writer.CodecInfo.GetCodecFormats(44100, 2);
fmts = fmts.toArray();
var i;
for (i in fmts) {
// 音質 60 % は Lame の音質インデックスの 4 に相当.
// (100 - CodecFormat.Quality) / 10 = lame_quality_index.
if (fmts[i].Quality == 60) {
// フォーマットをセットする.
writer.CodecFormat = fmts[i];
break;
}
}
/* ----------------------------------------------------
| // 適当な圧縮フォーマットを選ぶ (CBR/ABR の場合).
| var fmts = writer.CodecInfo.GetCodecFormats(44100, 2);
| fmts = fmts.toArray();
| var i;
| for (i in fmts) {
| if (Math.round(fmts[i].Bitrate / 1000) == 128) {
| // フォーマットをセットする.
| writer.CodecFormat = fmts[i];
| break;
| }
| }
| // このプロパティが true なら ABR, false なら CBR.
| writer.EnableABR = true;
---------------------------------------------------- */
// ファイル作成
writer.Process(clip, "D:\\Sound Output\\test1.mp3");
Dim clip, writer, fmts, f
' 入力音声 (選択範囲)
Set clip = Application.ActiveDocument.CreateSoundClip
' FileWriter_LAME オブジェクトを作成する.
Set writer = Application.CreateFileWriter("lame")
' 適当な圧縮フォーマットを選ぶ (VBR の場合).
writer.CodecInfo.IsVBR = True
fmts = writer.CodecInfo.GetCodecFormats(44100, 2)
For Each f In fmts
' 音質 60 % は Lame の音質インデックスの 4 に相当.
' (100 - CodecFormat.Quality) / 10 = lame_quality_index.
If f.Quality = 60 Then
' フォーマットをセットする.
writer.CodecFormat = f
Exit For
End If
Next
' -----------------------------------------------------
' ' 適当な圧縮フォーマットを選ぶ (CBR/ABR の場合).
' fmts = writer.CodecInfo.GetCodecFormats(44100, 2)
' For Each f In fmts
' If Round(f.Bitrate / 1000) = 128 Then
' ' フォーマットをセットする.
' writer.CodecFormat = f
' Exit For
' End If
' Next
' ' このプロパティが true なら ABR, false なら CBR.
' writer.EnableABR = True
' -----------------------------------------------------
' ファイル作成
writer.Process clip, "D:\Sound Output\test1.mp3"
Sazanami Help
Copyright (c) 2023 Narumi Watanabe.
All Rights Reserved.