在source insight中添加自己的单行注释命令

删除当前行，将注释信息附加后，再写回去,并将光标移到行尾，效果如下:

假设代码文本为：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))
}