（工具）source insight高速增加时间代码

这篇文章是程序代码更改由其他用户。不是原厂原装，例如下列总结，使用作为个人笔记。

（1）打开projectbase。打开文件Utils.em，插入下面代码：

//插入时间
macro MonthToName(MonthNum)

{
    if (MonthNum== 1)
	 return "01"

    if (MonthNum== 2)
        return "02"

    if (MonthNum== 3)
        return "03"

    if (MonthNum== 4)
        return "04"

    if (MonthNum== 5)
        return "05"

    if (MonthNum== 6)
        return "06"

    if (MonthNum== 7)
        return "07"

    if (MonthNum== 8)
        return "08"

    if (MonthNum== 9)
        return "09"

    if (MonthNum== 10)
        return "10"

    if (MonthNum== 11)
        return "11"

    if (MonthNum== 12)
        return "12"

}

 

macro DisplayDate()

{

    szTime = GetSysTime(1)

    Day = szTime.Day

    Month = szTime.Month

    Year = szTime.Year

    Hour = szTime.Hour

    Minute = szTime.Minute

    Second = szTime.Second

    if (Day < 10)

        szDay = "0@Day@"

    else

        szDay = Day

    szMonth = MonthToName(Month)

 

    hbuf = GetCurrentBuf()

    SetBufSelText(hbuf, "/*  @Year@/@szMonth@/@szDay@--@Hour@:@Minute@:@Second@  */")

}

（2）分配快捷键：

Options->Menu Assignments 打开Menu Assignments窗体, 在Command中输入Macro, 选中要使用的宏（DisplayDate）, 加入到合适的菜单中.还能够自己定义快捷键，就能够了，我定义的是Ctrl+Alt+F11。

（选项-->键分配）

就能够产生下面效果：

/*  2014/09/28--11:41:15  */