Source Insight---自定义宏

Source Insight　自定宏，老是忘了．．今天整理了一下．做个备份

参考．http://blog.csdn.net/nieliquan/article/details/7917773　　

macro InsertComment()

{
MyName = "zlk" //getenv(MYNAME)   修改者
//MyComment = "modify" //注释
MyI ="1"  //0为删除  1 为增加  2为更改
hbuf = GetCurrentBuf()
hwnd = GetCurrentWnd()                          
lnFirst = GetWndSelLnFirst(hwnd)           
lnLast = GetWndSelLnLast(hwnd)
        
//InsBufLine(hbuf, lnFirst, "//")
//获得界面输入信息
    //if(strlen( MyI ) == 0)
    {
       MyI = Ask("0:del 1:add 2:update")
    }


    //szMyName = getreg(MYNAME)
    //if(strlen( szMyName ) == 0)
    //{
    //    szMyName = Ask("Enter your name:")
    //    setreg(MYNAME, szMyName)
    //}


// Get current time
szTime = GetSysTime(1)
Day      = szTime.Day
Month   = szTime.Month
Year     = szTime.Year
if (Day < 10)
szDay = "0@Day@"
else
szDay = Day 
   
if (Month < 10)
szMonth = "0@Month@"
else
szMonth = Month  
   
//InsBufLine(hbuf, lnFirst,   "#if 1 //@MyName@ @Year@@szMonth@@szDay@ @MyComment@")//InsBufLine
//InsBufLine(hbuf, lnLast+2,    "#endif //@MyName@ @Year@@szMonth@@szDay@ @MyComment@")


if(MyI==0)
{
InsBufLine(hbuf, lnFirst,   "#if 0 //@MyName@ @Year@@szMonth@@szDay@ del start")//InsBufLine
InsBufLine(hbuf, lnLast+2,    "#endif //del end")
}
else if(MyI==1)
{
InsBufLine(hbuf, lnFirst,   "#if 1 //@MyName@ @Year@@szMonth@@szDay@ add start")//InsBufLine
InsBufLine(hbuf, lnLast+2,    "#endif //add end")
}
else if(MyI==2)
{
InsBufLine(hbuf, lnFirst,   "#if 1 //@MyName@ @Year@@szMonth@@szDay@ modify start")//InsBufLine
InsBufLine(hbuf, lnFirst+1,   "#else //modify")//InsBufLine
InsBufLine(hbuf, lnLast+3,    "#endif //modify end")
}
}