ファントム２のブログ一覧

ついにエディックスが生産終了ということになったようです。
残念ながら短命に終わったということになりますが、これほど面白い車を、私は他に知りません。
まあ、売れてない上に、この景気ではやむをえないでしょうけど。

私としては、ここまで５年のってきた車。まだまだ乗り続けていきますよ！

……金もないし、今の車庫にぴったりだし（汗

というわけで、今日もMortScriptsをいじっていました。
まずは自分が手がかかっていると思うことをスクリプト化する方向で。
というわけで、まずはプレイリスト。
私がS11HTでMP3再生用に使っているアプリはGSPlayerKですが、このアプリでは、特定のフォルダにあるものを全部再生というような使い方ができず、まずプレイリストをつくらないといけません。
それを手動でやるのが面倒ということで、今回のスクリプトをつくってみました。

想定しているフォルダ構成は

　Musicディレクトリ
　　　│　ここにプレイリストを作成
　　　│　
　ジャンル別ディレクトリ（複数）
　　　│　このディレクトリを指定する
　　　│　
　アルバム別ディレクトリ（複数）
　　　　　　ＭＰ３ファイルはここにある

というような感じです。
それで、ジャンルごとのプレイリストをスクリプト一発でつくる（プレイリスト自動作成）というスタイルです。
　　
まだまだ汚いソースだとは思うのですが、やりたい事はできるようになってきました。


##############################################################
##プレイリスト作成ディレクトリ指定（直接書換のこと）
Dir_OYA = "\メモリ カード\music"

##############################################################
##ディレクトリ指定
Dir_music=SelectDirectory("Select Music Folder",MESS,Dir_OYA)

##プレイリストファイル作成
m3u_name =Input("プレイリストの名前を入力^NL^　※同名なら上書","Input File Name")
m3u_name = Dir_OYA & "\" & m3u_name & ".m3u"

if (FileExists(m3u_name) = true)
DELETE(m3u_name)
ENDIF

##ディレクトリ読取
i=0
ForEach Dir_work in directories(Dir_music & "\*")
i=i+1
dir_name[i]=Dir_work & "\*"
EndForEach

##ファイル読取、リスト作成
ForEach File_work in files(Dir_music & "\*.mp3")
File_work=Replace(File_work,Dir_OYA,"")
WriteFile(m3u_name,File_work & "^NL^",True)"
EndForEach

For j=1 to i
ForEach File_work in files(dir_name[j] & ".mp3")
File_work=Replace(File_work,Dir_OYA,"")
WriteFile(m3u_name,File_work & "^NL^",True)"
EndForEach
next

##GSPlayerK起動
run(m3u_name)