69,371
社区成员
发帖
与我相关
我的任务
分享
macro SingleLineComment()
{
szMyName = "gs06116"
// Get a handle to the current file buffer and the name
// and location of the current symbol where the cursor is.
hbuf = GetCurrentBuf()
ln = GetBufLnCur(hbuf)
// Get current time
szTime = GetSysTime(1)
Hour = szTime.Hour
Minute = szTime.Minute
Second = szTime.Second
Day = szTime.Day
Month = szTime.Month
Year = szTime.Year
if (Day < 10)
szDay = "0@Day@"
else
szDay = Day
//szMonth = NumToName(Month)
if (Month < 10)
szMonth = "0@Month@"
else
szMonth = Month
szDescription = Ask("请输入修改原因")
// begin assembling the title string
//added by gs06116
InsBufLine(hbuf, ln, "//Added by @szMyName@ @Year@/@szMonth@/@szDay@ for @szDescription@ ")
//InsBufLine(hbuf, ln+1, "/*@szDescription@ xmyanfa @Year@-@szMonth@-@szDay@*/")
}