ずっとやってみたかった物
;esExt5.ahk
;2008/01/03作成
;esExt5のiniを読み込んでメニュー作成
;=AutoHotKeyでesExt5を作ってみた
;=また作る必要のない物を作ってみた
;仕様
;・このスクリプトのIniFileにesExt5.iniのパスを書いておく
;・引数がないとメッセージ出して終了
;・未完成
;問題点
;・フォルダ内にまたフォルダがあった場合おかしくなる
;・[folder]の実装未定
;・オプションの実装未定
;・(まずサブメニュー作らないといけないからいろいろ面倒)
;todo
;・問題点の改善
;・完成させる
#NoTrayIcon
;esExt5.iniの場所
IniFile = C:\Program Files\tool\.S\esExt\esExt5.ini
;DropFile = C:\Program Files\tool\AutoHotkey\scripts\Menu\test.txt
;存在フラグ
ExistFlag = 0
;フォルダフラグ
FolderFlag = 0
Line = 0
Count = 0
X = 0
;引数があった場合
If 0 <> 0
{
DropFile = %1%
}
;引数がなかった場合
else
{
Msgbox, 引数がありませんでした
return
}
;Msgbox, %DropFile%
SplitPath, DropFile, , , Ext
SearchWord = [.%Ext%]
;Msgbox, %SearchWord%
;esExt5.ini読み込み
Loop, Read, %IniFile%
{
Line++
;まだ発見できてない場合
If ExistFlag = 0
{
;[拡張子]のメニューだった場合
IfInString, A_LoopReadLine, %SearchWord%
{
;Msgbox, %A_LoopReadLine%
;存在フラグを立てる
ExistFlag = 1
}
;[all]のメニューだった場合
IfInString, A_LoopReadLine, [all]
{
;Msgbox, %A_LoopReadLine%
;存在フラグを立てる
ExistFlag = 1
}
}
;発見できた場合
else
{
;%endだった場合
IfInString, A_LoopReadLine, `%end
{
;存在フラグを戻す
ExistFlag = 0
;次の行へ
Continue
}
;+だった場合
else IfInString, A_LoopReadLine, +
{
;区切り線挿入
Menu, esExtMenu, Add
;区切り線もカウントされるため+1
Count++
;次の行へ
Continue
}
;サブメニュー化だった場合
else IfInString, A_LoopReadLine, {
{
;サブメニューの名前取得
StringSplit, Folder, A_LoopReadLine, {
;サブメニューフラグを立てる
FolderFlag = 1
;Msgbox, フォルダ開始, %Folder2%
}
else IfInString, A_LoopReadLine, }
{
;サブメニューの元を作成
Menu, esExtMenu, Add, %Folder2%, :%Folder2%
;フォルダフラグを戻す
FolderFlag = 0
;Msgbox, フォルダ終わり
}
;オプションだった場合
else IfInString, A_LoopReadLine, >
{
;Msgbox, オプション
Loop
{
;Msgbox, %Line%
SearchLine := Line - A_Index
FileReadLine, SearchWord, %IniFile%, %SearchLine%
IfNotInString, SearchWord, >
{
;オプションのタブ削除
StringReplace, OptionPath, A_LoopReadLine, %A_Tab%
;パスと名前に分割用
StringReplace, OptionPath, OptionPath, %A_Space%|%A_Space%, `,
;パスと名前に分割
StringSplit, OptionArray, OptionPath, `,
;オプションの元になるアプリのタブ削除
StringReplace, Path, SearchWord, %A_Tab%
;パスと名前に分割用
StringReplace, Path, Path, %A_Space%|%A_Space%, `,
;パスと名前に分割
StringSplit, Array, Path, `,
;パス、名前、オプションパス、オプション名
Msgbox, %Array1%, %Array2%, %OptionArray1%, %OptionArray2%
;Menu, %Array2%, Add, %OptionArray2%, OptionCmd
Break
}
}
}
else
{
;後でフルパスを取得するためにカウント+1
Count++
;名前がない時用
Array2 =
;パスと名前に分割用
StringReplace, Path, A_LoopReadLine, %A_Space%|%A_Space%, `,
;パスと名前に分割
StringSplit, Array, Path, `,
;名前がない時
If Array2 =
{
;アプリの名前で代用
SplitPath, Array1, , , , Array2
;Msgbox, %Array0%, %Array1%, %Array2%
}
;フォルダ内の時
If FolderFlag = 1
{
Menu, %Folder2%, Add, %Array2%, FolderCmd
;オプションのタブ削除
StringReplace, Array1, Array1, %A_Tab%
X++
;パス確保
FolderArray%X% := Array1
;名前確保
FolderNameArray%X% := Array2
Continue
}
;それ以外
Menu, esExtMenu, Add, %Array2%, MenuCmd
;パス確保
PathArray%Count% := Array1
;Msgbox, %Array1%, %Array2%, %Count%
}
}
}
Menu, esExtMenu, Show
return
;メニュー用コマンド
MenuCmd:
;テスト用
OptionCmd:
;パス確保
Name := PathArray%A_ThisMenuItemPos%
;関連づけが.ahkの場合
IfInString, Name, .ahk
{
Run, %A_AhkPath% "%Name%" "%DropFile%"
}
;その他
else
{
Run, %Name% "%DropFile%"
}
return
;フォルダ用コマンド
FolderCmd:
;Msgbox, a:%X%, %A_ThisMenuItem%
;パス確保用番号取得ループ
Loop, %X%
{
;検索する名前作成
SearchArray := FolderNameArray%A_Index%
;Msgbox, b:%SearchArray%
;
IfInString, SearchArray, %A_ThisMenuItem%
{
;パスのある番号取得
Pos = %A_Index%
break
}
}
;Msgbox, c:%Pos%
;パス確保
Name := FolderArray%Pos%
;関連づけが.ahkの場合
IfInString, Name, .ahk
{
Run, %A_AhkPath% "%Name%" "%DropFile%"
}
;その他
else
{
Run, %Name% "%DropFile%"
}
return
サブメニュー先に作っておかないといけないからいろいろ面倒
自分にはまだ早かった
