- 1 名前：名無しさん＠お腹いっぱい。 [2005/10/21(金) 04:31:53 ID:qy14hWPT0]
- If You = beginner
Read, Template, >>2-6
Previous Thread::
AutoHotKey Thread
pc7.2ch.net/test/read.cgi/software/1098531338/
If Res > 950
Please, Build, NextThread
- 681 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/04/07(金) 23:26:51 ID: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 mailto:sage [2006/04/07(金) 23:27:54 ID: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
- 683 名前：最後3/3 mailto:sage [2006/04/07(金) 23:28:46 ID:EWcuZxfA0]
- Player:
Loop
{
FileReadLine, OutputVar, %CurrentDir%\playlist.txt, %TrackNumber%
If ErrorLevel = 1 ;リストの最後まで行ったら
{
TrackNumber = 1 ;最初に戻る
FileReadLine, OutputVar, %CurrentDir%\playlist.txt, %TrackNumber%
}
SplitPath, OutputVar , FileName
ToolTip, %TrackNumber% - %FileName% ;再生するファイルをツールチップ表示
SetTimer, RemoveToolTip, 1000
Soundplay,%OutputVar% , wait
IfEqual,StopFlag,True,Break ;ループ抜ける
TrackNumber++
}
return
RemoveToolTip: ;ツールチップ削除
SetTimer, RemoveToolTip, Off
ToolTip
return
|
 |
