ナメサメカリンチョ

' 指定したフォルダ内に存在する cue シートのアルバムごとの演奏者情報を ' トラックごとに分割して、それを cue と同名の flac にタグとして埋め込む。 ' cue シートの文字コードは何でもいいっぽい。一応、UTF-8 BOM 付きを推奨 foldername = "D:\Data\Music\Grieg" ' フォルダを指定してください。 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") call addBand(cue, flac, mflac) cue = null flac = null End If Next MsgBox("全部終了") wscript.quit(1) ' 処理を終了してエラーナンバー 1 を返す Function addBand(cuesheet, targetflac, metaflac) set readCue = 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 text = readCue.readtext(-1) set titleExistence = new regexp ' cue から曲名を抽出するための正規表現を作成 titleExistence.global = true ' 文字列全体を検索するように設定 titleExistence.pattern = " TITLE ""(.*)""" ' パターン設定: TITLE "文字の連続" set Matches1 = titleExistence.Execute(text) ' 検索を実行 tracks = Matches1.Count + 1 Set WshShell = WScript.CreateObject("WScript.Shell") 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 ' len(setContentGroup) が 2,000 あたりを超えるとエラーになるっぽいし、かといってテキストに出力すると Avira AntiVir にウイルス扱いされるので分割処理する。 Counter = Counter + 1 ' カウンタの数を増やします。 trackIndex = Counter If trackIndex < 10 Then ' trackIndex が 9 以下のときは trackIndex = 0 & trackIndex ' 頭に 0 をつける End If If contentGroups(Counter) <> "" Then ' カンマがない曲は処理を飛ばす setContentGroup = setContentGroup & " " & "--set-tag=""cue_track" & trackIndex & "_CONTENTGROUP=" & contentGroups(Counter) & """" ' metaflac のタグ打ちのコマンド If len(setContentGroup) > 1500 Then ' setContentGroup の文字数が 1,500 を超えたら setContentGroup = metaflac & setContentGroup & " " & targetflac ' setContentGroup の末尾に空白を付加 Return1 = WshShell.Run(setContentGroup, 0, true) ' タグの埋め込み ' MsgBox(setContentGroup & "test1") ' デバッグ用 setContentGroup = "" ' setContentGroup を初期化 End If End If Loop setContentGroup = metaflac & setContentGroup & " " & targetflac ' setContentGroup の末尾に空白を付加 Return2 = WshShell.Run(setContentGroup, 0, true) ' 残りを処理 ' MsgBox(setContentGroup) ' デバッグ用 ' readCue.close ' デバッグ用 ' Exit Function ' デバッグ用途中退出 ' SubTitle Counter = 0 ' 変数を初期化します。 Do While Counter < tracks ' len(setSubTitle) が 2,000 あたりを超えるとエラーになるっぽいし、かといってテキストに出力すると Avira AntiVir にウイルス扱いされるので分割処理する。 Counter = Counter + 1 ' カウンタの数を増やします。 trackIndex = Counter If trackIndex < 10 Then ' trackIndex が 9 以下のときは trackIndex = 0 & trackIndex ' 頭に 0 をつける End If If subTitles(Counter) <> "" Then ' カンマがない曲は処理を飛ばす setSubTitle = setSubTitle & " " & "--set-tag=""cue_track" & trackIndex & "_SUBTITLE=" & subTitles(Counter) & """" ' metaflac のタグ打ちのコマンド If len(setSubTitle) > 1500 Then ' setSubTitle の文字数が 1,500 を超えたら setSubTitle = metaflac & setSubTitle & " " & targetflac ' setSubTitle の末尾に空白を足す Return3 = WshShell.Run(setSubTitle, 0, true) ' タグの埋め込み ' MsgBox(setSubTitle & "test3") ' デバッグ用 setSubTitle = "" ' setSubTitle を初期化 End If End If Loop setSubTitle = metaflac & setSubTitle & " " & targetflac ' setSubTitle の末尾に空白を付加 Return4 = WshShell.Run(setSubTitle, 0, true) ' 残りを処理 ' MsgBox(setSubTitle & "test4") ' デバッグ用 ' readCue.close ' デバッグ用 ' Exit Function ' デバッグ用途中退出 ' 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 else ' アルバムアーティストが一つだけだった場合 Set WshShell = WScript.CreateObject("WScript.Shell") setBand = metaflac & setBand & " " & "--set-tag=""BAND=" & AlbumArtist & """ " & targetflac ' metaflac のタグ打ちのコマンド Return5 = WshShell.Run(setBand, 0, true) ' アルバムアーティスト全体を BAND タグとして埋め込み ' MsgBox(setBand) ' デバッグ用 readCue.close Exit Function ' 途中退出 end if else readCue.close Exit Function ' 途中退出 end if setCue = metaflac & " --no-utf8-convert --set-tag-from-file=""CUESHEET=" & cuesheet & """ " & targetflac ' metaflac で cuesheet を埋め込むためのコマンド ' Return6 = WshShell.Run(setCue, 0, true) ' cue の埋め込み。UTF-8 の BOM なしじゃないとダメ。 Counter = 0 ' 変数を初期化します。 Do While Counter < tracks ' len(setBand) が 2,000 あたりを超えるとエラーになるっぽいし、かといってテキストに出力すると Avira AntiVir にウイルス扱いされるので分割処理する。 Counter = Counter + 1 ' カウンタの数を増やします。 trackIndex = Counter If trackIndex < 10 Then ' trackIndex が 9 以下のときは trackIndex = 0 & trackIndex ' 頭に 0 をつける End If setBand = setBand & " " & "--set-tag=""cue_track" & trackIndex & "_BAND=" & singularTrackArtist(Counter) & """" ' metaflac のタグ打ちのコマンド If len(setBand) > 1500 Then ' setBand の文字数が 1,500 を超えたら setBand = metaflac & setBand & " " & targetflac ' setBand の末尾に空白を足す Return7 = WshShell.Run(setBand, 0, true) ' タグの埋め込み ' MsgBox(setBand) ' デバッグ用 setBand = "" ' setBand を初期化 End If Loop setBand = metaflac & setBand & " " & targetflac ' setBand の末尾に空白を付加 Return8 = WshShell.Run(setBand, 0, true) ' 残りを処理 ' MsgBox(setBand) ' デバッグ用 readCue.close End Function ' 参考 URL ' http://tabuyan.blog.so-net.ne.jp/archive/c2300495743-1 ' http://msdn.microsoft.com/ja-jp/library/cc392437.aspx ' http://msdn.microsoft.com/ja-jp/library/cc392445.aspx