日本医薬品一般的名称（JAN）データベースとKEGG MEDICUSを検索するHotKeyのプロンプト

日本医薬品一般的名称（JAN）データベースを検索するHotkeyのプロンプト

;ウインドウズキー＋Jで以下を実行
;日本医薬品一般名称データベース及びKEGG MEDICUSで検索

#J::

;とりあえずクリップボードに入っているものを避難させる
Backup := ClipboardAll
sleep, 50

;クリップボードを空にする
clipboard =
sleep, 50

;選択範囲をコピー
Send,^c
sleep, 50

;選択されているかどうかの判断。選択されていなかった場合、マウスを左クリック2回で単語選択してコピー

If StrLen(clipboard)<=1
{
Mouseclick,Left,,,2
Send,^c
}
sleep, 50

clipwait,0.5,1
;日本医薬品一般名称（JAN）データベース及びKEGG MEDICUSにクリップボードの内容を送る
;その前に、日本医薬品一般名称（JAN）データベースのURLに日本語が入るので、それをなんとか押し込むために文字列をstrに入れる


; clipboardに入っている文字列の最後がスペースかどうか判定する
If (SubStr(clipboard, StrLen(clipboard)) = " " or SubStr(clipboard, StrLen(clipboard)) = "　")

; 最後の文字が半角スペースまたは全角スペースならば、空文字列に置換する

{
clipboard := RegExReplace(clipboard, "\s$", "")
}

;変数strを初期化
str := ""

;clipboardの中身に日本語が含まれているかどうかの判断
if RegExMatch(clipboard, "^[a-zA-Z0-9]+$")

;英数字のみの場合
{
str := "医薬品一般的名称（英名）検索"
}

;英数字以外がある場合
else {
str := "医薬品一般的名称（日本名）検索"
}



Run,https://jpdb.nihs.go.jp/jan/DetailList_ja?keyword=%clipboard%&submit=%str%

Run,https://www.kegg.jp/medicus-bin/search_drug?search_keyword=%clipboard%

Return