COUNTER

RANKING
ランキングにご協力をw

CALENDER
- - 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 31 - -
07月 « 2017/08 » 09月

ARCHIVES
CATEGORY
LINK
RECENT TRACKBACKS
ブロとも申請フォーム
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


|| --:--:--| Comments(-)| Trackback(-)| Edit | Mail | ||
【iTunes】曲名やアルバム名の全角を半角に変換するスクリプト
iTunesに曲名とかアルバム名が全角で登録されているのが嫌なので
全角から半角に変換するスクリプトを作ってみた。
英数字は半角が好き派のひとは使ってみてくれい!

元々はこの人が作ったやつをそのまま使おうかと思ったんだけど
処理が遅かったんで少しカスタマイズしました。
参考:http://newsfizz.blog58.fc2.com/blog-entry-20.html



<使い方>
① 下のソースをコピーしてメモ帳に貼り付け
② 適当な名前 + .vbsで保存 (例:全角→半角.vbs)
③ iTunesから変換したい曲を選択する
④ ②で保存したvbsを実行(ダブルクリックとか)

ファイルが存在しない曲があるとエラーになっちゃうので、
デッドリンク削除スクリプトとかで綺麗にしてから実行してください。
便利なスクリプトまとめ(http://www1.atwiki.jp/itunes/pages/26.html)
(もしくはちょっとずつ選択して実行してください。)

<ソース>
' VBScript source code
' スタートアップ関数の呼び出し
Call Main()

' この関数がスタートアップ関数
sub Main()

    dim iTunesApp
    dim Tracks
    dim NumOfTracks
    dim Track
    dim before, after  

    ' iTunesオブジェクトのインスタンスを生成
    set iTunesApp   = CreateObject("iTunes.Application")
   
    ' 選択中のトラック達を取得
    set Tracks      = iTunesApp.SelectedTracks

    ' 選択されているトラックの数を取得
    NumOfTracks = Tracks.Count
   
    ' 各トラック後に処理を行う
    for i = 1 to NumOfTracks

        ' トラック情報の取得
        set Track   = Tracks.Item(i)
       
       '全角半角が変更されたぐらいではiTunesが変更として
        '認識してくれないため、一時的に"_temp"を追加

    'タイトルの変換
    before      = Track.Name
    after       = Convert(before)
    If before <> after then
            Track.SortName      = ""
        Track.Name          = before&"_temp"
        Track.Name          = after
    end if

    'アルバムの変換
    before      = Track.Album
    after       = Convert(before)
    If before <> after then
        Track.SortAlbum     = ""
        Track.Album         = before&"_temp"
        Track.Album         = after
    end if

    'アーティストの変換
    before      = Track.Artist
    after       = Convert(before)
    If before <> after then
            Track.SortArtist    = ""
        Track.Artist        = before&"_temp"
        Track.Artist        = after
    end if

    'アルバムアーティストの変換
    before      = Track.AlbumArtist
    after       = Convert(before)
    If before <> after then
            Track.SortArtist    = ""
        Track.AlbumArtist   = before&"_temp"
        Track.AlbumArtist   = after
    end if
   
    next

    ' 表示を更新?しているようです
    Track.Reveal()
   
    ' 変換完了を通知
    MsgBox "変換が完了しました"

end sub

' 全角文字を半角文字へ変換する関数
function Convert(str)

    dim c
    dim n
    dim newstr

    newstr  = ""

    for i = 1 to len(str)
   
        c   = Mid(str, i, 1)
        n   = AscW(c)
   
        ' 変換される文字は文字コードが FF01~FF5E のもの
        if n >= &hff01 and n <= &hff5e then
            ' FEE0引くとちょうどASCII文字の部分に変換される
            c   = ChrW(n - &hfee0)
        end if
       
        ' 空白については上記で処理できないため、別途ここで処理
        if n = &h3000 then
            c   = " "
        end if

        ' 文字列を再形成
        newstr  = newstr + c
   
    next
   
    ' 変換された値を返す
    Convert = newstr

end function



|| 23:50:01| Comments(1)| Trackback(0)| Edit | Mail | ||


コメント
このコメントは管理者の承認待ちです
2012-10-13 土 13:09:03 | | #[ 編集]

コメントの投稿
管理者にだけ表示を許可する

トラックバック
トラックバックURL :

SEARCH BOX

RECENT ENTRIES

DARTSLIVE

SUB MENU
オススメ
Amazon.co.jp

RSSフィード
Powered By FC2ブログ
Design By Or/GetNet

ブログやるならFC2

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。