2018年6月4日: ちょっとした効率化

sc03A::
;
;CapsLockボタンでエクスプローラーで
;クリップボードのパスを開く
;
dir := Clipboard
;パス先のフォルダorファイルの存在を確認できたら起動
IfExist, %dir%,{
;エクスプローラーのショートカット（Windowsボタン + E）
send,#e
Loop {
str =
WinGetActiveTitle, str
;エクスプローラーの起動が確認できたら次の処理へ
IfInString, str, エクスプローラー, Break
;5秒以上経てば中止
If (A_Index >= 500){
Exit
}
sleep,10
}
send,!d
send,^v
send,{Enter}
}
Return

!v::
;
;[Alt + v]でクリップボードのURLをchromeで開いていく
;Excelの1列内で複数セルをコピーした際にも使える
;
;キーボードのvが離されるまで待つ
KeyWait,v,D
;コピーしたデータを格納
urlData := Clipboard
;格納したデータを分割
StringSplit, rows, urlData, `n
Loop, %rows0%
{
if(rows%A_Index%){
url := rows%A_Index%
;URLだった場合にchromeで開く
openUrl(url, "https://")
openUrl(url, "http://")
}
}
Return
openUrl(url, searchKeyword) {
IfInString, url, %searchKeyword%
{
Run C:\Program Files (x86)\Google\Chrome\Application\chrome.exe %url%
;一気に大量のURLを開くと、Googleさんから
;アンタはロボットか?と疑われますので少し時間を置きます。
Sleep, 500
}
}

vk1Dsc07B::
;
;無変換ボタンで座席・内線表.pdfを開く
;
;内線表へのパスを登録（パスは少し省略しています）
originalDir := "パス\●座席・内線表\座席・内線表.pdf"
;オリジナルの内線表を開きっぱにしていると
;ノジマさんから更新できないと怒られるのでクローン用のパスを準備
cloneDir := "クローン先のパス\座席・内線表.pdf"
;内線表が存在しているかチェック
IfNotExist, %originalDir%, {
msgbox,内線表が存在しません。
Return
}
IfNotExist, %cloneDir%, {
FileCopy, %originalDir%, %cloneDir%
}
;オリジナルとクローンのファイルのタイムスタンプを取得し、
;異なればオリジナルをコピーする
FileGetTime, originalTimeStamp, %originalDir%
FileGetTime, cloneTimeStamp, %cloneDir%
IfNotEqual, %originalTimeStamp%, %cloneTimeStamp%, {
FileCopy, %originalDir%, %cloneDir%, 1
}
;起動
IfExist, %cloneDir%
Run, %cloneDir%
Return