删除当前行,将注释信息附加后,再写回去,并将光标移到行尾,效果如下:
假设代码文本为:abcd
光标移动到abcd该行任意位置,按命令使用该宏后,信息变为:
abcd//jimmy.p2p.2014.9.12 remark:
macro OneLineCommon()
{ln = 0
hwnd = GetCurrentWnd();
hbuf = GetCurrentBuf();
lnFirst = GetWndSelLnFirst( hwnd )
szLine = GetBufLine( hbuf, lnFirst )
szMyName = getreg(MYNAME)
if(strlen( szMyName ) == 0)
{
szMyName = Ask("Enter your name:")
setreg(MYNAME, szMyName)
}
SysTime = GetSysTime(1)
sz=SysTime.Year
sz1=SysTime.month
sz3=SysTime.day
DelBufLine(hbuf, lnFirst)
InsBufLine(hbuf, lnFirst, "@szLine@//@szMyName@.p2p.@sz@.@sz1@.@sz3@ remark:")
szLine = GetBufLine( hbuf, lnFirst )
SetBufIns(hbuf,lnFirst,strlen(szLine))
}