TSMH’s blog

多趣味人間のメモ

括弧囲み

特定の部分を括弧かダブルコーテーションで囲みたいが
全部の記号にコマンド作るのもあれだし の場合

ほぼ参考文献からコピペしたやつなので、詳細は参考文献へ

サンプルソース

;括弧囲み

#'::
InputBox, UserInput, 囲み, 対になる囲み文字を入力, , 240, 130
If (ErrorLevel = 0)
{
If (StrLen(UserInput) > 0)
  {
  bk=%ClipboardAll%
  Clipboard=
  Send,^x
  ClipWait, 0.5
  If (Clipboard)
  {
  If (StrLen(UserInput) >= 2)
  {
    bText := SubStr(UserInput, 1 , 1) . Clipboard . SubStr(UserInput, 2 , 1)
  }
  Else If (StrLen(UserInput) = 1)
  {
    bText := UserInput . Clipboard . UserInput
  }
  Clipboard=%bText%
  Send, ^v
  }
Clipboard=%bk%
  }
}
return

 

参考文献:

【コピペで簡単】仕事が超速い人になる~AutoHotkeyで生産性向上~