Dynamic Hotstring實例

之前在「自己寫武功祕笈：Radiologist的第一個Autohotkey」提到一點dynamic hotstring的使用，這篇再介紹幾個實用範例。

Prerequisite

• Regular expression：雖然看起來像火星文但真得很重要（自行覆頌三遍），可參「Regular Expression入門」
• AutoHotkey_L：一般而言用Unicode 32-bit
• Dynamic hotstring的library：AutoHotkey的論壇上可以找到幾種版本，我用的是比較多選項的這個版本
• 下載Hotstring.ahk存到AutoHotkey主程式資料夾內的Lib資料夾，或者ahk檔資料夾內的Lib資料夾（詳見說明）
• ahk檔開頭加上#include <Hotstring>
• 自訂的hotstring是以函數方式執行，所以要放在auto-execute section內，簡單來說就是在第一個return之前的範圍

 範例1：日期

• 輸入：8個數字，再加上一個分隔字元，例如20151218/
  輸出：2015/12/18

#include <hotstring><br /> sendmode, input<br /> <br /> hotstring("i)\b(\d{8})(\/|\.|\-)","date",3) <br /> ; 第一個submatch為8個數字，第二個submatch為分隔字元，有三種選擇（/ . -），trigger的subroutine是date，第三個選項的3表示用regular expression<br /> return <br /> <br /> date:<br /> dateStr:=$.value(1) ; 第一個submatch<br /> delim:=$.value(2) ; 第二個submatch<br /> <br /> send % substr(dateStr,1,4) delim substr(dateStr,5,2) delim substr(dateStr,7,2)<br /> ; substr(date,1,4)表示data字串第1個字元開始的4個字元，也就是年份<br /> return

 範例2：檢查部位

• 輸入：不定部位的字母代號，加上without/with contrast enhancement數字代號，以及一個結尾符號，例如b1=
  輸出：CT of the brain without contrast enhancement shows:

#include <hotstring><br /> sendmode, input<br /> <br /> hotstring("i)(b?n?c?a?p?d?t?l?u?v?)(\d)=","examTitle",3)<br /> <br /> ; 以bncapdtluv依序代表brain, neck, chest, abdomen, pelvic, C/T/L-spine, upper/lower extremity，並建立一個對應array<br /> examTitle:={ b: "brain", n: "neck", c: "chest", a: "abdomen", p: "pelvis", d: "C-spine", t: "T-spine", l: "L-spine", u: "upper extremity", v: "lower extremity"}<br /> <br /> ;數字代號0, 1, 2表示CT的∓C, -C, +C，3, 4, 5表示MRI<br /> <br /> return<br /> <br /> <br /> examTitle:<br /> examTitleStr:=$.value(1)<br /> code:=$.value(2)<br /> <br /> exam:= (code<3?"CT":"MRI") " of the " ; code小於3是CT<br /> contrast:= " " (mod(code,3)=0?"without/with":mod(code,3)=1?"without":"with") " contrast enhancement shows: `n- "<br /> <br /> loop,parse,examTitleStr  ; 分析每個字元<br />     exam.=examTitle[a_loopfield] ", "   ; 加上對應的部位<br /> <br /> send % substr(exam,1,-2) contrast<br /> ; substr(exam,1,-2)表示從exam字串的第1個字元開始，忽略最後2個字元（因為最後有多餘的, ）<br /> return

範例3：lines and tubes for CXR

• 輸入：數個字母代號，加上結尾符號，例如tgv=
  輸出：Placement of endotracheal tube, nasoenteric tube, central venous catheter(s).

#include <hotstring><br /> sendmode, input<br /> <br /> hotstring("i)([a-z]+)=","lineTube",3)<br /> ; 建立各字母對應的array，請自行增加並記憶！<br /> lineTube:={ t: "endotracheal tube", g: "nasoenteric tube", v: "central venous catheter(s)" }<br /> <br /> return<br /> <br /> lineTube:<br /> code:=$.value(1)<br /> str:="Placement of "<br /> <br /> loop,parse,code<br /> <span style="color: yellow;">    </span>str.=lineTube[a_loopfield] ", "<br /> <br /> send % substr(str,1,-2) "."<br /> return