Source Insight---自定义宏

来源：互联网发布：网络商业计划书编辑：程序博客网时间：2024/05/24 02:37

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")
}
}

0 0