sourceIsight中快速注释反注释方法.docVIP

在sourceInsight中编写代码注释，一般手动插入/* */，或者 // 或宏 #ifdef 0 #endif 有些麻烦。 可以在sourceInsight中采用菜单命令 1 . Run source Insight Open BASE projection Base projection 默认在mydocument文件夹下. 如： C:\Documents and Settings\905328\My Documents\Source Insight\Projects\Base 2．将comment.em copy 到该文件下 3．根据宏命令，加入对应的菜单命令 多行注释菜单命令 反注释 保存文件。 Clicke MENU “work”,就会发现对应的菜单： 4 应用 选中代码，click commentBlock 结果 如果取消的话： 选中代码,click uncommentBlock 结果： 附录 macro CommentBlock() { hbuf = GetCurrentBuf(); hwnd = GetCurrentWnd(); sel = GetWndSel(hwnd); iLine = sel.lnFirst; while (iLine = sel.lnLast) { szLine = GetBufLine(hbuf, iLine); szLine = cat(//// , szLine); PutBufLine(hbuf, iLine, szLine); iLine = iLine + 1; } if (sel.lnFirst == sel.lnLast) { tabSize = _tsGetTabSize() - 1; sel.ichFirst = sel.ichFirst + tabSize; sel.ichLim = sel.ichLim + tabSize; } SetWndSel(hwnd, sel); } // // Undo the CommentBlock for the selected text. // macro UnCommentBlock() { hbuf = GetCurrentBuf(); hwnd = GetCurrentWnd(); sel = GetWndSel(hwnd); iLine = sel.lnFirst; tabSize = 0; while (iLine = sel.lnLast) { szLine = GetBufLine(hbuf, iLine); len = strlen(szLine); szNewLine = ; if (len 1) { if (szLine[0] == / szLine[1] == / szLine[2] == / szLine[3] == /) { if (len 2) { //if (AsciiFromChar(szLine[2]) == 9) { tabSize = _tsGetTabSize() - 1; szNewLine = strmid(szLine, 5, strlen(szLine)); } } if (szNewLine == ) { szNewLine = strmid(szLine, 2, strlen(szLine)); tabSize = 2; } PutBufLine(hbuf, iLine, szNewLine); } } iLine = iLine + 1; } if (sel.lnFirst == sel.lnLast) { sel.ichFirst = sel.ichFirst - tabSize; sel.ichLim = sel.ichLim - tabSize; } SetWndSel(hwnd, sel); }