VBScriptを使って日付や時刻を書いてる途中で入力しています。
具体的には下記のテキストファイルに.vbsと拡張子を付けて
ctrl+alt+任意のキー にショートカットしてます。
でも、遅いです。表示に10秒くらい待ちます。
それくらい待てよ、と言われそうですけど。
VBScript って、これから先が無さそうでMicrosoftがフォローしなさそうだし
これからはPowerShellなのかもしれないけど、
ツールは何でもいいのだけど、ショートカットキーで打刻できる仕組みを
その言語で作れるほどの腕が無いです。
どうしたらいいのかしら。
ちなみにスクリプトは下記の通り
-----------------------------------------------
Option Explicit
' 編集中テキストにhh:mm形式で時刻を挿入する。
Dim strNow, objWshShell
Dim strFormattedDate
'行頭にアポストロフィあると多分コメント行
'Dimは変数の宣言だと思う
strNow = "" & now() & " "
'変数strNowに現在の日時を入れる
'yyyy/mm/dd hh:mm:ss 形式の文字列で現在日時を取得
strFormattedDate = Now()
'yyyy/mm/dd hh:mm:ss から hh:mm:ss 部分のみ抽出
strFormattedDate = Right(strFormattedDate, 8)
strFormattedDate = Left(strFormattedDate, 5)
'行頭のスペースは0に変換したい
strFormattedDate = Replace(strFormattedDate, " ", "0")
'yyyy/mm/dd から / を削除
'strFormattedDate = Replace(strFormattedDate, "/", "")
'出力させるためのまじない
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.run "cmd /c echo " + strFormattedDate + "| clip", 6, 1
WScript.Sleep 30
'文頭に書くまじない。これを切るにはHOMEを外す
objWshShell.SendKeys("^v{LEFT}")
-----------------------------------------------
-----------------------------------------------