Skip to content

Instantly share code, notes, and snippets.

@naichilab
Created May 18, 2016 02:26
Show Gist options
  • Save naichilab/d47accf447b7d84626f58d228cca8cb5 to your computer and use it in GitHub Desktop.
Save naichilab/d47accf447b7d84626f58d228cca8cb5 to your computer and use it in GitHub Desktop.
Insert time for sakura editor
dim col
col = Editor.ExpandParameter( "$x" )
if col = 1 then
'未入力の行
'現在時刻とタブの記入
Editor.InsertTime
Editor.InsText vbTab
elseif col = 6 then
'同マクロで時刻を入力した直後
'何もしない
else
'入力済みの行
'2行改行
Editor.InsText vbCrLf
Editor.InsText vbCrLf
'現在時刻とタブの記入
Editor.InsertTime
Editor.InsText vbTab
end if
'Editor.InsText col
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment