本文章中程序由其他网友代码修改而来, 并非原本原创,总结如下,作为个人笔记使用。
(1)打开工程base,打开文件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 = "[email protected]@" else szDay = Day szMonth = MonthToName(Month) hbuf = GetCurrentBuf() SetBufSelText(hbuf, "/* @[email protected]/@[email protected]/@[email protected]@[email protected]:@[email protected]:@[email protected] */") }
(2)分配快捷键:
Options->Menu Assignments 打开Menu Assignments窗口, 在Command中输入Macro, 选中要使用的宏(DisplayDate), 添加到合适的菜单中.还可以自定义快捷键,就可以了,我定义的是Ctrl+Alt+F11。
(选项-->键分配)
就可以产生以下效果:
/* 2014/09/28--11:41:15 */
时间: 2024-10-17 22:38:54