AutoHotkey Thread 2

AutoHotkey Thread 2at SOFTWARE

AutoHotkey Thread 2 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

680:名無しさん＠お腹いっぱい。
 06/04/07 16:46:09 rSUBoxot0
試してみようと長めの曲投げてみたら再生しなかったな 
VBRとかもあんのかな。

681:名無しさん＠お腹いっぱい。
 06/04/07 23:26:51 EWcuZxfA0
３０分のネトラジ(wma）投げたけど、問題なかったな 
とりあえず最初に依頼したので、完成品を貼っておきます 
 
#p::    ;選択したファイルでプレイリスト作成＆再生 
OverWrite = True   ;上書き 
StopFlag = Flase 
Gosub,MakePlaylist 
TrackNumber=1 
GoSub,Player 
Return 
 
!#p::   ;選択したファイルをプレイリストに追加＆再生 
OverWrite = False   ;追加 
StopFlag = False 
Gosub,MakePlaylist 
GoSub,Player 
Return 
 
#PgDn::   ;次の曲再生 
SoundPlay, NULL 
Return 
 
#PgUp::   ;前の曲再生 
TrackNumber-- 
TrackNumber-- 
SoundPlay, NULL 
Return 
 
#End::   ;再生を停止 
StopFlag = True 
SoundPlay, NULL 
return

682:続き2/3
 06/04/07 23:27:54 EWcuZxfA0
MakePlaylist: 
ClipSaved := ClipboardAll   ;クリップボードの中身を一時待避 
Clipboard =   ;とりあえずクリップボードを空にして 
Send, ^c   ;Ctrl+C 
ClipWait,1   ;クリップボードが読み取れるようになるのを待つ（最大1秒） 
 
i = 1 
Loop, Parse, Clipboard , `n, `r   ;クリップボード内のものを改行区切りに分解して 
{ 
SplitPath, A_LoopField , FileName , Dir , Extension ,, Drive   ;パスかどうか判定 
 
StringLen, length, drive   ;ドライブ文字の長さを見て 
ifEqual, length, 0, continue   ;パスっぽくなかったらやめる 
 
if ( Extension != "mp3" && Extension != "wav" && Extension != "wma" && Extension != "ogg" )   ;拡張子が音楽ファイルじゃないならやめる 
continue 
 
if i = 1   ;テキストファイルにファイルのパスを書き込み 
OutputText = %A_LoopField% 
else 
OutputText = %OutputText%`n%A_LoopField% 
i++ 
} 
 
If OverWrite = True 
FileDelete , %CurrentDir%\Playlist.txt 
 
FileAppend , %OutputText%, %CurrentDir%\Playlist.txt 
 
Clipboard = %ClipSaved% 
Return

次ページ