FLAC のタグ打ち 2

« 1 つ新しい記事「200 万円のディスプレイを買ってしまった」へ
1 つ古い記事「cue シートの songwriter」へ »

2009 年 6 月 26 日金曜日

以前に作成した VBScript に欠陥があることが分かりました。タグを入力する際にダイアクリティカルマーク (é などについているアクセント記号) が消えてしまうのです。元々、ダイアクリティカルマークが使われていない場合には問題ありません。

‌

metaflac ではタグを入力する際に自動で文字コードを UTF-8 に変換するのですが、この際にダイアクリティカルマークが消えてしまうようです。VBScript の実行環境の内部的な文字コードが UTF-8 ではないためにこの現象が起きるのではないでしょうか。文字コードを UTF-8 にできれば --no-utf8-convert で解決できるのですが、内部的な文字コードの変更方法は分かりませんし、この仮説があっているかどうかも分かりません。

そこで、やはり一度外部のファイルにタグを書き出して、それを flac に埋め込むという行程が良さそうです。ただ、以前試した際は VBScript で adodb.stream を使ってファイルを読み書きすると、Avira AntiVir にウイルス扱いされてしまいました。今回はこれを乗り切る必要があります。

が、案外簡単でした。VBScript を wsf 化することだけで簡単に解決できました。VBScript の wsf 化は、VBScript ファイルの拡張子を vbs から wsf に変更し、ちょっとした記述を追加するだけです。これだけでウイルス扱いされずにすみました。Avira AntiVir の検出精度もいい加減なもんです。

さて、具体的には下記のようなコードになりました。前回は 10 日かかりましたが今回は数時間でできました。だんだん VBScript の理解が進んできたようです。作業内容は下記の 3 つです。

cue シートのアルバム全体の PERFORMER (Album Artist) の内容を BAND (ID3v2.3 の TPE2) にコピー。この際、「(1-4) 指揮: デュトワ - (5,6) 指揮: ギブソン」などのように曲ごとの指定がある場合には曲ごとに BAND の内容をコピーします。
曲名に : (半角コロン) が含まれる場合には、その前を CONTENTGROUP (TIT1) に、後を SUBTITLE (TIT3) にコピーします。
UTF-8 の cue シートを埋め込みます

1 番目は Masstagger では多分できません。仮に Masstagger でやれたとしても foobar2000 でタグに触ることになってしまいます。foobar2000 には欠陥があり、cue を埋め込んだ flac (incue) のタグをいじると無駄なタグを付け加えてしまいます。これによりデータベースが肥大してしまいますので、foobar2000 ではタグの編集はしないほうがよいでしょう。下記のテキストエリア内では全選択ができますのでコピーしたい方は Ctrl + A を使ってください。bandcopyonly_contentgroup_cue_folder.wsf などと名前を付けて保存してください。

<?xml version="1.0" encoding="UTF-8"?><package><job id="Sample"><?job error="true" debug="true"?><script language="VBScript">'<![CDATA[ ' 指定したフォルダ内に存在する cue シートと同名の flac にタグを入力するスクリプト ' cue シートがない場合には何もしない。 ' cue シートの文字コードは UTF-8 にしないと文字化けする。BOM はあってもなくてもいいっぽい。 ' 作業内容は下記の 3 つ ' 1. アルバムごとの演奏者情報をトラックごとに分割して、 ' トラックごとの BAND (TPE2) に入力 ' 2. 曲名のコロン以前をそのトラックの CONTENTGROUP (TIT1) に入力 ' コロンの後をそのトラックの SUBTITLE (TIT3) に入力 ' 3. cue シートも同時に埋め込む。cue シートは削除する。 foldername = "D:\Data\Music\Mozart" ' フォルダを指定してください。 mflac = "D:\Program\FLAC\metaflac.exe" ' metaflac のパスを指定してください。 Set fso = CreateObject("Scripting.FileSystemObject") Set src = fso.GetFolder(foldername) ' 対象フォルダの指定 ' 指定のフォルダに格納された各ファイルを処理する For Each FileName In src.Files FileEx = fso.GetExtensionName(FileName) ' ファイル名から拡張子を抜き出す If LCase(FileEx) = "cue" Then ' 拡張子を小文字化してから比較 cue = FileName flac = replace(FileName, "cue", "flac") tag = replace(FileName, "cue", "tag") call addBandContentgroupCue(cue, flac, mflac, tag) cue = null flac = null tag = null End If Next MsgBox("全部終了") wscript.quit(1) ' 処理を終了してエラーナンバー 1 を返す Function addBandContentgroupCue(cuesheet, targetflac, metaflac, tagfile) set readCue = createobject("adodb.stream") set removeBom = createobject("adodb.stream") set writeTagFile = createobject("adodb.stream") readCue.open readCue.charset = "UTF-8" readCue.loadfromfile cuesheet if err.number > 0 then wscript.echo "Can't open " & cuesheet & " for reading." readCue.close Exit Function ' 途中退出 end if removeBom.open removeBom.charset = "UTF-8" writeTagFile.open writeTagFile.charset = "UTF-8" writeTagFile.type = 1 text = readCue.readtext(-1) ' cue シートの読込 set titleExistence = new regexp ' cue から曲名を抽出するための正規表現を作成 titleExistence.global = true ' 文字列全体を検索するように設定 titleExistence.pattern = " TITLE ""(.*)""" ' パターン設定: TITLE "文字の連続" set Matches1 = titleExistence.Execute(text) ' 検索を実行 tracks = Matches1.Count + 1 Dim contentGroups() ' 曲のタイトルのうちコロンより前を格納する配列を宣言 ReDim contentGroups(tracks) ' 配列のサイズを指定 Dim subTitles() ' 曲のタイトルのうちコロンより後を格納する配列を宣言 ReDim subTitles(tracks) ' 配列のサイズを指定 Dim singularTrackArtist() ' トラックごとの演奏者を格納する配列を宣言 ReDim singularTrackArtist(tracks) ' 配列のサイズを指定 tracks = tracks - 1 trackIndex = 0 For Each Match1 in Matches1 ' Matches1 コレクションに対して繰り返し処理を実行 trackIndex = trackIndex + 1 matchValue1 = Match1.Value trackTitle = titleExistence.replace(matchValue1, "$1") colonPosition = InStr(1, trackTitle, ":", 1) if colonPosition > 0 then contentGroups(trackIndex) = Left(trackTitle, colonPosition - 1) subTitles(trackIndex) = Right(trackTitle, Len(trackTitle) - colonPosition - 1) end if Next ' ContentGroup Counter = 0 ' 変数を初期化します。 Do While Counter < tracks Counter = Counter + 1 ' カウンタの数を増やします。 trackIndex = Counter If trackIndex < 10 Then ' trackIndex が 9 以下のときは trackIndex = 0 & trackIndex ' 頭に 0 をつける End If If contentGroups(Counter) <> "" Then ' カンマがない曲は処理を飛ばす setContentGroup = setContentGroup & "cue_track" & trackIndex & "_CONTENTGROUP=" & contentGroups(Counter) & vbCrLf ' metaflac のタグ打ちのコマンド End If Loop ' SubTitle Counter = 0 ' 変数を初期化します。 Do While Counter < tracks Counter = Counter + 1 ' カウンタの数を増やします。 trackIndex = Counter If trackIndex < 10 Then ' trackIndex が 9 以下のときは trackIndex = 0 & trackIndex ' 頭に 0 をつける End If If subTitles(Counter) <> "" Then ' カンマがない曲は処理を飛ばす setSubTitle = setSubTitle & "cue_track" & trackIndex & "_SUBTITLE=" & subTitles(Counter) & vbCrLf ' metaflac のタグ打ちのコマンド End If Loop ' setBand set distill = new regexp ' cue からアルバムアーティストを抽出するための正規表現を作成 distill.global = true ' 文字列全体を検索するように設定 distill.pattern = "\nPERFORMER ""(.*)""" ' パターン設定: PERFORMER "何でも" if distill.test(text) then ' 検索をテスト Set Matches2 = distill.Execute(text) ' 検索を実行 For Each Match2 in Matches2 ' Matches2 コレクションに対して繰り返し処理を実行 matchValue2 = Match2.Value Next AlbumArtist = distill.replace(matchValue2, "$1") Set splits = New RegExp ' アルバムアーティストを同一アーティストごとに分割するための正規表現を作成 splits.Pattern = "($[0-9][^$]*\))" ' パターン: 左かっこ、数字、右かっこ以外の 0 回以上の繰り返し、右かっこ splits.Global = True ' 文字列全体を検索するように設定 if splits.test(AlbumArtist) then ' 検索をテスト Set Matches3 = splits.Execute(AlbumArtist) ' 二重引用符の中身に対して検索を実行 Dim FirstIndexes() ' 検索に一致した文字列の位置を格納する配列を宣言 hitCount = Matches3.Count - 1 ' 検索に一致した文字列の数 ReDim FirstIndexes(hitCount) ' 配列のサイズを指定 hitIndex = -1 For Each Match3 in Matches3 ' Matches3 コレクションに対して繰り返し処理を実行 hitIndex = hitIndex + 1 ' 0 から数えて何個目の検索結果か FirstIndexes(hitIndex) = Match3.FirstIndex ' 配列に値を入れる Next Dim artist() ' アーティスト名を入れる配列を宣言 ReDim artist(hitCount) ' 配列のサイズを指定 For i = 0 To hitIndex ' ちょうど hitIndex がいい按配なので流用 j = i + 1 ' 次の検索結果のインデックス if i = hitIndex Then ' 最後のヒットだったら length = Len(AlbumArtist) - FirstIndexes(i) ' 文字数を計算、全体の文字数から今回の検索結果の位置を引く Else length = FirstIndexes(j) - FirstIndexes(i) - 3 ' 文字数を計算、次の検索結果の位置から今回の検索結果の位置を引く。さらに 3 を引いて末尾のハイフンを除去 End If lngStart = FirstIndexes(i) + 1 ' FirstIndex の基点は 0 だが Mid の基点は 1 なので、それを調整 artist(i) = Mid(AlbumArtist, lngStart, length) ' アルバムアーティスト全体を同一アーティストごとに分割 Next hitIndex = -1 For Each Match4 in Matches3 ' Matches3 コレクションに対して繰り返し処理を実行 hitIndex = hitIndex + 1 ' 0 から数えて何個目の検索結果か pluralTracksArtist = artist(hitIndex) ' 配列から取り出す number = Match4.Value ' 数字部分 onlyArtist = replace(pluralTracksArtist, number & " ", "") ' アーティスト部分のみ commaCheck = instr(number,",") ' カンマの位置。カンマがなかったら 0 を返す。 hyphenCheck = instr(number,"-") ' ハイフンの位置。ハイフンがなかったら 0 を返す。 if commaCheck = 0 and hyphenCheck = 0 then ' カンマもハイフンもなかったら trackIndex = replace(number, "(", "") ' 正規表現を作るのも面倒なので replace でかっこを除去 trackIndex = replace(trackIndex, ")","") ' かっこを除去 singularTrackArtist(trackIndex) = pluralTracksArtist else set hyphenNumber = new regexp ' ハイフンでの範囲指定をカンマでの列挙に変換するための正規表現 hyphenNumber.global = true ' 文字列全体を検索するように設定 hyphenNumber.pattern = "([0-9]+)-([0-9]+)" ' パターン設定: 数字の連続、ハイフン、数字の連続 if hyphenNumber.test(number) then ' 検索をテスト Set Matches5 = hyphenNumber.Execute(number) ' 検索を実行 For Each Match5 in Matches5 ' Matches5 コレクションに対して繰り返し処理を実行 matchValue5 = Match5.Value ' 検索にヒットした値 startNumber = hyphenNumber.replace(matchValue5, "$1") ' 範囲指定の始点 endNumber = hyphenNumber.replace(matchValue5, "$2") ' 範囲指定の終点 fromNumber = startNumber - 1 For i = startNumber to endNumber ' 範囲指定の始点から終点まで 1 を足し続ける fromNumber = fromNumber + 1 commaHead = commaHead & "," & fromNumber Next removeComma = Mid(commaHead,2) ' 頭のカンマを除去 number = replace(number, matchValue5, removeComma) ' 置換 matchValue5 = null ' 変数のリセット fromNumber = null ' 変数のリセット commaHead = null ' 変数のリセット Next end if set commaNumber = new regexp ' トラックごとに分割するための正規表現 commaNumber.global = true ' 文字列全体を検索するように設定 commaNumber.pattern = "([0-9]+)" ' パターン: 数字のみの連続 Set Matches6 = commaNumber.Execute(number) ' 検索を実行 For Each Match6 in Matches6 ' Matches6 コレクションに対して繰り返し処理を実行 trackIndex = Match6.Value ' 検索にヒットした値 singularTrackArtist(trackIndex) = pluralTracksArtist Next end if Next Counter = 0 ' 変数を初期化します。 Do While Counter < tracks Counter = Counter + 1 ' カウンタの数を増やします。 trackIndex = Counter If trackIndex < 10 Then ' trackIndex が 9 以下のときは trackIndex = 0 & trackIndex ' 頭に 0 をつける End If setBand = setBand & "cue_track" & trackIndex & "_BAND=" & singularTrackArtist(Counter) & vbCrLf ' metaflac のタグ打ちのコマンド Loop else ' アルバムアーティストが一つだけだった場合 setBand = "BAND=" & AlbumArtist & vbCrLf ' metaflac のタグ打ちのコマンド ' MsgBox(setBand) ' デバッグ用 end if else readCue.close Exit Function ' 途中退出 end if tags = setContentGroup & setSubTitle & setBand ' BOM の除去 removeBom.writetext tags removeBom.Position = 3 ' 4 バイトに移動する removeBom.CopyTo writeTagFile ' 移動先から終端まで、すなわち BOM 以外の部分を writeTagFile に移す writeTagFile.savetofile tagfile, 2 if err.number > 0 then wscript.echo "Can't open " & tagfile & " for writing." writeTagFile.close end if ' いったん閉じてから開く removeBom.close writeTagFile.close removeBom.open writeTagFile.open ' cue シートから BOM を除去 removeBom.writetext text removeBom.Position = 3 ' 4 バイト目に移動する removeBom.CopyTo writeTagFile ' 移動先から終端まで、すなわち BOM 以外の部分を writeTagFile に移す writeTagFile.savetofile cuesheet, 2 if err.number > 0 then wscript.echo "Can't open " & tagfile & " for writing." writeTagFile.close end if removeBom.close writeTagFile.close readCue.close Set WshShell = WScript.CreateObject("WScript.Shell") tagging = metaflac & " --no-utf8-convert --import-tags-from=" & tagfile & " " & targetflac ' metaflac のタグ打ちのコマンド embedding = metaflac & " --no-utf8-convert --set-tag-from-file=""CUESHEET=" & cuesheet & """ " & targetflac ' metaflac のタグ打ちのコマンド ' MsgBox(tagging) ' デバッグ用 ' MsgBox(embedding) ' デバッグ用 Return = WshShell.Run(tagging, 0, true) ' タグ付け Return = WshShell.Run(embedding, 0, true) ' cue の埋め込み Set objFileSys = CreateObject("Scripting.FileSystemObject") objFileSys.DeleteFile tagfile objFileSys.DeleteFile cuesheet End Function ' 参考 URL ' http://tabuyan.blog.so-net.ne.jp/archive/c2300495743-1 ' http://lightbox.matrix.jp/ginpro/patio.cgi?mode=view&no=274&w=720 ' http://msdn.microsoft.com/ja-jp/library/cc392437.aspx ' http://msdn.microsoft.com/ja-jp/library/cc392445.aspx ']]></script></job></package>

他のスクリプトもいっしょに置いておきます。下のスクリプトは上のスクリプトの改変で一部の作業を省略したものです。曲ごとに異なる BAND を入力する必要がない場合に適合します。bandcopyonly_cue_folder.wsf などという名前で保存してください。

<?xml version="1.0" encoding="UTF-8"?><package><job id="Sample"><?job error="true" debug="true"?><script language="VBScript">'<![CDATA[ ' 指定したフォルダ内に存在する cue シートと同名の flac にタグを入力するスクリプト ' cue シートがない場合には何もしない。 ' cue シートの文字コードは UTF-8 にしないと文字化けする。BOM はあってもなくてもいいっぽい。 ' 作業内容は下記の 2 つ ' 1. アルバムごとの演奏者情報をそのまま BAND (TPE2) に入力 ' 2. cue シートを同名の flac に埋め込む。cue シートは削除する。 foldername = "D:\Data\Music\Bartok" ' フォルダを指定してください。 mflac = "D:\Program\FLAC\metaflac.exe" ' metaflac のパスを指定してください。 Set fso = CreateObject("Scripting.FileSystemObject") Set src = fso.GetFolder(foldername) ' 対象フォルダの指定 ' 指定のフォルダに格納された各ファイルを処理する For Each FileName In src.Files FileEx = fso.GetExtensionName(FileName) ' ファイル名から拡張子を抜き出す If LCase(FileEx) = "cue" Then ' 拡張子を小文字化してから比較 cue = FileName flac = replace(FileName, "cue", "flac") tag = replace(FileName, "cue", "tag") call addBandContentgroupCue(cue, flac, mflac, tag) cue = null flac = null tag = null End If Next MsgBox("全部終了") wscript.quit(1) ' 処理を終了してエラーナンバー 1 を返す Function addBandContentgroupCue(cuesheet, targetflac, metaflac, tagfile) set readCue = createobject("adodb.stream") set removeBom = createobject("adodb.stream") set writeTagFile = createobject("adodb.stream") readCue.open readCue.charset = "UTF-8" readCue.loadfromfile cuesheet if err.number > 0 then wscript.echo "Can't open " & cuesheet & " for reading." readCue.close Exit Function ' 途中退出 end if removeBom.open removeBom.charset = "UTF-8" writeTagFile.open writeTagFile.charset = "UTF-8" writeTagFile.type = 1 text = readCue.readtext(-1) ' cue シートの読込 ' set titleExistence = new regexp ' cue から曲名を抽出するための正規表現を作成 ' titleExistence.global = true ' 文字列全体を検索するように設定 ' titleExistence.pattern = " TITLE ""(.*)""" ' パターン設定: TITLE "文字の連続" ' set Matches1 = titleExistence.Execute(text) ' 検索を実行 ' tracks = Matches1.Count + 1 ' Dim contentGroups() ' 曲のタイトルのうちコロンより前を格納する配列を宣言 ' ReDim contentGroups(tracks) ' 配列のサイズを指定 ' Dim subTitles() ' 曲のタイトルのうちコロンより後を格納する配列を宣言 ' ReDim subTitles(tracks) ' 配列のサイズを指定 ' Dim singularTrackArtist() ' トラックごとの演奏者を格納する配列を宣言 ' ReDim singularTrackArtist(tracks) ' 配列のサイズを指定 ' tracks = tracks - 1 ' trackIndex = 0 ' For Each Match1 in Matches1 ' Matches1 コレクションに対して繰り返し処理を実行 ' trackIndex = trackIndex + 1 ' matchValue1 = Match1.Value ' trackTitle = titleExistence.replace(matchValue1, "$1") ' ' colonPosition = InStr(1, trackTitle, ":", 1) ' if colonPosition > 0 then ' contentGroups(trackIndex) = Left(trackTitle, colonPosition - 1) ' subTitles(trackIndex) = Right(trackTitle, Len(trackTitle) - colonPosition - 1) ' end if ' Next ' ContentGroup ' Counter = 0 ' 変数を初期化します。 ' Do While Counter < tracks ' Counter = Counter + 1 ' カウンタの数を増やします。 ' trackIndex = Counter ' If trackIndex < 10 Then ' trackIndex が 9 以下のときは ' trackIndex = 0 & trackIndex ' 頭に 0 をつける ' End If ' If contentGroups(Counter) <> "" Then ' カンマがない曲は処理を飛ばす ' setContentGroup = setContentGroup & "cue_track" & trackIndex & "_CONTENTGROUP=" & contentGroups(Counter) & vbCrLf ' metaflac のタグ打ちのコマンド ' End If ' Loop ' SubTitle ' Counter = 0 ' 変数を初期化します。 ' Do While Counter < tracks ' Counter = Counter + 1 ' カウンタの数を増やします。 ' trackIndex = Counter ' If trackIndex < 10 Then ' trackIndex が 9 以下のときは ' trackIndex = 0 & trackIndex ' 頭に 0 をつける ' End If ' If subTitles(Counter) <> "" Then ' カンマがない曲は処理を飛ばす ' setSubTitle = setSubTitle & "cue_track" & trackIndex & "_SUBTITLE=" & subTitles(Counter) & vbCrLf ' metaflac のタグ打ちのコマンド ' End If ' Loop ' setBand set distill = new regexp ' cue からアルバムアーティストを抽出するための正規表現を作成 distill.global = true ' 文字列全体を検索するように設定 distill.pattern = "\nPERFORMER ""(.*)""" ' パターン設定: PERFORMER "何でも" if distill.test(text) then ' 検索をテスト Set Matches2 = distill.Execute(text) ' 検索を実行 For Each Match2 in Matches2 ' Matches2 コレクションに対して繰り返し処理を実行 matchValue2 = Match2.Value Next AlbumArtist = distill.replace(matchValue2, "$1") Set splits = New RegExp ' アルバムアーティストを同一アーティストごとに分割するための正規表現を作成 splits.Pattern = "($[0-9][^$]*\))" ' パターン: 左かっこ、数字、右かっこ以外の 0 回以上の繰り返し、右かっこ splits.Global = True ' 文字列全体を検索するように設定 ' if splits.test(AlbumArtist) then ' 検索をテスト ' ' Set Matches3 = splits.Execute(AlbumArtist) ' 二重引用符の中身に対して検索を実行 ' Dim FirstIndexes() ' 検索に一致した文字列の位置を格納する配列を宣言 ' hitCount = Matches3.Count - 1 ' 検索に一致した文字列の数 ' ReDim FirstIndexes(hitCount) ' 配列のサイズを指定 ' hitIndex = -1 ' For Each Match3 in Matches3 ' Matches3 コレクションに対して繰り返し処理を実行 ' hitIndex = hitIndex + 1 ' 0 から数えて何個目の検索結果か ' FirstIndexes(hitIndex) = Match3.FirstIndex ' 配列に値を入れる ' Next ' Dim artist() ' アーティスト名を入れる配列を宣言 ' ReDim artist(hitCount) ' 配列のサイズを指定 ' For i = 0 To hitIndex ' ちょうど hitIndex がいい按配なので流用 ' j = i + 1 ' 次の検索結果のインデックス ' if i = hitIndex Then ' 最後のヒットだったら ' length = Len(AlbumArtist) - FirstIndexes(i) ' 文字数を計算、全体の文字数から今回の検索結果の位置を引く ' Else ' length = FirstIndexes(j) - FirstIndexes(i) - 3 ' 文字数を計算、次の検索結果の位置から今回の検索結果の位置を引く。さらに 3 を引いて末尾のハイフンを除去 ' End If ' lngStart = FirstIndexes(i) + 1 ' FirstIndex の基点は 0 だが Mid の基点は 1 なので、それを調整 ' artist(i) = Mid(AlbumArtist, lngStart, length) ' アルバムアーティスト全体を同一アーティストごとに分割 ' Next ' hitIndex = -1 ' For Each Match4 in Matches3 ' Matches3 コレクションに対して繰り返し処理を実行 ' hitIndex = hitIndex + 1 ' 0 から数えて何個目の検索結果か ' pluralTracksArtist = artist(hitIndex) ' 配列から取り出す ' number = Match4.Value ' 数字部分 ' onlyArtist = replace(pluralTracksArtist, number & " ", "") ' アーティスト部分のみ ' ' commaCheck = instr(number,",") ' カンマの位置。カンマがなかったら 0 を返す。 ' hyphenCheck = instr(number,"-") ' ハイフンの位置。ハイフンがなかったら 0 を返す。 ' ' if commaCheck = 0 and hyphenCheck = 0 then ' カンマもハイフンもなかったら ' trackIndex = replace(number, "(", "") ' 正規表現を作るのも面倒なので replace でかっこを除去 ' trackIndex = replace(trackIndex, ")","") ' かっこを除去 ' singularTrackArtist(trackIndex) = pluralTracksArtist ' else ' set hyphenNumber = new regexp ' ハイフンでの範囲指定をカンマでの列挙に変換するための正規表現 ' hyphenNumber.global = true ' 文字列全体を検索するように設定 ' hyphenNumber.pattern = "([0-9]+)-([0-9]+)" ' パターン設定: 数字の連続、ハイフン、数字の連続 ' if hyphenNumber.test(number) then ' 検索をテスト ' Set Matches5 = hyphenNumber.Execute(number) ' 検索を実行 ' For Each Match5 in Matches5 ' Matches5 コレクションに対して繰り返し処理を実行 ' matchValue5 = Match5.Value ' 検索にヒットした値 ' startNumber = hyphenNumber.replace(matchValue5, "$1") ' 範囲指定の始点 ' endNumber = hyphenNumber.replace(matchValue5, "$2") ' 範囲指定の終点 ' fromNumber = startNumber - 1 ' For i = startNumber to endNumber ' 範囲指定の始点から終点まで 1 を足し続ける ' fromNumber = fromNumber + 1 ' commaHead = commaHead & "," & fromNumber ' Next ' removeComma = Mid(commaHead,2) ' 頭のカンマを除去 ' number = replace(number, matchValue5, removeComma) ' 置換 ' matchValue5 = null ' 変数のリセット ' fromNumber = null ' 変数のリセット ' commaHead = null ' 変数のリセット ' Next ' end if ' ' set commaNumber = new regexp ' トラックごとに分割するための正規表現 ' commaNumber.global = true ' 文字列全体を検索するように設定 ' commaNumber.pattern = "([0-9]+)" ' パターン: 数字のみの連続 ' Set Matches6 = commaNumber.Execute(number) ' 検索を実行 ' For Each Match6 in Matches6 ' Matches6 コレクションに対して繰り返し処理を実行 ' trackIndex = Match6.Value ' 検索にヒットした値 ' singularTrackArtist(trackIndex) = pluralTracksArtist ' Next ' end if ' Next ' Counter = 0 ' 変数を初期化します。 ' Do While Counter < tracks ' Counter = Counter + 1 ' カウンタの数を増やします。 ' trackIndex = Counter ' If trackIndex < 10 Then ' trackIndex が 9 以下のときは ' trackIndex = 0 & trackIndex ' 頭に 0 をつける ' End If ' setBand = setBand & "cue_track" & trackIndex & "_BAND=" & singularTrackArtist(Counter) & vbCrLf ' metaflac のタグ打ちのコマンド ' Loop ' else ' アルバムアーティストが一つだけだった場合 setBand = "BAND=" & AlbumArtist & vbCrLf ' metaflac のタグ打ちのコマンド ' MsgBox(setBand) ' デバッグ用 ' end if else readCue.close Exit Function ' 途中退出 end if ' tags = setContentGroup & setSubTitle & setBand tags = setBand ' BOM の除去 removeBom.writetext tags removeBom.Position = 3 ' 4 バイトに移動する removeBom.CopyTo writeTagFile ' 移動先から終端まで、すなわち BOM 以外の部分を writeTagFile に移す writeTagFile.savetofile tagfile, 2 if err.number > 0 then wscript.echo "Can't open " & tagfile & " for writing." writeTagFile.close end if ' いったん閉じてから開く removeBom.close writeTagFile.close removeBom.open writeTagFile.open ' cue シートから BOM を除去 removeBom.writetext text removeBom.Position = 3 ' 4 バイト目に移動する removeBom.CopyTo writeTagFile ' 移動先から終端まで、すなわち BOM 以外の部分を writeTagFile に移す writeTagFile.savetofile cuesheet, 2 if err.number > 0 then wscript.echo "Can't open " & tagfile & " for writing." writeTagFile.close end if removeBom.close writeTagFile.close readCue.close Set WshShell = WScript.CreateObject("WScript.Shell") tagging = metaflac & " --no-utf8-convert --import-tags-from=" & tagfile & " " & targetflac ' metaflac のタグ打ちのコマンド embedding = metaflac & " --no-utf8-convert --set-tag-from-file=""CUESHEET=" & cuesheet & """ " & targetflac ' metaflac のタグ打ちのコマンド ' MsgBox(tagging) ' デバッグ用 ' MsgBox(embedding) ' デバッグ用 Return = WshShell.Run(tagging, 0, true) ' タグ付け Return = WshShell.Run(embedding, 0, true) ' cue の埋め込み Set objFileSys = CreateObject("Scripting.FileSystemObject") objFileSys.DeleteFile tagfile objFileSys.DeleteFile cuesheet End Function ' 参考 URL ' http://tabuyan.blog.so-net.ne.jp/archive/c2300495743-1 ' http://lightbox.matrix.jp/ginpro/patio.cgi?mode=view&no=274&w=720 ' http://msdn.microsoft.com/ja-jp/library/cc392437.aspx ' http://msdn.microsoft.com/ja-jp/library/cc392445.aspx ']]></script></job></package>

下のスクリプトは指定したフォルダ内に存在する全ての cue を同名の flac に埋め込む VBScript です。cue は必ず UTF-8 に。set-cue_utf8.wsf などという名前で保存してください。

下のスクリプトは指定したフォルダ内に存在する全ての flac のタグを完全に削除するバッチです。all_remove.bat などという名前で保存してください。

‌

カテゴリー: パソコン関連, 音楽 | プロ

« 1 つ新しい記事「200 万円のディスプレイを買ってしまった」へ
1 つ古い記事「cue シートの songwriter」へ »

トラックバック

URL:
コメント

この記事のコメントフィード
コメント投稿

ログインする

あなたのお名前 (コメントのタイトルではありません):

メールアドレス (任意、公開されません):

ウェブサイト (任意、リンクされます):

コメント (必須、本文です):
コメントを入力してください

下記のタグが使えます (XHTML):
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <img alt="" class="" height="" src="" width=""> <q cite=""> <span class=""> <strike> <strong> <sub> <sup>

ナメサメカリンチョ

FLAC のタグ打ち 2

トラックバック

コメント

コメント投稿

カレンダー

ブログのカテゴリー

ブログのアーカイブ

ブログの最近の投稿

最近のコメント

最近のトラックバック

サイト内検索

ちょっとした記事

広告

Twitter

広告 2

RSS

広告 3

日	月	火	水	木	金	土
« 5月			‌	7月 »
‌	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	‌	‌	‌	‌
‌	‌	‌	‌	‌	‌	‌